БОЛЬШОЙ FAQ ПО DELPHI



Подождать завершения DOS-задачи 2

Сантехник - администратор сервера фирмы Sun.


 function WinExecute(CmdLine: string; Wait: Boolean): Boolean;
 var
   StartupInfo: TStartupInfo;
   ProcessInformation: TProcessInformation;
 begin
   Result := True;
   try
     FillChar(StartupInfo, SizeOf(StartupInfo), 0);
     StartupInfo.cb := SizeOf(StartupInfo);
     if not CreateProcess(nil, PChar(CmdLine), nil, nil, True, 0, nil,
     nil, StartupInfo, ProcessInformation) then
       RaiseLastWin32Error;
     if Wait then
       WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
   except
     Result := False;
   end;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ