Скачать: CL | DM;

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

← →
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

---

← →
sniknik ©   (2006-04-07 12:16) [4]

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


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c