Создать ярлык на Delphi

Что бы создать  ярлык на делфи достаточно вызвать следующую процедур.

procedure CreateLink (const PathObj, PathLink, Desc, Param: string);

var

IObject: IUnknown;

SLink: IShellLink;

PFile: IPersistFile;

begin

IObject := CreateComObject (CLSID_ShellLink);

SLink := IObject as IShellLink;

PFile := IObject as IPersistFile;

with SLink do

begin

SetArguments (PChar (Param));

SetDescription (PChar (Desc));

SetPath (PChar (PathObj));

end;

PFile.Save (PWChar (WideString (PathLink)), FALSE);

end;

 

Процедура активируется с помощью данной команды.

CreateLink ('путь файла к которому нужно сделать ярлык ',адрес и имя ярлыка с расширением .lnk', 'Комментарий','Параметры');

 

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите самый большой кружок: