Ocultar los iconos en el escritorio

Ocultar los iconos en el escritorio

Ocultar los iconos en el escritorio : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se muestra como ocultar todos los iconos en el escritorio.
var
& nbsp & nbsp DesktopWnd : HWND
procedure TForm1.Button1Click(Sender: TObject)
begin
& nbsp & nbsp DesktopWnd := FindWindow('Progman', 'Gerente del Programa')
& nbsp & nbsp si DesktopWnd > 0 then begin
& nbsp & nbsp & nbsp & nbsp DesktopWnd := FindWindowEx(DesktopWnd, 0, 'SHELLDLL_DefView', nil)
& nbsp & nbsp & nbsp & nbsp si DesktopWnd > 0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DesktopWnd := FindWindowEx(DesktopWnd, 0, 'SysListView32', nil)
& nbsp & nbsp final
& nbsp & nbsp si DesktopWnd = 0, entonces
& nbsp & nbsp & nbsp & nbsp ShowMessage ('Error - no se puede encontrar escritorio')
& nbsp & nbsp else
& nbsp & nbsp & nbsp & nbsp ShowWindow(DesktopWnd, SW_HIDE)
fin