RegQueryValueExstrの結果が得られないです。 (ID:91305)

名前

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

本文 RegQueryValueExstr を使用してレジストリを取得する処理を書いています。 ですが標準exeで作成したプロジェクトではうまく結果が得られましたが Active dllで作成したプロジェクトでは結果が得られませんでした。 RegQueryValueExstrの結果は0で成功しているように見えますが、 値が返ってこないです。ソースの内容は下記のとおりまったく一緒にしました。どうか解決方法を教えてください。 RootKey = HKEY_CURRENT_USER SubKey = "Software\Microsoft\MediaPlayer\Preferences" MsgBox ("Hensu: " & CStr(Hensu)) 'キーをオープンしてハンドルを得る Ret = RegOpenKeyEx(RootKey, SubKey, 0, 1, Hensu) MsgBox ("Ret: " & CStr(Ret)) MsgBox ("Hensu: " & CStr(Hensu)) 'Nameに値を取得したい名前を入れる 'Name = "InstallDir" Name = "Height" 'バッファを確保する Valuedate = String(500, Chr(0)) Length = Len(Valuedate) '長さ 'HensuはRegOpenKeyExで開いたキーのハンドル Ret = RegQueryValueExstr(Hensu, Name, 0, 0, Valuedate, Length) MsgBox (CStr(Ret)) MsgBox (CStr(Hensu)) MsgBox (Valuedate) 'ハンドルを閉じる Call RegCloseKey(Hensu)