５１．レジストリのキーを削除する




＜　使用用途　＞
レジストリのキーを削除する

＜　説明　＞
ＡＰＩ関数のRegDeleteKeyを使用します。
RegDeleteKey＝＞レジストリのキーを削除する
　　＜引数＞
　　　　　　hKey&： Rootキー(定数HKEY××参照）
　　　　　　lpSubKey$：Subキー　　
　　＠戻り値＠　　
　　　　 　正常終了のとき ERROR_SUCCESS
　　　　

<　ＳＡＭＰＬＥ　＞
'ここでは「HKEY_LOCAL_MACHINE\Software\VB and VBA program settings\Refresh」を削除します。
'標準モジュール
Public Declare Function RegDeleteKey Lib "ADVAPI32" Alias "RegDeleteKeyA" (ByVal hKey&, ByVal lpSubKey$) As Long

Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const ERROR_SUCCESS = 0&

'ここからはフォームの処理
Private Sub Command1_Click()
　　Dim RootKey As Long　
　　Dim SubKey As String 　
　　Dim Ret As Long
　
　　RootKey=HKEY_LOCAL_MACHINE
　　SubKey="Software\VB and VBA program settings\Refresh"　

　　Ret = RegDeleteKey(RootKey, SubKey)
End Sub