Запуск ярлыка

← →
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/

ShellExecute(Handle, "open", PChar("C:\WINDOWS\Calc.lnk"), nil, nil, SW_SHOWNA);
Так оно будет приятнее.

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

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

> Gost (18.07.05 17:35) [9]

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

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