Object that toggles Icons

Okay, I'll try again(sorry I had a connection issue). There isn't anyway I know of to do this directly. This is because when you change the desktop icons visiblity it is done as a configuration setting and then DesktopX must reload itself. However, you can fake it. First, create a theme with your Desktop Icons visible. Second, create an object that has as its image your chosen wallpaper and make it a toggle style object. Third create a controller object to toggle it. You will have to of course toggle all your other visible desktop objects which can be done by giving them a common group name and then toggling the whole group at one time. Try it out for yourself. No scripting is required to do it this way.  

Here's a VBS script that could be an object (I think):

'desktopicons.vbs - Hide/Show Desktop Icons '© Doug Knox - rev 12/03/99 Option Explicit On Error Resume Next 'Declare variables Dim WSHShell, n, MyBox, p, p1, p2, t, mustboot, errnum, vers Dim itemtype Dim enab, disab, jobfunc Set WSHShell = WScript.CreateObject("WScript.Shell") p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\" p1 = "NoDesktop" p2 = p & p1 itemtype = "REG_DWORD" mustboot = "Log off and back on, or restart your pc to" mustboot = mustboot & vbCR & "effect the changes" enab = "ENABLED" disab = "DISABLED" jobfunc = "Desktop Icons are now " 'This section tries to read the registry key value. If not present an 'error is generated. Normal error return should be 0 if value is 'present t = "Confirmation" Err.Clear n = WSHShell.RegRead (p2) errnum = Err.Number if errnum <> 0 then 'Create the registry key value for NoDesktop with value 0 WSHShell.RegWrite p2, 0, itemtype End If 'If the key is present, or was created, it is toggled 'Confirmations can be disabled by commenting out 'the two MyBox lines below If n = 0 Then n = 1 WSHShell.RegWrite p2, n, itemtype Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t) ElseIf n = 1 then n = 0 WSHShell.RegWrite p2, n, itemtype Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t) End If

Here's a VBS script that could be an object (I think):

Are you stealing Roman's scripts again?

*Goes to inform Roman of the treachery in an attempt to set off a war that will inevitably bring the demise of both, allowing for the rise of Kilo*

'desktopicons.vbs - Hide/Show Desktop Icons '© Doug Knox - rev 12/03/99

  

I'm an idiot!

Why do I like the no script method? lol

k thanks