Форум: "Основная";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Вниз
Как создать ярлык на рабочем столе? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c
