Prozess killen, wenn nur window handle bekannt?

[ASM]

Zitat von Jumpy:

Ich hab mir einen Window-Handle "erobert".

Wie kille ich den dazugehörigen Prozess?

Code:

const
  PROCESS_MURDER = $0001;

// Target = Window Handle, nicht Process Handle (wie gewünscht)!
procedure KillProcess(Target: Hwnd);
var
  pid: Cardinal;
  ProcessHandle: THandle;
begin
  GetWindowThreadProcessId(Target, @pid);
  ProcessHandle := OpenProcess(PROCESS_MURDER, FALSE, pid);
  TerminateProcess(ProcessHandle, 4);
end;