После экзэшника

← →
Zheks (2003-08-22 09:43) [0]

доброе утро!
В процедуре я вызываю экзэшник(winexec("*.exe", 1);), этот экзэшник создаёт файл, который мне нужно перенести(именно в этой процедуре, сразу за winexec("*.exe", 1);), но что бы экзэшник успел создать этот файл?

← →
Zacho © (2003-08-22 09:47) [1]

Вместо winexec используй CreateProcess или ShellExecuteEx и WaitForSingleObject. Пример есть в любом FAQ"е по Дельфи.

← →
Zheks (2003-08-22 10:05) [2]

to Zacho: блин, как назло faq говорит: извените, ошибка на странице...

Черкани если не трудно, как дождаться пока отгремит внешний процесс

procedure Run(Path : AnsiString; Wait : Boolean);
var
si : Tstartupinfo;
p : Tprocessinformation;
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do
begin
cb := SizeOf( Si);
dwFlags := startf_UseShowWindow;
wShowWindow := 4;
end;
Createprocess(nil,PChar(Path),nil,nil,false,Create_default_error_mode, nil,nil,si,p);
if Wait then
Waitforsingleobject(p.hProcess,infinite);
end;

После экзэшника Найти похожие ветки