admin 管理员组

文章数量: 1184232

编程语言: visual basic

      'Windows 2K之前的操作系统(Win9x)
      If Not GetOStype().blnW2K Then
      
        '修复方法:将Hidden值设为1(0 - 不显示隐藏与系统文件 1 - 显示所有 2 - 不显示隐藏)
        Call sdaSetRegValue("HKEY_USERS", ".DEFAULT/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced", "Hidden", 1)
      
      Else                      'Win2K, XP, 2003
      
        '如果ShowAll的项不存在
        If sdaTestKeyExist("HKEY_CURRENT_USER", "Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/ShowAll") = False Then
  
          '修复方法setp1:创建ShowAll的注册表项
          Call sdaCreateKey("HKEY_CURRENT_USER", "Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/ShowAll")
    
          '修复方法step2:将ShowAll的CheckedValue设定值为1
          Call sdaSetRegValue("HKEY_CURRENT_USER", "Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/ShowAll", "CheckedValue", 1)
      
        '如果ShowAll的CheckedValue被设为0
        ElseIf Val(sdaGetRegEntry("HKEY_CURRENT_USER", "Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/ShowAll", "CheckedValue")) = 0 Then
  
          '修复方法:将ShowAll的CheckedValue设定值为1
          Call sdaSetRegValue("HKEY_CURRENT_USER", "Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Folder/Hidden/ShowAll", "CheckedValue", 1)
      
        End If
    
        '显示隐藏的文件和文件夹
        Call sdaSetRegValue("HKEY_CURRENT_USER", "Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced", "Hidden", 1)
        
      End If
 

本文标签: 不显示隐 如果 编程