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

名前

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

本文 RegQueryValueExの宣言は， LONG WINAPI RegQueryValueEx(HKEY hKey, LPTSTR lpValueName, LPDWORD lpReserved, LPDWORD lpType, LPBYTE lpData, LPDWORD lpcbData); です。 これをVBの宣言に直すと， Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" ( ByVal hKey As Long, ByVal strValueName As String, ByRef lpReserved As Long, ByRef lngType As Long, lpData As Any, ByRef cbData As Long) As Long となります。 ＃冗長ですが，ByRefを付けました。 つまり，種別は取得されるものであって，指定するものではないです。 よって， Dim lngType As Long, cbData As Long Dim Result As Long cbData = Len(key) Result = RegQueryValueEx(nHandle, key_name, ByVal 0&, lngType, key, cbData) If Result <> ERROR_SUCCESS Then Rem エラー時の処理 End If のような形式になります。