Закрытие программы

← →
Metotrone © (2002-09-21 00:35) [0]

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

← →
Shrek © (2002-09-21 02:31) [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);

Закрытие программы Найти похожие ветки