Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Приложение зависло. Приложение не отвечает.


Автор: andrey_post 20.8.2004, 05:30
У меня такая задача.
Зделал сервер. На него засунул кучу программ. Они все запущены.
Хотелось бы написать программулину каторая будет показывать в каком состоянии находится та или иная программа.
- Выполняется
- Не отвечает
- Отключена
- Загрузка процессора

Как сие воплотить? Чем пользоваться?

Автор: andrey_post 20.8.2004, 12:42
Ребята, если кто делал такое плиз хелп!!! sample.gif

Автор: Vit 20.8.2004, 23:14
Программы твои собственная или чужие?

Автор: _hunter 21.8.2004, 12:03
думаю, самое оно:
http://www.3dnews.ru/software/win_trick02/

Автор: andrey_post 24.8.2004, 11:12
Vit Программы чужие (в основном).

Автор: Vit 24.8.2004, 17:50
С чужими корректно не получится... Например во время SQL запроса программа может как-бы висеть целые часы, и это ни о чём не говорит...

Автор: <Spawn> 24.8.2004, 20:49
andrey_post Тебе же _hunter дал ссылку - нетрудно было прочитать.
Вот пример для не 9x ОС(Хотя в этом примере нет особого смысла - он лишь для того чтобы показать использование данной функции):

Код
function IsHungAppWindow(Handle: HWND): Boolean; stdcall; external 'user32.dll' name 'IsHungAppWindow';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not IsHungAppWindow(Handle) then
   ShowMessage('OK');
end;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)