[NumLock]

Код:

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

Код:

CreateProcess('z.bat');