Criando atalho no desktop...

[marcio.theis 3]

Para criar um atalho do seu exe no desktop, pode usar a seguinte procedure:

 

Declare no uses:

 

ShlObj, ComObj, Registry, ActiveX

procedure CreateShortcut(FileName, Parameters, InitialDir, ShortcutName, ShortcutFolder : String);var 	MyObject: IUnknown;	MySLink: IShellLink;	MyPFile: IPersistFile;	Directory: String;	WFileName: WideString;	MyReg: TRegIniFile;beginMyObject:=CreateComObject(CLSID_ShellLink);MySLink:=MyObject as IShellLink;MyPFile:=MyObject as IPersistFile;with MySLink do	begin	SetArguments(Pchar(Parameters));	SetPath(PChar(FileName));	SetWorkingDirectory(PChar(InitialDir));	end;MyReg:=TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');Directory:=MyReg.ReadString ('Shell Folders','Desktop','');WFileName:=Directory + '\' + ShortcutName + '.lnk';MyPFile.Save(PWChar (WFileName), False);MyReg.Free;end;

Para chamar, pode fazer:

 

CreateShortcut('C:\PASTA_DO_APLICATIVO\NOME_DO_EXE.exe','','C:\PASTA_DO_APLICATIVO','NOME_DO_ATALHO','');

[rento 0]

Legal, tem que ser pelo registro? ou tem outra forma?

[marcio.theis 3]

Sim, somente via registro, visto que o windows é praticamente todo configurado pelo registro...

[rento 0]

Ta dando um erro, jé edito, amanhã...Falta alguma uses

[marcio.theis 3]

Precisa ter declarado no uses as units:

 

ShlObj, ComObj, Registry, ActiveX