Завершение внешнего приложения в случае ошибки

← →
YDS (2005-12-06 22:46) [0]

Подскажите, как при запуске внешнего приложения в Delphi в случае его некорректного завершения тихо прибить его (подавить появление окна с ошибкой и звукового сигнала).
Если подробнее, то задача в следующем. Из моего приложения запускается утилита конвертации графических файлов. При этом если графический файл имеет неправильную структуру, то эта утилита «падает» с ошибкой. Утилиту из своего приложения запускаю стандартно:

cmdl :="util.exe cmdline’ // командная строка
Createprocess(nil,pchar(cmdl),nil,nil,false,Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);

← →
Alexander Panov © (2005-12-06 23:10) [1]

Createprocess(nil,pchar(cmdl),nil,nil,false,Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,5000);

TerminateProcess(p.hProcess,0);

← →
Kerk © (2005-12-07 02:34) [2]

А параметр, который 5000 мы будем подгонять, да?

← →
YDS (2005-12-07 09:48) [3]

Да, предложенный вариант, увы, не выход.

Тему перенес в конфу "для начинающих"

← →
Alexander Panov © (2005-12-07 10:34) [4]

> Kerk © (07.12.05 02:34) [2]
>
> А параметр, который 5000 мы будем подгонять, да?

А остальное - для самостоятельной работы.

← →
Карелин Артем © (2005-12-07 12:09) [5]

> Alexander Panov © (06.12.05 23:10) [1]

Замечательный код! Особенно для Мастера!

Я бы посоветовал FindWindow и связанные с этим функции использовать. И прибивать процесс при появлении окна. Полагаться на время обработки файла означает создать мирно спящие до определенного момента проблемы.

← →
Alexander Panov © (2005-12-07 12:12) [6]

> Замечательный код! Особенно для Мастера!

Вопрос был - "как прибить процесс?".
Ответ полностью удовлетворяет вопросу.

← →
Карелин Артем © (2005-12-07 12:19) [7]

> подавить появление окна с ошибкой

> Карелин Артем © (07.12.05 12:19) [7]
>
>
> > подавить появление окна с ошибкой

см. Alexander Panov © (07.12.05 10:34) [4]

:))))

← →
Винт (2005-12-07 12:28) [10]

Завершение внешнего приложения в случае ошибки Найти похожие ветки