RegQueryValueExstrの結果が得られないです。

jin 2005-08-05 23:28:07 No: 91305

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)