Дождаться завершения другой программы в консоле delphi

[SawaMEN]

Здравствуйте...
Хотел задать вопрос... Как в консольном режиме delphi дождаться разархивирования архиватора 7-zip, и удалить архив...
Главное это нужно сделать, при завершении разархивирования...и закрыть программу)

program Project2;

uses
  SysUtils, ShellAPI, Windows, Messages;

begin
WinExec('7z.exe x "file.7z" -y',SW_HIDE);
DeleteFile('file.7z');
end.

[Serge_Bliznykov]

я бы рекомендовал воспользоваться CreateProcess + WaitForSingleObject
вот, например, вот так Пауза, пока не завершится другая программа. пост #4

[SawaMEN]

Спасибо большое))

[Аватар]

Если пользуетесь RxLib, то там в RXShell есть функция FileExecuteWait, в ней другой подход, но можно и её использовать

[IliaIT]

а ещё файл не удалится если он используется. и ваша функция DeleteFile('file.7z'); вернёт false, что вам мешает воткнуть удаление в таймер, который закроется при правильном удалении или при внешней отмене? это топорный наиболее простой вариант.