Forum Webscript.Ru

Программирование => Perl => Тема начата: Evgeny от 09 Июля 2002, 17:07:43

Название: Windows API и perl
Отправлено: Evgeny от 09 Июля 2002, 17:07:43

Привет всем.
Мой перл скрипт запускает одну программу. В STDIN или STDERROR программа ничего не пишет.
Если всё правильно отработало - на несколько секунд появляется Windows окно и его MessageBox, потом всё само закрывается.
Если же произошла ошибка - появляется это же окно, но с другим MessageBox\'ом - сообщением об ошибке и не закрывается.
Как можно проанализировать эту ситуацию на Перле (если это конечно можно) и в случае ошибки закрыть эти окна.
На С++ Builder\'e я бы использовал SendMessage. Есть ли аналог этой ф-ции в Перл или какая-нибудь другая возможность управления окнами Windows.
Большое спасибо.

Название: Windows API и perl
Отправлено: Chs от 09 Июля 2002, 19:58:50

perldoc Win32::Process

Название: Windows API и perl
Отправлено: Evgeny от 10 Июля 2002, 12:40:15

Цитировать

perldoc Win32::Process

Понятно, как создать процесс, приостановить, убить.
Но вот как определить, например, имеет ли сейчас процесс видимое windows-окно? Или как прочитать текст с MessageBox\'a?
На С++ Builder\'e я такое делал. Ф-ция называлась SendMessage. А вот как такое на Перле реализовать?

Название: Windows API и perl
Отправлено: Evgeny от 11 Июля 2002, 17:38:24

Кстати не работает этот модуть под W2K.
ProcessID неправильное возвращает и убить процесс не может.