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