[NumLock]

Код:

procedure CreateProcess(CommandLine: String);
var
  startupinfoa: _STARTUPINFOA;
  processinformation: _PROCESS_INFORMATION;
begin
  ZeroMemory(@startupinfoa, SizeOf(_STARTUPINFOA));
  startupinfoa.cb:=SizeOf(_STARTUPINFOA);
  startupinfoa.dwFlags:=STARTF_USESHOWWINDOW;
  startupinfoa.wShowWindow:=SW_SHOW; // SW_HIDE
  Windows.CreateProcess(nil, PChar(CommandLine), nil, nil, False, 0, nil, nil,
    startupinfoa, processinformation);
  WaitForSingleObject(processinformation.hProcess, INFINITE);
  CloseHandle(processinformation.hProcess);
end;

begin
  CreateProcess('z.bat');
end;

z.bat:

Код:

echo begin
ping 127.0.0.1
echo end

выход из процедуры CreateProcess произойдет только по окончании выполнения z.bat