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:

  E := Appdir+'axe2itn.exe';
  S := Appdir+'axe.axe';
  D := Appdir+'axe.tmp';
  Ok := false;
  FileCopy(Opendialog.FileName,S);
  //Delay(CopyDelay);
  if FindFirst(E, faAnyFile, sr) = 0 then
    begin
    //ShellExecute_AndWait('open',Appdir+'axe2itn.exe',' '+S+' '+D,AppDir,SW_HIDE,true);
     FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
     StartupInfo.cb := Sizeof(TStartupInfo);
     StartupInfo.dwFlags := STARTF_USESHOWWINDOW OR STARTF_USESTDHANDLES;
     StartupInfo.wShowWindow:=SW_HIDE;
     if CreateProcess(PChar(E),                // Anwendungsname
                      PChar(' '+S+' '+D), // Parameter
                      nil,                  // Security
                      nil,                  // Security
                      true,
                      CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or
                      NORMAL_PRIORITY_CLASS,// Priorität
                      nil,                  // Environment
                      PChar(AppDir),        // Verzeichnis
                      StartupInfo,
                      ProcessInfo)
     then
      begin
       WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
       CloseHandle(ProcessInfo.hProcess);
       Ok := true;
      end else MessageDLG('Fehler bei der Ausführung des externen Programms',mtError, [mbAbort], 0);}
    end
    else MessageDLG('Externes Programm nicht gefunden',mtError, [mbAbort], 0);					

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:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

function TForm1.ShellExecute_AndWait(Operation, FileName, Parameter, Directory: string;
  Show: Word; bWait: Boolean): Longint;
var
  bOK: Boolean;
  Info: TShellExecuteInfo;
{
  ****** Parameters ******
  Operation:

  edit  Launches an editor and opens the document for editing.
  explore Explores the folder specified by lpFile.
  find Initiates a search starting from the specified directory.
  open Opens the file, folder specified by the lpFile parameter.
  print Prints the document file specified by lpFile.
  properties Displays the file or folder's properties.

  FileName:

  Specifies the name of the file or object on which
  ShellExecuteEx will perform the action specified by the lpVerb parameter.

  Parameter:

  String that contains the application parameters.
  The parameters must be separated by spaces.

  Directory:

  specifies the name of the working directory.
  If this member is not specified, the current directory is used as the working directory.

  Show:

  Flags that specify how an application is to be shown when it is opened.
  It can be one of the SW_ values

  bWait:

  If true, the function waits for the process to terminate
}
begin
  FillChar(Info, SizeOf(Info), Chr(0));
  Info.cbSize := SizeOf(Info);
  Info.fMask := SEE_MASK_NOCLOSEPROCESS;
  Info.lpVerb := PChar(Operation);
  Info.lpFile := PChar(FileName);
  Info.lpParameters := PChar(Parameter);
  Info.lpDirectory := PChar(Directory);
  Info.nShow := Show;
  bOK := Boolean(ShellExecuteEx(@Info));
  if bOK then
  begin
    if bWait then
    begin
      while
        WaitForSingleObject(Info.hProcess, 100) = WAIT_TIMEOUT
        do Application.ProcessMessages;
      bOK := GetExitCodeProcess(Info.hProcess, DWORD(Result));
    end
    else
      Result := 0;
  end;
  if not bOK then Result := -1;
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:

var Beenden: Boolean=false;

procedure ExecuteFile(const AFilename: String; AParameter: String; AWait: Boolean);
var
  si: TStartupInfo;
  pi: TProcessInformation;
begin
 FillChar(si, SizeOf(si), 0);
 with si do
  begin
   cb:=SizeOf(si);
   dwFlags:=STARTF_USESHOWWINDOW;
   wShowWindow:=SW_NORMAL;
  end;
 FillChar(pi, SizeOf(pi), 0);
 if CreateProcess(PChar(AFilename), PChar(AParameter), nil, nil, False,
                  CREATE_DEFAULT_ERROR_MODE or CREATE_NEW_CONSOLE or
                  NORMAL_PRIORITY_CLASS, nil, nil, si, pi) then
 try
  if AWait then
   while (not Beenden) and(WaitForSingleObject(pi.hProcess, 50)<>Wait_Object_0) do
    begin
     Application.ProcessMessages
    end
 finally
  CloseHandle(pi.hProcess);
  CloseHandle(pi.hThread)
 end
end;