Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 сентября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ 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/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS