Eingehende NetSend Nachrichten automatisch löschen

[BungeeBug]

HI,

bei mir kommen soviele an wie ich schicke ....

aber evl. hilft das hier

Delphi-Quellcode:

procedure close_netsend_msg;
begin
 while findwindow(nil, 'Nachrichtendienst ') <> 0 do
  begin
   SendMessage(findwindow(nil, 'Nachrichtendienst '),WM_Close,0,0);
  end;
end;

Damit sollten wirkliche alle Fenster ins Nichts geschickt werden.