var PrIn: TProcessInformation; StIn: TStartupInfo; Res: bool; ProcID, Process: Cardinal; // start begin GetStartupInfo(StIn); Res := CreateProcess(PChar('..\Project1.exe'), PChar('"command line params"'), nil, nil, False, CREATE_NEW_PROCESS_GROUP, nil, nil, StIn, PrIn); ProcID := PrIn.hProcess; Process := PrIn.dwProcessId; end; // kill begin TerminateProcess(ProcId, 0); end;
Year: 2014
Android 2014
Crouton
Pocket flashlight
All you want to know
Old school vocabulary too formal
https://lingualeo.com/ru/jungle/old-school-vocabulary-too-formal-318159