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

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

Создание ярлыка

al-al ©   (2006-04-07 10:07:00) 

Доброго всем времени суток. Вопрос простой: Как програмно создать ярлык?

---

sniknik   (2006-04-07 12:16:00) [1]

описание
http://centersti.com/Info/PROGR/Delphi7%20prof/Glava31/Index4.html

но пример там корявый, просто исправил явные глюки (о->0 и тд), без "оптимизаций".

в uses добавить ShlObj
и в const
const
 IID_IPersistFile: TGUID =
   (D1:$0000010B;D2:$0000;D3:$0000;D4:($C0,$00,$00,$00,$00,$00,$00,$46));

procedure TForm1.Button1Click(Sender: TObject);
var
 NewLink: IShellLink;
 fn, fp: string;
 ws: WideString;
 hRes: THandle;
 pf: IPersistFile;
begin
 NewLink:= CreateComObject(CLSID_ShellLink) as IShellLink;
 fn:= ParamStr(0);
 NewLink.SetPath(pchar(fn));
 fp:= ExtractFilePath(fn);
 NewLink.SetWorkingDirectory(pchar(fp));
 NewLink.SetDescription(pChar(Application.Title));
 ws:= fp+Application.Title+'.lnk';
 hRes:= NewLink.QueryInterface(IID_IPersistFile, pf);
 if Succeeded(hRes) then
   pf.Save(pWideChar(ws), False);
end;


---

Zeqfreed   (2006-04-07 11:59:00) [2]

http://www.scalabium.com/faq/dct0051.htm
http://offline.burik.ru/delphi/dw/base/create_object_link.html
http://www.delphirus.com.ru/modules.php?name=Pages&pa=showpage&pid=832

---

Игорь Шевченко   (2006-04-07 11:28:00) [3]

Der Nechk@ssoff ©   (07.04.06 11:22) [1]

Если у тебя есть фонтан - заткни его. Дай отдохнуть и фонтану.

---

Der Nechk@ssoff   (2006-04-07 11:22:00) [4]

API

---

Наверх