7399       Конференция Delphi SoobCha           письмо # 7400 7401  

Тема: Re: запуск чужого процесса
Дата: Sat, 12 Apr 2008 15:51:28 +0300
Кому: Delphi@soobcha.org
Content-Type: text/plain; charset=koi8-r
     go6poro BPEMEHu cyTok.


X> какой ф-цией воспользоваться чтоб знать что дочерняя программа уже
X> завершена и т.д.?

--- Может быть это поможет.

---
noka
10.04.2008, 22:37



function ExecProgAndWaitClose(NamePRG : string;MinimizeBefore,RestoreAfter : boolean) : boolean;
//Запуск внешнего приложения и ожидание его окончания
//Пример : ExecProgAndWaitClose('wzzip -r -p aaaaa',TRUE,TRUE);
var
  si : Tstartupinfo;
  p : Tprocessinformation;
begin
  Result:=FALSE;
  NamePRG:=Trim(NamePRG);
  if Length(NamePRG)>0 then begin
     FillChar( Si, SizeOf( Si ) , 0 );
     with Si do
      begin
        cb := SizeOf( Si);
        dwFlags := startf_UseShowWindow;
        wShowWindow := 4;
     end;
     if MinimizeBefore then Application.Minimize;
     Createprocess(nil,PCHAR(NamePRG),nil,nil,false,
     Create_default_error_mode,nil,nil,si,p);
     Waitforsingleobject(p.hProcess,infinite);
     Result:=TRUE;
     if RestoreAfter then Application.Restore;
  end;
end;
  7399 7401  
 
???Mail.ru ??? ?????
╘ 2000-2006 Сообщество Чайников