Проверка работы программы...

[DimkinStd]

Допустим у меня работает приложение.exe.
Нужно написать прогу,которая считывает его состояние работы каждые 5 секунд и метке Label1.Caption присваивает значение:
0 - работает
1 - не работает
---------------------------
помогите пожалуйста
нужен полный текст программы
желательно с пояснениями к каждой строке

[Prowler]

Что значит - считывает работу программы?
Если хочешь узнать запущена ли программа в данный момент сделай так:
Брось таймер на форму поставаь 5000, счёлкни на нём и напиши где-то следующее:

var
han:Thandle;
begin
han:=findwindow(nil, 'applicationname') //заголовок окна твоего приложения
if han<>0 then label1.caption:='Запущено';
else label1.caption:='не работает';
end;

Всё!

[DimkinStd]

Спасибо огромное!!! Работает!!!
Теперь как это дело сделать,чтобы в трее работало?

[Prowler]

Могу посоветовать компанент CoolTrayIcon - мне его часто советовали, но сам я не пользовался.
Посмотри здесь может ещё жива(не проверял...): http://www.o-delphi.narod.ru/down/komp/cooltray.zip