Тема: ShellExecute
Показать сообщение отдельно
  #1  
Старый 14.03.2013, 15:54
U.B.M. U.B.M. вне форума
Новичок
 
Регистрация: 06.10.2011
Сообщения: 94
Версия Delphi: Delphi 7
Репутация: 13
По умолчанию 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 раза открывает.

В чём косяк в первом коде?
Ответить с цитированием