Fórum Criar atalho no desktop #263420

procedure CreateShortcut (FileName, Parameters, InitialDir, ShortcutName, ShortcutFolder : String); 
var 
MyObject : IUnknown; 
MySLink : IShellLink; 
MyPFile : IPersistFile; 
Directory : String; 
WFileName : WideString; 
MyReg : TRegIniFile; 
begin 
MyObject := CreateComObject(CLSID_ShellLink); 
MySLink := MyObject as IShellLink; 
MyPFile := MyObject as IPersistFile; 
with MySLink do 
begin 
SetArguments(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;