Probleme mit Application.Terminate; ...

[daredd]

Delphi-Quellcode:

procedure TForm1.ExecuteProgramm(const PFileName: string);
var
  SEInfo: TShellExecuteInfo; 
  ExitCode: DWORD; 
  ExecuteFile: string; 
begin 
  ExecuteFile := '"' + PFileName + '"'; 
  FillChar(SEInfo, SizeOf(SEInfo), 0); 
  SEInfo.cbSize := SizeOf(TShellExecuteInfo); 

  with SEInfo do 
  begin 
    fMask := SEE_MASK_NOCLOSEPROCESS; 
    Wnd := Application.Handle; 
    lpFile := PChar(ExecuteFile); 
    nShow := SW_SHOWNORMAL; 
  end; 

  if ShellExecuteEx(@SEInfo) then 
  begin 
    repeat 
      Application.ProcessMessages; 
      GetExitCodeProcess(SEInfo.hProcess, ExitCode); 
    until (ExitCode <> STILL_ACTIVE) or 
      Application.Terminated; 
  end else 
  begin 
    Application.MessageBox('Fehler beim Starten des Programms', 
      'Hinweis', MB_OK + MB_ICONERROR); 
  end; 
end;

Das hier!