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



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

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

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', 'Комментарий','Параметры');

 

Популярность: 1% [?]



style="display:inline-block;width:468px;height:60px"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="7620109552">

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!

Подтвердите, что Вы не бот — выберите человечка с поднятой рукой: