Интеллигентный компьютерный специалист всегда выглядит хорошо, но он не носит с собой зеркало. У него куча компакт дисков.
Может ещё так можно ярлыки делать?
// не помню какая из них нужна, вообще наити можно поиском в *.pas в каталогеuses...ShlObj, ComObj, ActiveX, shellapi, ComCtrls, ...
// disk:\Program Files\Borland\Delphi5\Sourceprocedure SetShortCut(path, cmd, icon, wd, name, arg: string);
var
ShellObject: IUnknown;
LinkFile: IPersistFile;
ShellLink: IShellLink;
begintry
CoInitialize(nil);
ShellObject := CreateComObject(CLSID_ShellLink);
LinkFile := ShellObject as IPersistFile;
ShellLink := ShellObject as IShellLink;
// RTFM - интерфейсу IShellLink, там вс? описано
ShellLink.SetPath(@cmd[1]);
ShellLink.SetWorkingDirectory(@wd[1]);
ShellLink.SetIconLocation(@icon[1], 0);
// вместо 0 можно указать номер иконки если их там много...
ShellLink.SetDescription(@name[1]);
ShellLink.SetArguments(@arg[1]);
LinkFile.Save(PWChar(WideString(path)), true);
finally
ShellObject := Unassigned;
CoUninitialize;
end;
end;
Статья Программно создать ярлык 2 раздела Файловая система Ярлыки может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.