ab.com コミュニティ

7 さん、イグトランス (egtra)　さんありがとうございました。

イグトランスさんのコードで動くようになりました。

>http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpsysinf/html/_win32_regenumkeyex.asp
>このページの引数を参考にした方が良いと思います。

MSDN の方がよさそうなので、
次から未定義の宣言を書くときは MSDN を見ることにします。

Declare Function RegEnumKeyEx Lib "advapi32" Alias "RegEnumKeyExA" (
	hKey As HKEY,
	dwIndex As DWord,
	pName As *Byte,
	ByRef cName As DWord,
	pReserved As *DWord,
	pClass As *Byte,
	ByRef cClass As DWord,
	pftLastWriteTime As *FILETIME) As Long

原因は第3引数pNameだと思います。

これはAB5のヘッダからAB4向けに修正したものです。
[code]Declare Function RegEnumKeyEx Lib "advapi32" Alias "RegEnumKeyExA" (
hKey As HKEY,
dwIndex As DWord,
pName As *Byte,
ByRef cName As DWord,
pReserved As *DWord,
pClass As *Byte,
ByRef cClass As DWord,
pftLastWriteTime As *FILETIME) As Long[/code]
宣言をこちらに書き換えて，RegEnumKeyEx(hKey, dwIndex1, szObject, dwBufSize, 0, 0, 0, 0)とするとアクセス違反を起こさず動くようになりました。

VBの宣言を持ってくるのは楽ですが，AB用に書き換えるときにはよく注意してください。

試してないので解決するか分かりませんが、RegEnumKeyEx()関数の第六引数の型を変更してみてください。
String型からBytePtrやLPSTRに。

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/jpsysinf/html/_win32_regenumkeyex.asp
このページの引数を参考にした方が良いと思います。

declare function RegEnumKeyEx lib "advapi32" alias "RegEnumKeyExA" (hKey As HKEY,ByVal dwIndex As DWord,ByVal lpName As Byte,lpcName As VoidPtr,ByVal lpReserved As Long,ByVal lpClass As String,ByVal lpcClass As DWord,ByRef lpftLastWriteTime As FILETIME) As Long

const DIFFFLAGLEN=6
const PERFENUMKEY="System\CurrentControlSet\Control\PerfStats\Enum"

dim szCounter[MAX_PATH] as Byte
dim szObject[MAX_PATH] as Byte
dim szName[MAX_PATH] as Byte
dim lpszDescBuff=0 as LPSTR
dim szDiffFlag[DIFFFLAGLEN] as Byte

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	dim rc as DWord
	dim dwIndex1 as DWord, dwIndex2 as DWord
	dim dwType as DWord
	dim dwBufSize as DWord
	dim hKey as HKEY
	dim hObject as HKEY
	dim hCounter as HKEY

	rc=RegOpenKeyEx(HKEY_LOCAL_MACHINE,PERFENUMKEY,0,KEY_READ,hKey)
	if rc=ERROR_SUCCESS then
		dwBufSize=MAX_PATH
		dwIndex1=0
		' オブジェクトを列挙します。
		while RegEnumKeyEx(hKey,dwIndex1,szObject,VarPtr(dwBufSize),0,0,0,ByVal 0)=ERROR_SUCCESS
			dwIndex1++
			if rc=RegOpenKeyEx(hKey,szObject,0,KEY_READ,hObject)=ERROR_SUCCESS then
				' hObject を使ってオープン キーの情報を処理します。
			End If
			RegCloseKey(hObject)
			dwBufSize=MAX_PATH
		Wend
		RegCloseKey(hKey)
	Else
		MessageBox(hMainWnd,"Error "+rc+" Opening "+PERFENUMKEY,0,MB_OK or MB_ICONSTOP)
	End If
End Sub

RegEnumKeyEx(hKey,dwIndex1,szObject,VarPtr(dwBufSize),0,0,0,ByVal 0)=ERROR_SUCCESS

[hide][code]declare function RegEnumKeyEx lib "advapi32" alias "RegEnumKeyExA" (hKey As HKEY,ByVal dwIndex As DWord,ByVal lpName As Byte,lpcName As VoidPtr,ByVal lpReserved As Long,ByVal lpClass As String,ByVal lpcClass As DWord,ByRef lpftLastWriteTime As FILETIME) As Long

const DIFFFLAGLEN=6
const PERFENUMKEY="System\CurrentControlSet\Control\PerfStats\Enum"

dim szCounter[MAX_PATH] as Byte
dim szObject[MAX_PATH] as Byte
dim szName[MAX_PATH] as Byte
dim lpszDescBuff=0 as LPSTR
dim szDiffFlag[DIFFFLAGLEN] as Byte

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
dim rc as DWord
dim dwIndex1 as DWord, dwIndex2 as DWord
dim dwType as DWord
dim dwBufSize as DWord
dim hKey as HKEY
dim hObject as HKEY
dim hCounter as HKEY

rc=RegOpenKeyEx(HKEY_LOCAL_MACHINE,PERFENUMKEY,0,KEY_READ,hKey)
if rc=ERROR_SUCCESS then
dwBufSize=MAX_PATH
dwIndex1=0
' オブジェクトを列挙します。
while RegEnumKeyEx(hKey,dwIndex1,szObject,VarPtr(dwBufSize),0,0,0,ByVal 0)=ERROR_SUCCESS
dwIndex1++
if rc=RegOpenKeyEx(hKey,szObject,0,KEY_READ,hObject)=ERROR_SUCCESS then
' hObject を使ってオープン キーの情報を処理します。
End If
RegCloseKey(hObject)
dwBufSize=MAX_PATH
Wend
RegCloseKey(hKey)
Else
MessageBox(hMainWnd,"Error "+rc+" Opening "+PERFENUMKEY,0,MB_OK or MB_ICONSTOP)
End If
End Sub[/code][/hide]
上記のコードを実行すると、
[code]RegEnumKeyEx(hKey,dwIndex1,szObject,VarPtr(dwBufSize),0,0,0,ByVal 0)=ERROR_SUCCESS[/code]
でアクセス違反が発生してしまいます。

[url=http://www.winapi-database.com/index.html]WinAPI Database for VB Programmer[/url] で調べて書いたのですが、
どうも宣言が悪いようなので、どなたか教えてください。

お願いします。

参照: [url=http://www.winapi-database.com/System/Registry/RegEnumKeyEx.html]RegEnumKeyEx - WinAPI Database for VB Programmer[/url]

元のコード: [url=http://support.microsoft.com/kb/174631/JA/]「Windows 95 でパフォーマンス レジストリにアクセスする方法」[/url]