Форум: "Система";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
ВнизКак средствами DELPHIпроверить отвечает ли программа на системные Найти похожие ветки
← →
YDV (2002-08-01 08:00) [0]Доброе утро(день,вечер) !
Как средствами DELPHIпроверить отвечает ли программа на системные запросы, т.е. не зависла ли она ?
Заранее спасибо за ответ !
← →
Song (2002-08-01 08:49) [1]Какая ОС? Поищите по поиску, уверен найдёте.
← →
BigBadMutuh (2002-08-01 12:37) [2]Твоя программа, или вообще? Если твоя, то можно глюкалку сделать. Ну бегущую строку или ещё чего. Не бежит значит повисла.
← →
ppcat (2002-08-01 12:59) [3]function IsHungAppWindow(Wnd: HWND): BOOL ; stdcall;
external "User32.dll" name "IsHungAppWindow";
Это для NT
Для mustDie, кажется, IsHungAppProcess
Кстати, я тоже раньше не знал, ответ подсказали здесь!!!
Поищи в архивах.
← →
Almaz (2002-08-02 00:51) [4]
function IsHungThread(ThreadId: Integer): BOOL; external "USER32.DLL" name "IsHungThread";
Удачи.
← →
YDV (2002-08-05 12:21) [5]Спасибо за Ваши ответы !...
помогло !...
пока не знал функцию сделал так:
в проге, которая может повиснуть вставил отправших сообщений по таймеру раз в 2 сек
var
hw:HWND;
Cds: TCopyDataStruct;
Hwnd: THandle;
begin
hw:=FindWindow("TForm1","Reanimator");
if hw<>0 then begin
Cds.dwData:=Top;
Cds.cbData:=Length(Caption)+1;
GetMem(Cds.lpData,Cds.cbData);
StrCopy(Cds.lpData,PChar(Caption));
SendMessage(Hw,WM_COPYDATA,Handle,Cardinal(@Cds));
FreeMem(Cds.lpData);
end;
Как только Reanimator не дождался сообщения в течении 10 сек, то
прога повисла !
← →
YDV (2002-08-05 14:25) [6]Можно одно уточнение ?...
Где в системе заложено время, по истечению которого процессу присваивается статус зависшего ?...
Постоянно ли это время, или его можно поменять ?
Заранее спасибо за ответ !
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c