' Set whether the desktop is visible' Note: requires the SetRegistryValue, CheckRegistryKey and CreateRegistryKey ' routines, you can find them in the CodeBank' Note 2: the setting does not take effect until Explorer is restarted' Example:' SetDesktopVisible FalsePublic Sub SetDesktopVisible(ByVal bVisible As Boolean) Const HKEY_CURRENT_USER = &H80000001 Dim sKey As String sKey = "SoftwareMicrosoftWindowsCurrentVersionPoliciesExplorer" ' if the Key does not exist If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then ' create the key CreateRegistryKey HKEY_CURRENT_USER, sKey End If ' set the value SetRegistryValue HKEY_CURRENT_USER, sKey, "NoDesktop", Abs(Not bVisible) End Sub
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
