| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Закрытие программы [D6, Win95/98]

Metotrone ©   (2002-09-21 00:35:00) 

Как послать сообщение на закрытие программы, если не знаешь ее дескриптора?

---

Shrek   (2002-09-21 02:31:00) [1]

const
PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow, h : HWND;

h := FindWindow(nil, "Window name");
if h <> 0 then
begin
GetWindowThreadProcessID(h, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);

---

Наверх