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:

function CreateProcessCstm(befehl: string): Longint;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := SizeOf(TStartupInfo);
  //Fenster nicht anzeigen
  StartupInfo.dwFlags := StartF_UseShowWindow;

  StartupInfo.wShowWindow := SW_Hide;
  //in delphi 6 ging das hier zB mit Befehl := 'sqlcmd -?'
  //if CreateProcess(nil, PChar(Befehl), nil, nil, False, 0, nil,
  //  PChar(ExtractFilePath(ParamStr(0))), StartupInfo, ProcessInfo) then

  // hier gibts nen zugriffsfehler in der kernel32.dll:
  if CreateProcess(nil, PChar('C:\Windows\System32\calc.exe'), nil, nil, False, 0, nil,
    nil, StartupInfo, ProcessInfo) then
  //oder:
  if CreateProcess(nil, PChar('calc.exe -bla'), nil, nil, False, 0, nil,
    nil, StartupInfo, ProcessInfo) then
  //oder: 
  if CreateProcess(PChar('calc.exe'), nil, nil, nil, False, 0, nil,
    nil, StartupInfo, ProcessInfo) then
  //schon allein: 
  if CreateProcess(PChar('C:\Windows\System32\calc'), nil, nil, nil, False, 0, nil,
    nil, StartupInfo, ProcessInfo) then                    

1:

The first parameter, lpApplicationName, can be NULL, in which case the executable name must be in the white space-delimited string pointed to by lpCommandLine.                    

1:
2:
3:

procedure ExecuteFile(const AFileName: string);
begin
  CreateProcess(nil, PChar(AFileName + ''), ...