Цитата:
|
Сообщение от Scupxxx
Maskman не можешь код отладить для этой проги, а я уже по аналогии для своей проги сделаю - в кроне пока знаний не хватает...
|
Вот собственно что у меня получилось.
Код:
#( Test_Not_Responding
WINAPI: SendMessageTimeoutA USER32.DLL
: isHungWindow? ( hwnd - ? )
>R 0 SP@ 5000 2 0 0 0 R> SendMessageTimeoutA NIP 0= \ Таймаут = 5 секунд
;
NoActive
Action:
WIN-EXIST: "KillTest*"
IF
WIN-HWND isHungWindow?
IF
MSG: "Висим как фанера над парижем!"
ELSE
MSG: "Все ОК!"
THEN
THEN
)#
Проверил при помощи твоей утилки.
Задача фунциклирует в Win98 и Win2000, а вот в WinXP не хочет.