При нажатии на кнопку запускался *.exe?

← →
defvitguru © (2003-06-10 02:13) [0]

Guru Dephi подскажите, пожалуйста, как сделать, чтобы при нажатии на кнопку запускался *.exe файл.

← →
ГОСТ (2003-06-10 02:48) [1]

ShellExecute

← →
drin © (2003-06-10 02:49) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec("C:\somefile.exe", SW_SHOWNORMAL)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
SI: TStartUpInfo;
P: TProcessInformation;
begin
FillChar(SI, SizeOf(SI), 0);
With SI do
begin
cb:= SizeOf(SI);
dwFlags:= startf_UseShowWindow;
wShowWindow:= 4;
end;
CreateProcess(nil, PChar("XXXXX.exe"), nil, nil, False, CREATE_DEFAULT_ERROR_MODE or NORMAL_PRIORITY_CLASS, nil, <рабочий каталог>, SI, P);
end;

При нажатии на кнопку запускался *.exe? Найти похожие ветки