Hiding all the Desktop Icons ??

[Zleepy]

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....

[Aaron Young]

To hide all Desktop Icons..

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..

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
aarony@redwingsoftware.com
adyoung@win.bright.net

[Compwiz]

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
tom@e-bizinternet.com
ICQ: 15743470
AIM: TomY10
PERL, JavaScript and VB Programmer