Na unit shlobj, vc tem a função ShGetSpecialFolderPath. Uma API do windows justamente para esta função.
usando: var Pasta : array[0..MAX_PATH] of Char; begin SHGetSpecialFolderPath(0, Pasta, CSIDL_XXXXXXX, False); SHowMessage(Pasta); end; Onde CSIDL_XXXXXXX é uma constânte. A Lista das constântes pode ser obtida aqui http://msdn.microsoft.com/en-us/library/bb762494.aspx Não sei se o Delphi tem todas as constântes da MS na unit, mas só usei algumas. E as que eu usei, tinha. heheh Abs. Daniel A. Bastos Não sei se o delphi tem todas as constântes do windows 2008/8/14 Jorge Ericsson <[EMAIL PROTECTED]> > Desculpe Vinicius mas vc não entendeu meu problema.. > > Valew amigão.. > > > 2008/8/14 Vinicius Santos - MSI <[EMAIL > PROTECTED]<vinicius%40msisolucoes.com.br> > > > > > Coloquei um botão no form e coloquei isso: > > > > MkDir('C:\Documents and Settings\All Users\Menu Iniciar\Programas\Teste') > > > > funcionou, normalmente ! > > > > além de MkDir, vc tem o CreateDir, para criar pastas. > > > > > > ----- Original Message ----- > > From: Jorge Ericsson > > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><delphi-br% > 40yahoogrupos.com.br> > > Sent: Thursday, August 14, 2008 4:25 PM > > Subject: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do > > Windows > > > > você sabe como criar via código ??? > > Pq eu já testei e não tive sucesso, mesmo criando na mão a pasta. > > > > 2008/8/14 Vinicius Santos - MSI <[EMAIL > > PROTECTED]<vinicius%40msisolucoes.com.br> > <vinicius%40msisolucoes.com.br> > > > > > > > > certo, mas então qual o problema de se criar dentro de All User ?? > > > > > > > > > ----- Original Message ----- > > > From: Jorge Ericsson > > > To: delphi-br@yahoogrupos.com.br > > > <delphi-br%40yahoogrupos.com.br><delphi-br% > 40yahoogrupos.com.br><delphi-br% > > 40yahoogrupos.com.br> > > > Sent: Thursday, August 14, 2008 4:11 PM > > > Subject: Re: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR > do > > > Windows > > > > > > Vinicius o problema é que gostaria de criar para qq usuários que > logasse > > na > > > máquina ou seja > > > > > > C:\Documents and Settings\All Users\Menu Iniciar\Programas > > > > > > Dessa forma qq usuário que logar na máquina terá a visualização dos > > > programas. > > > > > > 2008/8/14 Vinicius Santos - MSI <[EMAIL > > > PROTECTED]<vinicius%40msisolucoes.com.br> > <vinicius%40msisolucoes.com.br> > > <vinicius%40msisolucoes.com.br> > > > > > > > > > > > > > Meu computador se chama VINICIUS, as pastas ficam aqui dentro: > > > > > > > > C:\Documents and Settings\VINICIUS\Menu Iniciar\Programas\ > > > > > > > > basta criar uma pasta ali dentro. > > > > > > > > Vinicius dos Santos > > > > Blog: http://tuplas.blogspot.com > > > > http://www.msisolucoes.com.br > > > > > > > > > > > > ----- Original Message ----- > > > > From: Jorge Ericsson > > > > To: undisclosed-recipients: > > > > Sent: Thursday, August 14, 2008 3:45 PM > > > > Subject: [delphi-br] Urgente - Criação de Subpasta no menu INICIAR do > > > > Windows > > > > > > > > Olá amigos, > > > > Depois de fuçar muito esses dois dias, eu não encontrei nada que > > > resolvesse > > > > o meu problema. > > > > Talvezes seja o cansaço mais não consegui mesmo resolver o meu > > problema. > > > > > > > > Bom, preciso criar um atalho para o meu programa na pasta dentro da > > > > Programas e nessa pasta colocar meu atalho da seguinte forma. > > > > > > > > Programa Console -> Desktop (moleza) > > > > Console (programa) > > > > > > > > Programa Exportação -> Iniciar - > > > > Programas - > > > > Exportação (pasta) > > > > Export.exe (programa) > > > > > > > > Programa Importação -> Iniciar - > > > > Programas - > > > > Importação (pasta) > > > > Import.exe (programa) > > > > Programa Migração -> Iniciar - > > > > Programas - > > > > Migração (programa) > > > > > > > > Sei que o Inno Setup dá pra fazer isso com o pé nas costa, mas como > eu > > > > criei > > > > o meu programa de instalação eu gostaria de controlar essa > distribuição > > > de > > > > aplicativos. > > > > > > > > Tentei usar a function abaixo mas não deu certo. > > > > > > > > CreateShortcut(SourceFileName ;..... > > > > > > > > const > > > > SHELL_FOLDERS_ROOT = > > > 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; > > > > QUICK_LAUNCH_ROOT = > > 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; > > > > > > > > Se alguém que já passou por isso puder me ajudar, já lhe fico > grato... > > > > > > > > Valew pessoal. > > > > > > > > Jorge Ericsson S. Pinheiro > > > > Analista/Projetista de Sistemas > > > > Ericsson Sistemas e Soluções > > > > http://www.jericsson.com.br > > > > 61 9227.4785 / 3967.6172 > > > > Brasília - DF > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > > > > -- > > > Att, > > > > > > Jorge Ericsson S. Pinheiro > > > Analista/Projetista de Sistemas > > > Ericsson Sistemas e Soluções > > > http://www.jericsson.com.br > > > 61 9227.4785 / 3967.6172 > > > Brasília - DF > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > -- > > Att, > > > > Jorge Ericsson S. Pinheiro > > Analista/Projetista de Sistemas > > Ericsson Sistemas e Soluções > > http://www.jericsson.com.br > > 61 9227.4785 / 3967.6172 > > Brasília - DF > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > Att, > > Jorge Ericsson S. Pinheiro > Analista/Projetista de Sistemas > Ericsson Sistemas e Soluções > http://www.jericsson.com.br > 61 9227.4785 / 3967.6172 > Brasília - DF > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]
