Author: Jonas Bilinkevicius

How to close a non-responding application

Answer:

1   { ... }
2   const
3     PROCESS_MURDER = $0001;
4   var
5     pid: Cardinal;
6     ProcessHandle: THandle;
7   begin
8     { ... }
9     GetWindowThreadProcessId(WindowHandleOfHangingApp, @pid);
10    ProcessHandle := OpenProcess(PROCESS_MURDER, FALSE, pid);
11    TerminateProcess(ProcessHandle, 4);
12    { ... }