Published on November 21, 2006 By Jaramia In DesktopX
I there a way you can Create an object that can change if you see or dont see the icons on your desktop with a click of a button??
Comments
on Nov 21, 2006
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.  
on Nov 21, 2006
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




on Nov 21, 2006
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*
on Nov 21, 2006
'desktopicons.vbs - Hide/Show Desktop Icons
'© Doug Knox - rev 12/03/99


  
on Nov 21, 2006
I'm an idiot!
on Nov 21, 2006
Why do I like the no script method? lol
on Nov 22, 2006
k thanks