Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Артем К.   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.04 c