а да процедура execWaitprocedure execWait(const comLine:string);varsi:Tstartupinfo;p:Tprocessinformation;beginfillChar( Si, SizeOf( Si ) , 0 );with Si do begincb := SizeOf( Si);dwFlags := startf_UseShowWindow;wShowWindow := 4;end;Createprocess(nil,pChar(comLine),nil,nil,false,Create_default_error_mode,nil,nil,si,p);Waitforsingleobject(p.hProcess,infinite);end;