Nastavení viditelnosti desktopu

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.

Zpět

Autor: The Bozena