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

← →
al-al (2006-04-07 10:07) [0]

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

← →
Der Nechk@ssoff © (2006-04-07 11:22) [1]

API

← →
Игорь Шевченко © (2006-04-07 11:28) [2]

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

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

← →
Zeqfreed © (2006-04-07 11:59) [3]

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

описание
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;

Создание ярлыка Найти похожие ветки