Net Send abfangen !? (zum Zweiten)

[Luckie]

Einfach: Mit einem Timer die Messagebox suchen und das STATIC auslesen, dann die Messagebox schließen.

Schwer: Das ganze in einem Thread machen.

Hilfe von mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  hWnd, hStatic,
  hButton       : Cardinal;
  buffer: array[0..1024] of Char;
begin
  { Nachrichtendienst-Fenster finden }
  hWnd := FindWindow(nil, 'Nachrichtendienst '); { man achte auf das Leerzeichen beim Fenstertitek }
  if hWnd = INVALID_HANDLE_VALUE then
    exit;
  { Handle vom Label über die ID holen }
  hStatic := GetDlgItem(hWnd, $FFFF);
  { Text klauen }
  SendMessage(hStatic, WM_GETTEXT, sizeof(buffer), Integer(@buffer));
  { Anzeigen }
  Label1.Caption := String(buffer);
  { Handle vom Button holen }
  hButton := GetDlgItem(hWnd, $2);
  { und drauf klicken 2x, sonst geht es nicht zu }
  SendMessage(hButton, BM_CLICK, 0, 0);
  SendMessage(hButton, BM_CLICK, 0, 0);
end;