![]() |
|
|
#1
|
|||
|
|||
|
Доброго времени суток!
Код:
procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(Handle, 'open', 'C:\Program Files\Softland\doPDF 7\dopdf.exe', nil, nil, SW_SHOWNORMAL); end; жму ctrl+F9 - ошибок нет, но project.exe не создается. Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'C:\Program Files\Softland\doPDF 7\dopdf.exe', nil, nil, SW_SHOWNORMAL);
WinExec('C:\Program Files\Softland\doPDF 7\dopdf.exe', SW_SHOWNORMAL);
end;работает - ожидаемо 2 раза открывает. В чём косяк в первом коде? |