Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

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

 
Comwad ©   (2003-05-15 08:44) [0]

Как создать программно ярлык на рабочем столе?
И в меню ПУСК?
Спасибо.


 
MBo ©   (2003-05-15 08:45) [1]

а в FAQ этого нет?


 
Rob   (2003-05-15 12:24) [2]

Попробуй так. У меня отлично работает!


var AnObj: IUnknown;
var ShLink: IShellLink;
var PFile: IPersistFile;
var FileName: string;
var WFileName: WideString;
var Reg: TRegIniFile;

begin

AnObj := CreateComObject (CLSID_ShellLink);
ShLink := AnObj as IShellLink;
PFile := AnObj as IPersistFile;
FileName := ParamStr (0);
ShLink.SetPath (PChar (FileName));
ShLink.SetWorkingDirectory (PChar(ExtractFilePath (FileName)));

Reg := TRegIniFile.Create("Software\MicroSoft\Windows\CurrentVersion\Explorer");
WFileName := Reg.ReadString ("Shell Folders", "Desktop", "") +"\" + "Имя_твоей_проги" + ".lnk";
Reg.Free;
PFile.Save (PWChar (WFileName), False);

end;



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

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

Наверх




Память: 0.46 MB
Время: 0.014 c
14-55731
NailMan
2003-07-01 18:13
2003.07.17
А как вы относитесь к идее распределенных вычислений?


1-55588
Zergg
2003-07-02 12:22
2003.07.17
Интересные нюансы с производительностью


1-55541
Maratvg
2003-07-05 11:01
2003.07.17
Как в excel получить Range с реально заполненными ячейками?


14-55826
panov
2003-06-23 19:50
2003.07.17
А здесь что, филиал www.sql.ru?


3-55466
div
2003-06-25 13:02
2003.07.17
Нужны описания фукций SQL, типа Round