|
#1
|
|||
|
|||
ShellExecute
Доброго времени суток!
Код:
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 раза открывает. В чём косяк в первом коде? |