Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.053 c