| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ярлык на Рабочий Стол

Dean ©   (2005-05-25 17:59:00) 

Привет, мастера!
Подскажите, плз, как создать ярлык на рабочем столе винды? Помню где-то было... но найти никак не могу :((

---

Dean   (2005-05-25 18:04:00) [1]

точно!!! спасибо...

---

Kolan   (2005-05-25 18:02:00) [2]

Как программно создать ярлык?
Previous  Top  Next  

Автор: Gavrilo

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;

Взято с Исходников.ru http://www.sources.ru

---

Eraser   (2005-05-25 18:01:00) [3]

Dean   (25.05.05 17:59)

IShellLink если не ошибаюсь.

---

Наверх