[dmdx]

Всем привет! Нврод помогите кто чем может, исходником, аль ссылкой на тему или faq.

У меня такая задача. Моя прога должна запускать архивирование, ждать и только после того этого продолжать работу. У меня такой вариант, но мне кажется он не очень хороший.

Код:

var
 rar           : string;
 arcname   : string;
 packname : string;
 RunName  : string;
begin
arcname := 'c:\web.rar';
packname := 'c:\data.txt';
rar := 'c:\rar.exe a ';
RunName := rar + archname + ' ' + packname;  
WinExec(pchar(RunName),SW_HIDE);
while true do begin
   Application.ProcessMessage;
   if FileExists(pchar(ArcName)) then
   break;
end;
// далее выполняется обработка
end;