HSPTV!掲示板

レジストリのキーを列挙したいのですが以下のスクリプトだと何故か初めの一つしか取得できません。
見つけたモジュールはサブキーを必ず入力しなくてはならないものだったりしたので自分でAPIを呼ぶことにしました。

#uselib "advapi32"
#func RegEnumKeyExA "RegEnumKeyExA" int,int,var,var,int,int,int,int
#define ERROR_SUCCESS 0
sdim key,256
size=256

repeat
RegEnumKeyExA 0x80000000,cnt,key.cnt,size,0,0,0,0
mes key.cnt
if stat!=ERROR_SUCCESS:break
loop

つ

#uselib "advapi32"
#func RegEnumKeyExA "RegEnumKeyExA" int,int,var,var,int,int,int,int
#define ERROR_SUCCESS 0
sdim key,256

repeat
size=256
memexpand key.cnt,size
RegEnumKeyExA 0x80000000,cnt,key.cnt,size,0,0,0,0
mes key.cnt
if stat!=ERROR_SUCCESS:break
await 0
loop

成功しました。ありがとうございます。

何故サイズ用変数等を初期化しなくてはならないのでしょうか。

sizeを初期化するのは、RegEnumKeyExは返した文字列の大きさをsizeに格納するからです。
keyをmemexpandするのは、sdim key,256ではkey.0しか初期化してないからです。

sizeには再びサイズが格納されていたんですね。keyと現象が被っていたので見落としていました。
>sdim key,256ではkey.0しか初期化してないからです。
そういう仕様だったのですか。標準命令すらろくに理解できていないようでは^^;
解説ありがとうございました。