Суббота, 15.12.2018, 12:28 Приветствую вас Гость | Группа "Гости" 


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Anton93  
delfcode » Delphi » Процедуры и функции Delphi » Как программно создать ярлык (Автор: Gavrilo)
Как программно создать ярлык
dolphinДата: Суббота, 21.02.2009, 23:29 | Сообщение # 1
Администратор
Сообщений: 903
Статус: Offline
Code
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;


Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle

Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
 
delfcode » Delphi » Процедуры и функции Delphi » Как программно создать ярлык (Автор: Gavrilo)
  • Страница 1 из 1
  • 1
Поиск:

delfcode.ru © 2008 - 2018 Хостинг от uCoz