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

Запуск ярлыка   Найти похожие ветки 

← →
Gost   (2005-07-18 17:26) [0]

Не судите строго где ошибка не работает (ругается)?

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0, nil, "C:\WINDOWS\Calc.lnk",
   nil, nil, SW_SHOWNORMAL);
end;

---

← →
Lamer@fools.ua ©   (2005-07-18 17:28) [1]

И как именно ругается, а главное кто?

---

← →
Lamer@fools.ua ©   (2005-07-18 17:28) [2]

И как именно ругается, а главное кто?

---

← →
Gost   (2005-07-18 17:30) [3]

Что то наверное надо подключать в Uses ?

---

← →
Digitman ©   (2005-07-18 17:31) [4]

> Gost   (18.07.05 17:30) [3]


> Что то наверное надо подключать в Uses ?


да, надо.

uses ... , НеРугаться!, ...

---

← →
begin...end ©   (2005-07-18 17:31) [5]

> Gost   (18.07.05 17:30) [3]

В uses нужно подключать ShellAPI.

---

← →
Gost   (2005-07-18 17:32) [6]

Подскажите срочно надо

---

← →
sniknik ©   (2005-07-18 17:34) [7]

> Что то наверное надо подключать в Uses ?
это смотря как ругается. если матом то ничего уже не поможет, если на "ненаходимость" чегото то да скорее всего подключать.  

и по остальным возможным вопросам
http://delphimaster.net/view/4-1121238081/

---

← →
GLFox ©   (2005-07-18 17:35) [8]


ShellExecute(Handle, "open", PChar("C:\WINDOWS\Calc.lnk"), nil, nil, SW_SHOWNA);

Так оно будет приятнее.

---

← →
Gost   (2005-07-18 17:35) [9]

begin...end СПАСИБО ! Все нормально пошло !

---

← →
Digitman ©   (2005-07-18 17:50) [10]

> Gost   (18.07.05 17:35) [9]


хоть понял, что произошло ?)

---

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

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



Память: 0.46 MB
Время: 0.023 c