genesis.frm

操作注册表例子

VERSION 5.00
Begin VB.Form genesis 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "genesis setup setting"
   ClientHeight    =   2190
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6360
   Icon            =   "genesis.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2190
   ScaleWidth      =   6360
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "恢复(&R)"
      Height          =   450
      Left            =   4545
      TabIndex        =   5
      Top             =   915
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始(&S)"
      Height          =   450
      Left            =   4545
      TabIndex        =   2
      Top             =   405
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      Caption         =   " 选择安装盘符 "
      ForeColor       =   &H80000008&
      Height          =   1050
      Left            =   390
      TabIndex        =   0
      Top             =   315
      Width           =   4050
      Begin VB.DriveListBox Drive1 
         BackColor       =   &H80000009&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   300
         TabIndex        =   1
         Top             =   405
         Width           =   3465
      End
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "2007.01.12"
      Height          =   180
      Left            =   480
      TabIndex        =   4
      Top             =   1755
      Width           =   900
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "[e-mail]"
      Height          =   180
      Left            =   4365
      TabIndex        =   3
      Top             =   1755
      Width           =   1530
   End
End
Attribute VB_Name = "genesis"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
On Error Resume Next
ChDir Left(Drive1.Drive, 2) & "\"
MkDir "USERS"
MkDir "TEMP"
MkDir "TMP"
SetKeyValue HKEY_CURRENT_USER, "Environment\", "HOME", UCase(Left(Drive1.Drive, 2)) & "\USERS", REG_SZ
SetKeyValue HKEY_CURRENT_USER, "Environment\", "TEMP", UCase(Left(Drive1.Drive, 2)) & "\TEMP", REG_SZ
SetKeyValue HKEY_CURRENT_USER, "Environment\", "TMP", UCase(Left(Drive1.Drive, 2)) & "\TMP", REG_SZ
MsgBox "设置成功！", , "提示"
End Sub

Private Sub Command2_Click()
'On Error Resume Next
DeleteValue HKEY_CURRENT_USER, "Environment\", "HOME"
DeleteValue HKEY_CURRENT_USER, "Environment\", "TEMP"
DeleteValue HKEY_CURRENT_USER, "Environment\", "TMP"
SetKeyValue HKEY_CURRENT_USER, "Environment\", "TEMP", "%USERPROFILE%\LOCAL SETTINGS\TEMP", REG_SZ  'REG_EXPAND_SZ
SetKeyValue HKEY_CURRENT_USER, "Environment\", "TMP", "%USERPROFILE%\LOCAL SETTINGS\TEMP", REG_SZ   'REG_EXPAND_SZ
MsgBox "[环境变量] 已经恢复初始化状态！", , "提示"
End Sub