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;
Month: December 2014
Android 2014
Old school vocabulary too formal
https://lingualeo.com/ru/jungle/old-school-vocabulary-too-formal-318159