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

Вопрос

Delphi 6, Win XP, подскажите пожалуйста, как узнать, что запустилось или работает приложение (например Блокнот), и завершить его из моей программы. Если можно пример. %%%Вот так :

uses windows, messages; var wnd: HWND; begin //Ищем окно работающего приложения по его классу. //Если нужно найти окно с конкретным заголовком, //можно использовать FindWindow(nil, "Какой-то заголовок") wnd:=FindWindow("Notepad",nil); if wnd=0 then ShowMessage("Окно не найдено") //Если приложение не запущено else SendMessage(wnd, WM_CLOSE, 0,0);//Говорим окну,что пора закрываться end;

Из конференции Expert_FAQ

Ответ