function ReagiertEs(Nam: PChar): integer; 
var 
  C: Cardinal; 
  H: THandle; 
begin 
  H := FindWindow(nil, Nam); 
  if H <> 0 then begin 
    result := SendMessageTimeout(H, WM_NULL, 0, 0, 
      SMTO_NORMAL or SMTO_ABORTIFHUNG, 100, C); 
  end else result := maxint; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  Nachricht: string; 
begin 
  case ReagiertEs('Dokument - WordPad') of 
    0: Nachricht := 'Reagiert nicht mehr.'; 
    maxint: Nachricht := 'Nicht gefunden!' 
  else Nachricht := 'Alles OK'; 
  end; 
  showmessage(Nachricht); 
end;