Текущий архив: 2003.02.27;
Скачать: CL | DM;

Вниз

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

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

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

---

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

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c