Создать ярлык на 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', 'Комментарий','Параметры');

 

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

Рубрика: Delphi, Новости · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!