Alle Programme schliessen

**capo**

Ich würde mir gerne einiges geklicke ersparen und alle geöffneten programme auf einmal schliessen.
habe ein wenig rumprobiert und das ist dabei rausgekommen.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  h: HWnd;

begin

form1.Visible:=false;

  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;

wenn ich auf desktop anzeigen klicke und dann auf meinen button klicke dann verschwinden auch alle icons auf meinem desktop.
wie geht das ohne das sich der komplette desktop entleert?

capo

Alle Programme schliessen

Alle Programme schliessen

Forumregeln