Fenster mit bestimmten Titel automatisch schließen

[Monsta3]

Geht leider nicht ...

Delphi-Quellcode:

procedure TMainForm.btnCloseAllMsgWindowsClick(Sender: TObject);
var
  WindowHandle: hWnd;
const
  NETSEND_WINDOW_TITLE = 'Nachrichtendienst ';
begin
  repeat
    WindowHandle := FindWindow(nil, NETSEND_WINDOW_TITLE);
    if WindowHandle <> 0 then
      SendMessage(WindowHandle, WM_SYSCOMMAND, SC_CLOSE, 0);
  until WindowHandle = 0;
end;