Criar atalho no desktop

Delphi

26/12/2004

como posso fazer um código para que meu proprio programa crie seu icone no desktop mesmo que por entura ele seja mudado de lugar esse atalho sempre vai achar o programa...


Crcam

Crcam

Curtidas 0

Respostas

Martins

Martins

26/12/2004

Olá!
tente fazer assim:

Coloque essas units na seção implementation :

[b:70a8814127]uses ShlObj, ActiveX,ComObj, Registry;[/b:70a8814127]

Por último, crie uma procedure que faça o trabalho: 
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;


Espero ter ajudado!!

Martins


GOSTEI 0
POSTAR