Check ob ein Programm nicht mehr reagiert

[Sereby]

vielen dank für die raschen infos.
allerdings funzt der eben erwähnte code leider nicht!

das Programm freezer.exe hat lediglich einen Button der auf Druck folgendes ausführt (endlosschleife)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  repeat
    Self.Visible := True;
  until (1 <> 1);
end;

in der titelleiste steht schon reagiert nicht und cpu auslatung is bei 50% aber isHungUp ist immer True!

edit:
Showmessage(SysErrorMessage(GetLastError));

gibt "Ungültiges Menühandle" wieder!