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.
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