５２．レジストリのキーを開く(ハンドルの取得）




＜　使用用途　＞
レジストリのキーを開く(ハンドルの取得）

＜　説明　＞
ＡＰＩ関数のRegOpenKeyExを使用します。
RegOpenKeyEx＝＞レジストリのキーを開く
　　＜引数＞
　　　　　hKey&,：Rootキー（定数HKEY××参照）
　　　　　lpSubKey$：Subキー
　　　　　ulOptions&： 常に0
　　　　　samDesired&：常に1
　　　　　phkResult&：開いたキーのハンドルを受取る変数
　　＠戻り値＠　　
　　　　 　正常終了のとき ERROR_SUCCESS
　　　　

<　ＳＡＭＰＬＥ　＞
'ここでは>「HKEY_LOCAL_MACHINE\Software\VB and VBA program settings\Refresh」を開きます。(ハンドルを取得する）
'標準モジュール
Public Declare Function RegOpenKeyExLib "ADVAPI32" Alias "RegOpenKeyExA" (ByVal hKey&, ByVal lpSubKey$, ByVal ulOptions&, ByVal samDesired&, phkResult&) 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"　

　　'Hensuにキーのハンドルが入る
　　Ret = RegOpenKeyEx(RootKey, SubKey,0,1,Hensu)
End Sub