📄 display.frm

📁 软件虽然小但可以隐藏磁盘分区和格式化
💻 FRM
字号:
VERSION 5.00
Begin VB.Form DisPlay 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "DisPlay"
   ClientHeight    =   2175
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2760
   Icon            =   "DisPlay.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2175
   ScaleWidth      =   2760
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Height          =   2175
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   2760
      Begin VB.CommandButton CmdCancel 
         Caption         =   "返  回"
         Height          =   375
         Left            =   1560
         TabIndex        =   6
         Top             =   1680
         Width           =   855
      End
      Begin VB.CommandButton CmdOk 
         Caption         =   "确  定"
         Height          =   375
         Left            =   320
         TabIndex        =   5
         Top             =   1680
         Width           =   855
      End
      Begin VB.CheckBox NoBackground 
         Caption         =   "隐藏显示属性的背景页面"
         Height          =   255
         Left            =   240
         TabIndex        =   4
         Top             =   240
         Width           =   2415
      End
      Begin VB.CheckBox NoScr 
         Caption         =   "隐藏显示属性的屏保页面"
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   600
         Width           =   2415
      End
      Begin VB.CheckBox NoGuise 
         Caption         =   "隐藏显示属性的外观页面"
         Height          =   255
         Left            =   240
         TabIndex        =   2
         Top             =   960
         Width           =   2415
      End
      Begin VB.CheckBox NoSet 
         Caption         =   "隐藏显示属性的设置页面"
         Height          =   255
         Left            =   240
         TabIndex        =   1
         Top             =   1320
         Width           =   2415
      End
   End
End
Attribute VB_Name = "DisPlay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

End Sub

Private Sub CmdCancel_Click()
Unload Me
End Sub

Private Sub CmdOk_Click()
'选中NOBACKGROUND
If NoBackground.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDispBackgroundPage", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDispBackgroundPage", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'选中NOSCR
If NoScr.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDispScrSavPage", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDispScrSavPage", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'选中NOGUISE
If NoGuise.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDispAppearancePage", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDispAppearancePage", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'选中NOSET
If NoSet.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDispSettingsPage", 0, 4, 1, 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDispSettingsPage", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
MsgBox "您已设置成功", vbSystemModal, "DisPlay"
Unload Me
End Sub

Private Sub Form_Load()
'背景
Dim NumBackGround As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegQueryValueEx(ID, "NoDispBackgroundPage", 0, 4, NumBackGround, 4)
  SS = RegCloseKey(ID)
  If NumBackGround = 1 Then
    NoBackground.Value = 1
  Else
    NoBackground.Value = 0
  End If
'屏保
Dim NumScr As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegQueryValueEx(ID, "NoDispScrSavPage", 0, 4, NumScr, 4)
  SS = RegCloseKey(ID)
  If NumScr = 1 Then
    NoScr.Value = 1
  Else
    NoScr.Value = 0
  End If
'外观
Dim NumGuise As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegQueryValueEx(ID, "NoDispAppearancePage", 0, 4, NumGuise, 4)
  SS = RegCloseKey(ID)
  If NumGuise = 1 Then
    NoGuise.Value = 1
  Else
    NoGuise.Value = 0
  End If
'设置
Dim NumSet As Long
  SS = RegOpenKeyEx(&H80000001, "software", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "microsoft", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "windows", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "currentversion", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "policies", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "system", 0, KEY_ALL_ACCESS, ID)
  SS = RegQueryValueEx(ID, "NoDispSettingsPage", 0, 4, NumSet, 4)
  SS = RegCloseKey(ID)
  If NumSet = 1 Then
    NoSet.Value = 1
  Else
    NoSet.Value = 0
  End If
End Sub
💿 文件大小 569 K
👤 上传用户 fitnes51
📂 所属分类磁盘编程
🏷️ 相关标签

#软件 #磁盘 #分区 #格式化
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -