Работя на Delphi 5. Как мога да създам ShortCut на файл.

uses ShlObj, ComObj, ShellApi, ActiveX (moje nqkoe da e izlishno ili da ima nujda ot oshte)

procedure CreateLink(const Target, lnk: string);
//Target ti e faila kum koito e shortcut-a, a lnk e imeto na shortcut-a
var
SL: IShellLink;
PF: IPersistFile;
LnkName: WideString;
begin
OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER,
IShellLink, SL));
PF := SL as IPersistFile;
OleCheck(SL.SetPath(PChar(Target)));
OleCheck(SL.SetWorkingDirectory(PChar(ExtractFilePath(Target))));
//SL.sloji kakvoto ti trqbva

LnkName := lnk;
PF.Save(PWideChar(LnkName), true);
end;

by Wise Guy

Съдържаниет е скрито
Влезте за да го видите

Благодаря ти много.