Fenster mit bestimmten Titel automatisch schließen

[SirThornberry]

oder einfach findwindow

[Monsta3]

Ich hab das nun mit FindWindow und dem Leerzeichen nach dem Fenster-Namen gemacht. Nun möchte ich (ja, heute will ich viel ;) ), dass bei Klick auf einen Button alle offenen Nachrichtenfenster geschloßen werden. Ich hab da an so etwas gedacht:

Code:

while FindWindow(....) = true do
begin
   ..der code zum schließen..
end

Geht das so und könnte mir das jemand vielleicht richtig sagen?

[SirThornberry]

Delphi-Quellcode:

var LWindowHandle: Hwnd;
begin
  repeat
    LWindowHandle := FindWindow(nil, 'Fenstertitel');
    if LWindowHandle <> 0 then
      //der code zum schließen
  until LWindowHandle = 0;

[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;

[SirThornberry]

an welcher stelle schlägts fehl? Findet findwindow nix?

[Monsta3]

Er schließt immer nur ein Fenster. Bei 5 Nachrichten muss ich also 5 mal auf den Btn klicken. ;)

[SirThornberry]

wird daran liegen das immer nur ein fenster sichtbar ist. Plaziere einfach einen Timer auf dem Fomular und das was jetzt im onClick steht machst du dann in das "OnTimer"-Event

[Monsta3]

Vielen, vielen Dank, läuft perfekt!! :-D