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:

  procedure ShellExecute_AndWait(ASequenz: PSequenz; Params: string);
    var
      exInfo: TShellExecuteInfo;
      Ph: DWORD;
    begin
      FillChar(exInfo, SizeOf(exInfo), 0);
      with exInfo do
      begin
        cbSize := SizeOf(exInfo);
        fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
        Wnd := GetActiveWindow();
        ExInfo.lpVerb := 'open';
        ExInfo.lpParameters := PChar(Params);
        lpFile := PChar(ASequenz.Pfad);
        nShow := SW_SHOWNORMAL;
      end;
      if ShellExecuteEx(@exInfo) then
        Ph := exInfo.HProcess
      else
      begin
        ShowMessage(SysErrorMessage(GetLastError));
        Exit;
      end;

        while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do
          Application.ProcessMessages;

      CloseHandle(Ph);
    end;					

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:

      ZeroMemory(@myInfo, SizeOf(SHELLEXECUTEINFO));
      myInfo.cbSize := SizeOf(SHELLEXECUTEINFO);
      myInfo.fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_NO_UI;
      myInfo.lpFile := PChar(FileName);
      myInfo.lpParameters := PChar(Parameters);
      if Hide then
        myInfo.nShow := SW_HIDE
      else
        myInfo.nShow := SW_SHOWNORMAL;
      // start file
      ExitCode := 0;
      Result := ShellExecuteEx(@myInfo);
      // if process could be started
      if Result then
      begin
        // wait on process ?
        iWaitRes:=0;
        if (Wait > 0) then
        begin    //WaitForSingleObject
          iWaitRes := WaitForSingleObject(myInfo.hProcess, Wait);
          // timeout reached ?
          if (iWaitRes = WAIT_TIMEOUT) then
          begin
            Result := False;
            TerminateProcess(myInfo.hProcess, 0);
          end;
          // get the exitcode
          GetExitCodeProcess(myInfo.hProcess, ExitCode);
        end;
        // close handle, because SEE_MASK_NOCLOSEPROCESS was set
        CloseHandle(myInfo.hProcess);
      end;