Procedura:
Public Sub
SetDesktopVisible(ByVal bVisible As Boolean)
Const HKEY_CURRENT_USER = &H80000001
Dim sKey As String
sKey="Software\Microsoft\Windows\_
CurrentVersion\Policies\Explorer"
' Pokud klíč neexistuje
If CheckRegistryKey(HKEY_CURRENT_USER, sKey) = False Then
' Tak ho vytvoříme
CreateRegistryKey HKEY_CURRENT_USER,
sKey
End If
' Nastavení hodnoty
SetRegistryValue HKEY_CURRENT_USER, sKey, _
"NoDesktop",
Abs(Not bVisible)
End Sub
Pro více informací: CheckRegistryKey,
SetRegistryValue, CreateRegistryKey.
|