|
Тема |
Re: Създаване на ShortCut [re: TRN] |
|
Автор |
Wise Guy (да бе умен...) |
|
Публикувано | 03.03.02 13:57 |
|
|
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
|
| |
|
|
|