ab.com コミュニティ

Const ProductIDRegPath = "SOFTWARE\Microsoft\Internet Explorer\Registration"
Const ProductIDRegName = "ProductId"

Dim ProductId As String
Dim BufSize As DWord
Dim hKey As HKEY
If RegOpenKeyEx(HKEY_LOCAL_MACHINE As HKEY, ProductIDRegPath, 0, KEY_QUERY_VALUE, hKey) = ERROR_SUCCESS Then
	If RegQueryValueEx(hKey, ProductIDRegName, 0, 0, 0, VarPtr(BufSize)) = ERROR_SUCCESS Then
		ProductId = ZeroString(BufSize)
		If RegQueryValueEx(hKey, ProductIDRegName, 0, 0, StrPtr(ProductId), VarPtr(BufSize)) = ERROR_SUCCESS Then
			MessageBox(0, StrPtr(ProductId), "", MB_OK)
		End If
	End If
	RegCloseKey(hKey) 
End If

これはRegQueryValueExの使い方がおかしいです。
RegQueryValueExの6番目（最後）の引数はヘルプを見ると書いてありますが、DWordへのポインタ型です。

しかもWindows APIはABの文字列型を知らないので正しく扱えません。
予め自分で受け取るのに必要なだけのメモリを用意してやる必要があります。
そのメモリを用意するのはZeroStringであり，どれだけ用意すれば良いかは
RegQueryValueExの5番目の引数をヌルにすれば6番目の引数を通して得られます。
[code]Const ProductIDRegPath = "SOFTWARE\Microsoft\Internet Explorer\Registration"
Const ProductIDRegName = "ProductId"

Dim ProductId As String
Dim BufSize As DWord
Dim hKey As HKEY
If RegOpenKeyEx(HKEY_LOCAL_MACHINE As HKEY, ProductIDRegPath, 0, KEY_QUERY_VALUE, hKey) = ERROR_SUCCESS Then
If RegQueryValueEx(hKey, ProductIDRegName, 0, 0, 0, VarPtr(BufSize)) = ERROR_SUCCESS Then
ProductId = ZeroString(BufSize)
If RegQueryValueEx(hKey, ProductIDRegName, 0, 0, StrPtr(ProductId), VarPtr(BufSize)) = ERROR_SUCCESS Then
MessageBox(0, StrPtr(ProductId), "", MB_OK)
End If
End If
RegCloseKey(hKey)
End If[/code]
たとえばこれならうまく動きます。

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	DIM ProductId As String
	DIM BufSize As String
	Dim hKey As HKEY
    If RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Internet Explorer\Registration",0,KEY_QUERY_VALUE,hKey)=ERROR_SUCCESS Then
        RegQueryValueEx(hKey,"ProductId",0,0,StrPtr(ProductId),StrPtr(BufSize))
    End If
	RegCloseKey(hKey)
End Sub

Sub _System_HeapStringFree(BufPtr As VoidPtr)
	Dim i As Long
	Dim pPtr As DWord

	EnterCriticalSection(_System_CriticalSection)
	For i=0 To _System_AllocatedStringInfo.num-1
		pPtr=GetDWord(_System_AllocatedStringInfo.pAddress+i*4)
		If pPtr=BufPtr Then
			HeapFree(_System_hProcessHeap,0,BufPtr-4)　←＊＊ココ＊＊

下記をコンパイルし実行すると、警告はでますが正常に値を取得します。

MainWnd.sbp(33) - [警告] "RegOpenKeyEx"の第1パラメータが、DWordからHKEYに強制変換されています。
MainWnd.sbp(34) - [警告] "RegQueryValueEx"の第6パラメータが、*Byteから*DWordに強制変換されています。
[hide][code]
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
DIM ProductId As String
DIM BufSize As String
Dim hKey As HKEY
If RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Internet Explorer\Registration",0,KEY_QUERY_VALUE,hKey)=ERROR_SUCCESS Then
RegQueryValueEx(hKey,"ProductId",0,0,StrPtr(ProductId),StrPtr(BufSize))
End If
RegCloseKey(hKey)
End Sub
[/code][/hide]
しかし、デバッガーで実行させようよすると、string.sdpの51行目でひっかかってしまいます。
動作している様なのでブレークしていいなし、実行もしていない良く分からない状態。
[hide][code]
Sub _System_HeapStringFree(BufPtr As VoidPtr)
Dim i As Long
Dim pPtr As DWord

EnterCriticalSection(_System_CriticalSection)
For i=0 To _System_AllocatedStringInfo.num-1
pPtr=GetDWord(_System_AllocatedStringInfo.pAddress+i*4)
If pPtr=BufPtr Then
HeapFree(_System_hProcessHeap,0,BufPtr-4)　←＊＊ココ＊＊
[/code][/hide]
RegQueryValueExの第6パラメータが影響している様なのですが、AB4.24のBugでしょうか？

また、どうすれば直りますか？？