Como passar os parametros nesse procedimento
esse procedimento e para criar um atalho de qualquer programa
mas eu naum sei o que passar como parametro....
CreateShortcut(FileName, Parameters, InitialDir, ShortcutName,ShortcutFolder : Pchar; Place: TShortcutPlace)
mas eu naum sei o que passar como parametro....
CreateShortcut(FileName, Parameters, InitialDir, ShortcutName,ShortcutFolder : Pchar; Place: TShortcutPlace)
Info
Curtidas 0
Respostas
Kfe
18/07/2003
pode ser feito assim
CreateShortcut(FileName, Parameters, InitialDir, ShortcutName,ShortcutFolder : Pchar; Place: TShortcutPlace)
CreateShortcut(pchar(Application.exename),pchar(´´),pchar(ExtractFileDir(Application.ExeName)),pchar(´Recadastramento´),pchar(´´),stDesktop);
onde application.exename pega o nom edo executavel, extractfiledir pega o diretorio e stDesktop é o local aonde irá ficar o atalho
Falow
CreateShortcut(FileName, Parameters, InitialDir, ShortcutName,ShortcutFolder : Pchar; Place: TShortcutPlace)
CreateShortcut(pchar(Application.exename),pchar(´´),pchar(ExtractFileDir(Application.ExeName)),pchar(´Recadastramento´),pchar(´´),stDesktop);
onde application.exename pega o nom edo executavel, extractfiledir pega o diretorio e stDesktop é o local aonde irá ficar o atalho
Falow
GOSTEI 0