Статистика | Зарегистрировано на сайте: Всего: 51647
Онлайн всего: 31 Гостей: 31 Пользователей: 0
|
|
Каталог статей
Как программно создать ярлык
uses ShlObj, ComObj, ActiveX; 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;
|
|
Просмотров: 479
| Рейтинг: 1.0/
7
Оштрафовать
| Жаловаться на материал |
|
|