msgopreg.bas

vb做的数据库 客户管理系统

Attribute VB_Name = "msgOpReg"
'操作注册表的模块
Function Reg_Write(key As String, Value As String, WrType As String)
    On Error GoTo Error
    Dim RG
    Set RG = CreateObject("wscript.shell")
    If WrType = "" Then
        RG.RegWrite key, Value
    Else
        RG.RegWrite key, Value, WrType
    End If
    Exit Function
Error:      Err.Clear
End Function



Function Reg_Read(key As String) As String
    On Error GoTo Error
    Dim RG
    Set RG = CreateObject("wscript.shell")
    Reg_Read = RG.regread(key)
    Exit Function
Error:         Err.Clear
End Function


Function Reg_Del(key As String)
    On Error GoTo Error
    Dim RG
    Set RG = CreateObject("wscript.shell")
    RG.RegDelete key
    Exit Function
Error:         Err.Clear
End Function