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
  Befehl              : String;
  StartupInfo         : TStartupInfo;
  ProcessInfo         : TProcessInformation;
begin
  Befehl := 'cmd.exe /c <Batchdateiname>';

  // StartupInfo initialisieren.
  FillChar(StartupInfo, SizeOf(TStartupInfo), 0);
  StartupInfo.cb := SizeOf(TStartupInfo);

  // DOS-Fenster soll nicht angezeigt werden.
  StartupInfo.dwFlags := StartF_UseShowWindow;
  StartupInfo.wShowWindow := SW_Hide;

  if CreateProcess(nil, 
                   PChar(Befehl), 
                   nil, 
                   nil,
                   false, 
                   0, 
                   nil, 
                   'c:\',
                   StartupInfo,
                   ProcessInfo) then 
    begin
      WaitForSingleObject(ProcessInfo.hProcess, Infinite);
      CloseHandle(ProcessInfo.hProcess);
    end;