Source file: /~heha/hsn/t_und_m.zip/SRC/MAKEVIS.PAS

{$A+,B-,D+,F-,G+,I-,K+,L+,N-,P+,Q-,R-,S-,T+,V+,W-,X+,Y+}
{$M 12000,8192}
program MakeVis;
{$C MOVEABLE PRELOAD PERMANENT}	{gleiche Attribute wie Unit SYSTEM}
{$D Bringt Fenster in den Desktop}
uses WinProcs,WinTypes,Win31,WUtils;

var
 FullScreenRect:TRect;
 wpi: THandle;	{WinPosInfo}

function EnumProc(Wnd:HWnd;lParam:LongInt):Bool; export;
 var
  R:TRect;
 begin
  GetWindowRect(Wnd,R);
  if IsWindowVisible(Wnd) and MoveRectIntoRect(R,FullScreenRect)
  then wpi:=DeferWindowPos(wpi,Wnd,0,R.left,R.top,0,0,
    SWP_NOSIZE or SWP_NOZORDER or SWP_NOACTIVATE);
  EnumProc:=true;
 end;

begin
 GetFullScreenRect(FullScreenRect);
 wpi:=BeginDeferWindowPos(10);
 EnumWindows(@EnumProc,0);
 EndDeferWindowPos(wpi);
end.