Как создать ярлык на рабочем столе?

← →
Vitus (2003-02-18 10:33) [0]

Всем привет! Подскажите, как создать ярлык на рабочем столе в меню "Программы". Если можно с примерами кода.

← →
Романов Р.В. © (2003-02-18 10:41) [1]

http://www.google.com.ru/search?q=%D0%AF%D1%80%D0%BB%D1%8B%D0%BA+%D0%BD%D0%B0+%D1%80%D0%B0%D0%B1%D0%BE%D1%87%D0%B5%D0%BC+%D1%81%D1%82%D0%BE%D0%BB%D0%B5+Delphi&ie=UTF-8&oe=UTF-8&hl=ru&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr=

← →
Delirium^.Tremens © (2003-02-18 10:49) [2]

Где ты видел "меню программы" на "рабочем столе"?

← →
Vitus (2003-02-18 11:35) [3]

> Delirium^.Tremens, опечатался я :) Хотел сказать на рабочем столе И в меню "Программы".

> Романов Р.В., попробовал пример, но есть пара вопросов. 1. Ярлык создается в папке, которую указываю, но не появляется на рабочем столе. По всей видимости где-то нужно указать соответствующую констнанту CSIDL_DESKTOPDIRECTORY, но где?
2. В процедуру передается параметр Arguments, что это и что в него передавать?

Все делаю так:
procedure CreateLink(WorkDir, FileName, Arguments, LinkName: String); var MyObject: IUnknown; MySLink: IShellLink; MyPFile: IPersistFile; WFileName: WideString; begin MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; with MySLink do begin SetArguments(PChar(Arguments)); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(WorkDir)); end; if Not DirectoryExists(ExtractFiledir(LinkName)) then CreateDir(ExtractFiledir(LinkName)); WFileName := LinkName; MyPFile.Save(PWChar(WFileName), False); end; procedure TfmMain.BitBtn1Click(Sender: TObject); begin CreateLink("D:\Programs\MyProg", "D:\Programs\MyProg\Prog.exe", "", "D:\Programs\MyProg\Prog.lnk"); end;

← →
Vitus (2003-02-18 11:44) [4]

Все, сам разобрался, спасибо

Как создать ярлык на рабочем столе? Найти похожие ветки