'功    能：設置注冊表中的串值
'參    數：
'          輸入:    plKey                   Long        根鍵名
'                   psKey                   String      主鍵名
'                   psSubKey                String      子鍵名
'                   psKeyValue              String      要設置的串值
'          輸出:    無
'          影響:    glStatus                Long        狀態值
    Dim llKeyID         As Long         '打開鍵的ID
    
    glStatus = ERROR_SUCCESS        '假設成功
    
    '確定參數有效
    If Len(psKey) = 0 Then      '主鍵未設置（子鍵未設置則讀默認值）
        glStatus = REGAGENT_NOKEY
        Exit Sub
    End If
    
    '首先打開主鍵
    glStatus = RegOpenKey(plKey, psKey, llKeyID)
    If glStatus = ERROR_SUCCESS Then    '成功則設置值
        If Len(psKeyValue) = 0 Then     '設為空值
            glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, REG_SZ, 0&, 0&)
        Else        '設為正常值
            glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, REG_SZ, ByVal psKeyValue, Len(psKeyValue) + 1)
        End If
        glStatus = RegCloseKey(llKeyID)
    End If
    
End Sub
Sub gpvSetKeyDwordValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal plKeyValue As Long)
'ok
'功    能：設置注冊表中的雙字值
'參    數：
'          輸入:    plKey                   Long        根鍵名
'                   psKey                   String      主鍵名
'                   psSubKey                String      子鍵名
'                   plKeyValue              Long        要設置雙字值
'          輸出:    無
'          影響:    glStatus                Long        狀態值
    Dim llKeyID         As Long         '打開鍵的ID
    
    glStatus = ERROR_SUCCESS        '假設成功
    
    '確定參數有效
    If Len(psKey) = 0 Then      '主鍵未設置（子鍵未設置則讀默認值）
        glStatus = REGAGENT_NOKEY
        Exit Sub
    End If
    
    '首先打開主鍵
    glStatus = RegOpenKey(plKey, psKey, llKeyID)
    
    If glStatus = ERROR_SUCCESS Then    '成功則設置值
        glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, REG_DWORD, plKeyValue, Len(plKeyValue))
        glStatus = RegCloseKey(llKeyID)
    End If
    
End Sub
Sub gpvSetKeyBinaryValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal plKeyValue As Long)
'ok
'功    能：設置注冊表中的二進制值
'參    數：
'          輸入:    plKey                   Long        根鍵名
'                   psKey                   String      主鍵名
'                   psSubKey                String      子鍵名
'                   plKeyValue              Long        要設置的二進制值
'          輸出:    無
'          影響:    glStatus                Long        狀態值
    Dim llKeyID         As Long         '打開鍵的ID
    
    glStatus = ERROR_SUCCESS        '假設成功
    
    '確定參數有效
    If Len(psKey) = 0 Then      '主鍵未設置（子鍵未設置則讀默認值）
        glStatus = REGAGENT_NOKEY
        Exit Sub
    End If
    
    '首先打開主鍵
    glStatus = RegOpenKey(plKey, psKey, llKeyID)
    
    If glStatus = ERROR_SUCCESS Then    '成功則設置值
        glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, REG_BINARY, plKeyValue, Len(plKeyValue))
        glStatus = RegCloseKey(llKeyID)
    End If
    
End Sub
Function gflCreateKey(ByVal plKey As Long, ByVal psKey As String) As Long
'ok
'功    能：創建注冊表中的主鍵
'參    數：
'          輸入:    plKey                   Long        根鍵名
'                   psKey                   String      主鍵名
'          輸出:    gflCreateKey            Long        創建的主鍵ID
'          影響:    glStatus                Long        狀態值
    Dim llKeyID     As Long     '鍵ID
    
    glStatus = ERROR_SUCCESS        '假設成功
    
    '確定參數有效
    If Len(psKey) = 0 Then      '主鍵未設置
        glStatus = REGAGENT_NOKEY
        Exit Function
    End If
        
    '創建主鍵
    glStatus = RegCreateKey(plKey, psKey, llKeyID)
    If glStatus = ERROR_SUCCESS Then
        gflCreateKey = llKeyID
    End If
    
End Function
Sub gpvDeleteKey(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String)
'ok
'功    能：刪除注冊表中的主鍵
'參    數：
'          輸入:    plKey                   Long        根鍵名
'                   psKey                   String      主鍵名
'                   psSubKey                String      子鍵名
'          輸出:    無
'          影響:    glStatus                Long        狀態值
    Dim llKeyID     As Long     '鍵ID
    
    glStatus = ERROR_SUCCESS        '假設成功
    
    '確定參數有效
    If Len(psKey) = 0 Then      '主鍵未設置
        glStatus = REGAGENT_NOKEY
        Exit Sub
    End If
        
    '利用創建主鍵判斷是否存在主鍵
    glStatus = RegCreateKey(plKey, psKey, llKeyID)
    glStatus = RegDeleteKey(llKeyID, ByVal psSubKey)
        
End Sub
Sub gpvDeleteKeyValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String)
'ok
'功    能：刪除注冊表中的鍵值
'參    數：
'          輸入:    plKey                   Long        根鍵名
'                   psKey                   String      主鍵名
'                   psSubKey                String      子鍵名
'          輸出:    無
'          影響:    glStatus                Long        狀態值

    Dim llKeyID     As Long     '鍵ID
    
    glStatus = ERROR_SUCCESS        '假設成功
    
    '確定參數有效
    If Len(psKey) = 0 Then      '主鍵未設置
        glStatus = REGAGENT_NOKEY
        Exit Sub
    End If
        
    '利用創建主鍵判斷是否存在主鍵
    glStatus = RegCreateKey(plKey, psKey, llKeyID)
    glStatus = RegDeleteValue(llKeyID, ByVal psSubKey)
        
End Sub

'Function gfsGetKeyStringValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String) As String
'功    能：從注冊表中取得串值

'Function gflGetKeyBinaryValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String) As Long
'功    能：從注冊表中取得二進制值

'Function gflGetKeyDwordValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String) As Long
'功    能：從注冊表中取得雙字值

'Sub gpvSetKeyStringValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal psKeyValue As String)
'功    能：設置注冊表中的串值

'Sub gpvSetKeyDwordValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal plKeyValue As Long)
'功    能：設置注冊表中的雙字值

'Sub gpvSetKeyBinaryValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal plKeyValue As Long)
'功    能：設置注冊表中的二進制值

'Function gflCreateKey(ByVal plKey As Long, ByVal psKey As String) As Long
'功    能：創建注冊表中的主鍵

'Sub gpvDeleteKey(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String)
'功    能：刪除注冊表中的主鍵

'Sub gpvDeleteKeyValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String)
'功    能：刪除注冊表中的鍵值