Einzelnen Beitrag anzeigen

capo

Registriert seit: 7. Jul 2006
453 Beiträge
 
Delphi 11 Alexandria
 
#10

Re: Alle Programme schliessen

  Alt 23. Aug 2006, 06:39
hallo

Hallo Luckie
ist jetzt keine antwort auf deine frage - aber,
im prinzip bin ich mit meiner lösung zufrieden.
das einzigste was mich daran stört ist, dass der dektop verschwindet.
ich hätte gerne eine funktion, ähnlich der "desktop anzeigen" icon in windows, halt werden die fenster gleich geschlossen.
das bringt mich auf eine idee, man könnte doch überprüfen welche programme momentan in der taskleiste angezeigt werden und diese dann schliessen?


Hi SirThornberry
ja, aber so fit bin ich ehrlich gesagt nicht.
das kann ich noch verstehen, gerade so.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWnd;
begin
  h := handle;
  while h > 0 do
  begin
    if isWindowVisible(h) then
      postmessage(h, WM_SYSCOMMAND, SC_ClOSE, 0);
    h := getnextwindow(h, GW_HWNDNEXT);
  end;
end;
gruss und danke, capo
Hotte
  Mit Zitat antworten Zitat