Alle Fenster mit einem bestimmten Titel schließen

[Delphi Star]

Wie kann ich zum Beispiel alle Fenster die den Titel "Delphi-Praxis :: Das Delphi Forum - Mozilla Firefox" schließen :?:

[Khabarakh]

Ich kenne mich mit der Win-API zwar überhaupt nicht aus, aber FindWindow und WM_QUIT sollte es sein.

[Die Muhkuh]

Delphi-Quellcode:

var
  aHandle: HWND;
begin
  aHandle := FindWindow(nil, 'Caption');

  if aHandle <> 0 then
  begin
    SendMessage(aHandle, WM_CLOSE, 0, 0);
  end;

  aHandle := 0;
end;

[JasonDX]

Zitat:

Zitat von Spider

Delphi-Quellcode:

var
  aHandle: HWND;
begin
  aHandle := FindWindow(nil, 'Caption');

  if aHandle <> 0 then
  begin
    SendMessage(aHandle, WM_CLOSE, 0, 0);
  end;

  aHandle := 0;
end;

eher so:

Delphi-Quellcode:

var
  aHandle: HWnd;
begin
  aHandle := FindWindow(nil, 'Caption');
  while aHandle <> 0 do begin
    SendMessage(aHandle, WM_CLOSE, 0, 0);
    aHandle := FindWindow(nil, 'Caption');
  end;
end;

du beendest nämlich nur ein fenster mit dem titel ;)

[Die Muhkuh]

Zitat:

Zitat von Chimaira

du beendest nämlich nur ein fenster mit dem titel ;)

Ich weiß, aber ich dachte er kann selbst denken ;)

[Delphi Star]

Kann man irgendwie verhindern, dass gewartet wird bis sich die zu schließende Anwendung beendet hat :?:

[SirThornberry]

anstelle von SendMessage, PostMessage nehmen