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

ВИДЕОКУРС ВЗЛОМ
выпущен 3 апреля!


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

БОЛЬШОЙ FAQ ПО DELPHI



Как запустить приложение и подождать пока оно отработает 6


 procedure Start;
 var
   si: TStartupInfo;
   p:  TProcessInformation;
 begin
   FillChar(Si,SizeOf(Si),0);
   with Si do begin
     cb := SizeOf( Si);
     dwFlags := startf_UseShowWindow;
     wShowWindow := 4;
   end;
   Form1.WindowState:=wsMinimized;
   Createprocess(nil,'c:\windows\sndrec32.exe e:/temp.wav',nil,nil,false,
         Create_default_error_mode,nil,nil,si);
   Waitforsingleobject(p.hProcess,infinite);
   Form1.WindowState:=wsNormal;
 end;
 




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



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



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


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