レジストリの操作について。 (ID:76386)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 度々申し訳ありません。 何度も確認を行いましたが、未だにうまくいきませんでした。 宜しければもう少しお力添えをお願いします。 Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal strValueName As String, ByRef lpReserved As Long, ByVal lngType As Long, lpData As Any, ByRef cbData As Long) As Long Public Const REG_DWORD = 4 Public Const KEY_QUERY_VALUE = &H1 Public Const HKEY_LOCAL_MACHINE = &H80000002 Const ROOTKEY = HKEY_LOCAL_MACHINE Const SUBKEY = "Software\\ABCD\\EFG" Private Function get_reg(key_name As String) As String Dim key As Long Dim nHandle As Long Dim length As Long Dim Ret As Long length = Len(key) 'キーをオープンしてハンドルを得る Ret = RegOpenKeyEx(ROOTKEY, SUBKEY, 0, KEY_QUERY_VALUE, nHandle) key = 0 'HensuはRegOpenKeyExで開いたキーのハンドル Ret = RegQueryValueEx(nHandle, key_name, 0, REG_DWORD, key, length) 'ハンドルを閉じる Call RegCloseKey(nHandle) get_reg = key End Function このソースでRegQueryValueExが87を返します。（RegOpenKeyExは0を） レジストリには、値が既に登録されており、regeditにて確認もしております。 申し訳ありませんが、よろしくお願いします。