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