Denne artikkelen viser hvordan du skjule alle ikonene på desktop.var DesktopWnd: HWND; prosedyre TForm1.Button1Click (Sender: TObject), begynner DesktopWnd: = FindWindow ( 'Progman', 'Program Manager'); hvis DesktopWnd > 0 da begynne DesktopWnd: = FindWindowEx (DesktopWnd, 0, 'SHELLDLL_DefView', null); hvis DesktopWnd > 0 da DesktopWnd: = FindWindowEx (DesktopWnd, 0, 'SysListView32', null); slutt; hvis DesktopWnd = 0 så ShowMessage ( 'Feil - kunne ikke finne desktop') else Showwindow (DesktopWnd, SW_HIDE); end;