1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

function TFormGenerate.ExecAndWait_New(const FileName, Params: String): Integer;
var w: Cardinal;
    ExecuteInfo: TSHELLEXECUTEINFO;
{Return-Values der Funktion:
    -3: Kein Programm mit dieser Dateierweiterung verknüpft
    -2: Datei nicht gefunden
    -1: Datei konnte nicht geöffnet werden
     0: Auf Prozess kann nicht gewartet werden
     1: Ausführendes Programm wurde beendet oder durch Benutzer abgebrochen}
begin
  Result:= -1;
  FillChar(ExecuteInfo, SizeOf(TSHELLEXECUTEINFO), 0);
  With ExecuteInfo do
  begin
    cbSize:= SizeOf(TSHELLEXECUTEINFO);
    lpVerb:= 'open';
    lpFile:= PChar(Filename);
    lpParameters := PChar(Params);
    nShow:= SW_HIDE;
    fMask:= SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI;
    Wnd:= Application.Handle;     //Hier muss ich wohl ein anderes Handle angeben??
  end;
  if ShellExecuteEx(@ExecuteInfo) and (ExecuteInfo.hInstApp> 32) then
  begin
    w:= WAIT_FAILED;
    If ExecuteInfo.hProcess <> 0 then
    Repeat
      w:= WaitForSingleObject(ExecuteInfo.hProcess, 1000);
      Application.ProcessMessages;
    Until (Abbruch= True) or (w= WAIT_OBJECT_0) or
          (w= WAIT_ABANDONED) or (w= WAIT_FAILED);

    if (w<> WAIT_ABANDONED) and (w<> WAIT_FAILED) then Result:= 1
    else Result:= 0;
  end
  else
    Case GetLastError of
      ERROR_FILE_NOT_FOUND,
      ERROR_PATH_NOT_FOUND: Result:= -2;
      ERROR_NO_ASSOCIATION: Result:= -3;
    end;
end;