Сообщество Чайников

Вопрос

Как сделать, чтобы Delphi-программа отслеживала запускаемые программы в Windows (98SE)? Допустим, чтобы при запуске игры «Сапер» (при запуске Проводника или открытии Word) запускалась Delphi-программа (выдавалось сообщение или производились другие возможные действия).

Ответ

Можно написать программку, которая будет периодически проверять, не появилось ли окно с нужным заголовком.
Для этого моно на форму положить таймер и написать в обработчике OnTimer что-нибудь вроде

uses Windows, Messages;
…
procedure TForm1.Timer1Timer(Sender: TObject);
var
wnd: hWnd;
begin
wnd:=FindWindow(nil, 'Сапер');
if wnd<>0 then //Есть такое окно!
begin
//Здесь делаем, что нам нужно, например, закрываем нафиг это окно
SendMessage(wnd, WM_CLOSE, 0, 0);
end;
end;