Текущий архив: 2004.05.16;
Скачать: CL | DM;
Вниз
Как создать ярлык программы на рабочем столе? Найти похожие ветки
← →
Артем К. (2004-04-29 06:59) [0]Здравствуйте, Уважаемые Мастера!
Подскажите пожалуйста как создать ярлык программы на рабочем столе?
Заранее спасибо!
← →
SASH2 (2004-04-29 07:23) [1]Попробуй вот так:
var
WorkTable:String;
P:PItemIDList;
C:array [0..1000] of char;
begin
if SHGetSpecialFolderLocation(Handle,CSIDL_DESKTOP,p)=NOERROR then
begin
SHGetPathFromIDList(P,C);
WorkTable:=StrPas(C);
end;
if FileExists(WorkTable+"\"+ExtractFileName(Application.ExeName)) then
DeleteFile(WorkTable+"\"+ExtractFileName(Application.ExeName));
CreateShotCut(Application.ExeName, WorkTable+"\"+ExtractFileName(Application.ExeName), "");
ShowMessage("Ярлык создан!");
end;
← →
[lamer]Barmaglot © (2004-04-29 09:57) [2]FAQ?
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621840&n=15
Страницы: 1 вся ветка
Текущий архив: 2004.05.16;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.045 c
