Hiding all the Desktop Icons ??

Is there a way to hide every icon on the desktop, without using "Show as Webpage" ?
Or how do I disable the desktop, I know it's possible to disable the desktop....

To hide all Desktop Icons..

Code:

---

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Private Sub Command1_Click()
    Static bDisable As Boolean
    Dim lHwnd As Long
    bDisable = Not bDisable
    lHwnd = FindWindowEx(0, 0, "Progman", vbNullString)
    ShowWindow lHwnd, IIf(bDisable, SW_HIDE, SW_SHOW)
End Sub

---

To Disable all Desktop Icons..

Code:

---

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Private Sub Command1_Click()
    Static bDisable As Boolean
    Dim lHwnd As Long
    bDisable = Not bDisable
    lHwnd = FindWindowEx(0, 0, "Progman", vbNullString)
    lHwnd = FindWindowEx(lHwnd, 0, "SHELLDLL_DefView", vbNullString)
    lHwnd = FindWindowEx(lHwnd, 0, "SysListView32", vbNullString)
    ShowWindow lHwnd, IIf(bDisable, SW_HIDE, SW_SHOW)
End Sub

---

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]

You could also see this page: http://www.vb-world.net/registry/registry3/index5.html

It tells you how to do so using the registry.

------------------
Tom Young, 14 Year Old
[email protected]
ICQ: 15743470
AIM: TomY10
PERL, JavaScript and VB Programmer