Toggle desktop icons

  • Thread starter Thread starter Ted
  • Start date Start date
T

Ted

Hello
I would like a little toggle in my quicklaunck bar which would hide all the
desktop icons so I can see my wallpaper. Is there such a thingy?
Thanks
Tes
 
Ted said:
Hello
I would like a little toggle in my quicklaunck bar which would hide all the
desktop icons so I can see my wallpaper. Is there such a thingy?

In Delphi ...

var
DesktopWnd : HWND;

procedure TForm1.HideDesktopIcons;
begin
DesktopWnd := FindWindow('Progman', 'Program Manager');
if DesktopWnd > 0 then begin
DesktopWnd := FindWindowEx(DesktopWnd, 0, 'SHELLDLL_DefView', nil);
if DesktopWnd > 0 then
DesktopWnd := FindWindowEx(DesktopWnd, 0, 'SysListView32', nil);
end; { if DesktopWnd > 0}
if DesktopWnd = 0 then
ShowMessage('Error - could not find desktop')
else
ShowWindow(DesktopWnd, SW_HIDE);
end;

procedure TForm1.ShowDesktopIcons;
begin
if DesktopWnd > 0 then
ShowWindow(DesktopWnd, SW_SHOW);
end;

.... but if you must, you could translate it to C <g>.

Alan Lloyd
 
Back
Top