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 
  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]>

  > 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>
  > 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>
  > >
  >
  > > 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]

Responder a