Alle sichtbaren Fenster verstecken und anzeigen wie?

[Nogge]

Ich denke mal, dass alcaeus sowas in der Art meinte:

Delphi-Quellcode:

var // global
  h_arr : array of HWND;
  lng   : Integer;

[...]

procedure TForm1.Button1Click(Sender: TObject); // hide
var h:HWND;
begin
  [...]
  lng:=0;
  while h > 0 do
  begin
    if IsWindowVisible(h) then
    begin
      inc(lng);
      SetLength(h_arr,lng);
      h_arr[lng-1]:=h;
      ShowWindow(h,SW_HIDE);
    end;
    h:=GetNextWindow(h,GW_HWNDNEXT);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject); // show
var i:Cardinal;
begin
  if lng > 0 then
    for i:=0 to lng-1 do
      ShowWindow(h_arr[i],windows.SW_SHOW);
end;