desktopset.frm

软件虽然小但可以隐藏磁盘分区和格式化

VERSION 5.00
Begin VB.Form DeskTopSet 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "DeskTopSet"
   ClientHeight    =   2190
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2925
   Icon            =   "DeskTopSet.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2190
   ScaleWidth      =   2925
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      Height          =   2175
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   2895
      Begin VB.CheckBox NoIsShortCut 
         Caption         =   "去掉桌面快捷方式下的小箭头"
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   1320
         Width           =   2655
      End
      Begin VB.CheckBox ShowEdition 
         Caption         =   "在桌面上显示Windows版本"
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   960
         Width           =   2415
      End
      Begin VB.CommandButton CmdCancel 
         Caption         =   "返  回"
         Height          =   375
         Left            =   1680
         TabIndex        =   4
         Top             =   1680
         Width           =   855
      End
      Begin VB.CommandButton CmdOk 
         Caption         =   "确  定"
         Height          =   375
         Left            =   240
         TabIndex        =   3
         Top             =   1680
         Width           =   855
      End
      Begin VB.CheckBox NoDeskTop 
         Caption         =   "隐藏桌面上的所有图标"
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   600
         Width           =   2175
      End
      Begin VB.CheckBox NoRightKey 
         Caption         =   "在桌面上禁用鼠标右键"
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   2295
      End
   End
End
Attribute VB_Name = "DeskTopSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
Unload Me
End Sub

Private Sub CmdOk_Click()
'禁用桌面右键
If NoRightKey.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, "explorer", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoViewContextMenu", 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, "explorer", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoViewContextMenu", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'隐藏桌面所有图标
If NoDeskTop.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, "explorer", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDeskTop", 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, "explorer", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "NoDeskTop", 0, 4, 0, 4)
  SS = RegCloseKey(ID)
End If
'在桌面上显示WIN版本
If ShowEdition.Value = 1 Then
  SS = RegOpenKeyEx(&H80000001, "Control Panel", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Desktop", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "PaintDesktopVersion", 0, 1, ByVal "1", 4)
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000001, "Control Panel", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Desktop", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "PaintDesktopVersion", 0, 1, ByVal "0", 4)
  SS = RegCloseKey(ID)
End If
'去掉桌面快捷方式下的小箭头
If NoIsShortCut.Value = 1 Then
  SS = RegOpenKeyEx(&H80000000, "lnkfile", 0, KEY_ALL_ACCESS, ID)
  SS = RegDeleteValue(ID, "IsShortCut")
  SS = RegOpenKeyEx(&H80000000, "piffile", 0, KEY_ALL_ACCESS, ID)
  SS = RegDeleteValue(ID, "IsShortCut")
  SS = RegCloseKey(ID)
Else
  SS = RegOpenKeyEx(&H80000000, "lnkfile", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "IsShortCut", 0, 1, ByVal "1", 4)
  SS = RegOpenKeyEx(&H80000000, "piffile", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "IsShortCut", 0, 1, ByVal "1", 4)
  SS = RegCloseKey(ID)
End If
MsgBox "您已设置成功", vbSystemModal, "DeskTopSet"
Unload Me
End Sub

Private Sub Command1_Click()
  SS = RegOpenKeyEx(&H80000001, "Control Panel", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Desktop", 0, KEY_ALL_ACCESS, ID)
  SS = RegSetValueEx(ID, "ScreenSaveActive", 0, 1, ByVal "0", 4)
  SS = RegCloseKey(ID)
End Sub

Private Sub Form_Load()
'桌面右键
Dim NumRightKey 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, "explorer", 0, KEY_ALL_ACCESS, ID)
  SS = RegQueryValueEx(ID, "NoViewContextMenu", 0, 4, NumRightKey, 4)
  SS = RegCloseKey(ID)
  If NumRightKey = 1 Then
    NoRightKey.Value = 1
  Else
    NoRightKey.Value = 0
  End If
'桌面图标
Dim NumDeskTopSet 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, "explorer", 0, KEY_ALL_ACCESS, ID)
  SS = RegQueryValueEx(ID, "NoDeskTop", 0, 4, NumDeskTopSet, 4)
  SS = RegCloseKey(ID)
  If NumDeskTopSet = 1 Then
    NoDeskTop.Value = 1
  Else
    NoDeskTop.Value = 0
  End If
'显示版本
Dim NumShowEdition As String * 10
  SS = RegOpenKeyEx(&H80000001, "Control Panel", 0, KEY_ALL_ACCESS, ID)
  SS = RegOpenKeyEx(ID, "Desktop", 0, KEY_ALL_ACCESS, ID)
  SS = RegQueryValueEx(ID, "PaintDesktopVersion", 0, 1, ByVal NumShowEdition, 14)
  SS = RegCloseKey(ID)
  If NumShowEdition = 1 Then
    ShowEdition.Value = 1
  Else
    ShowEdition.Value = 0
  End If
'图标小箭头
Dim ShortCut As String * 10
  SS = RegOpenKeyEx(&H80000000, "lnkfile", 0, KEY_ALL_ACCESS, ID)
  SS = RegQueryValueEx(ID, "IsShortcut", 0, 1, ByVal NumShowEdition, 14)
  If SS = ERROR_SUCCESS Then
    NoIsShortCut.Value = 0
  Else
    NoIsShortCut.Value = 1
  End If
End Sub