Desktop Management スクリプト言語 › 関数 › レジストリ操作関数 › RegEnumVariable - 変数の列挙

RegEnumVariable - 変数の列挙

Windows 上で有効

RegENumVariable 関数によって、特定のレジストリ キーの変数が列挙されます。

このレジストリ操作関数の形式は、以下のとおりです。

RegEnumVariable(hKey as Integer, index as Integer, name as String, strvalue as String, intvalue as Integer) as Integer

RegEnumVariable(hkey as integer, index as integer, dummy as string, name as string, bufsize as integer, buffer as void) as integer.

hKey

現在開いているキーまたは事前定義されたキーを指定します。 hKey パラメータには、すべての Windows プラットフォームで使用可能な事前定義された以下の値を使用できます。

HKEY_CLASSES_ROOT

HKEY_CURRENT_USER

HKEY_LOCAL_MACHINE

HKEY_USERS

index

取得する変数のインデックスを指定します。 最初の関数呼び出しに対してゼロ（0）を使用します。

name

要求された変数の名前を持つ出力パラメータを指定します。

strvalue

要求された変数の文字列値を持つ出力パラメータを指定します。

intvalue

要求された変数の整数値を持つ出力パラメータを指定します。

dummy

予約済み。

bufsize

バッファのタイプが string である場合は、受信側のバッファのサイズが chars 単位で指定されます。それ以外の場合は、バイト数が指定されます。 変数である必要があります。 正常に返された場合、取得したバイト数も含まれます。

buffer

取得された変数値を受信するためのバッファ。

この関数が正常に完了すると、関数の最初の変数で以下のいずれかの値が返されます。

REG_NODATA

値 0： 変数が見つかりませんでした。 これは、列挙の終了インデックスに達したか、またはハンドルが無効であることを意味します。

REG_INTEGER

値 1： 整数タイプの変数が見つかりませんでした。値は intvalue 型の変数で保存されます。

REG_STRING

値 2： 文字列タイプの変数が見つかりませんでした。値は strvalue 型の変数で保存されます。

REG_UNSUPPORTED

値 3： サポートされない変数タイプが見つかりました。値は void 型になります。

関数の 2 番目の変数が Microsoft の表記法で返されました。

REG_NONE

値： 0

REG_SZ

値： 1

REG_EXPAND_SZ

値： 2

REG_BINARY

値： 3

REG_DWORD

値： 4

REG_DWORD_LITTLE_ENDIAN

値： 4

REG_DWORD_BIG_ENDIAN

値： 5

REG_LINK

値： 6

REG_MULTI_SZ

値： 7

例： RegEnumVariable 関数

Dim value as string
Dim hkey1 as integer
Dim name, str, dummy as string
Dim i, i1, rtr, int as integer
Dim bBuf[100] as Byte
Dim cBuf[100] as char

ClrScr()

hkey1 = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE¥CA")
if hkey1 = 0 then
	Print("RegOpenKey failed.")
	exit
endif

i = 0
while
	RegEnumKey(hkey1, i, str)
	Print(Str(i) + " - " + str)
	
RegCloseKey(hkey1)

Print " "

hkey1 = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE¥CA¥4 test only")
if hkey1 = 0 then
	Print("RegOpenKey failed.")
	exit
endif
for i = 0 to 1
	rtr = RegEnumVariable(hKey1, i, name, str, i1)
	if (REG_INTEGER = rtr) then
		Print(Str(rtr) + ": " + Str(i) + " - " + name + " = " + Str(i1))
	else
		if (REG_STRING = rtr) then
			Print(Str(rtr) + ": " + Str(i) + " - " + name + " = " + str)
		else
			Print(Str(rtr) + ": " + "unknown type");
		endif
	endif
next i
i1 = 100
str = ""
rtr = RegEnumVariable(hKey1, 2, name, dummy, i1, bBuf))
for i = 0 to i1 - 1
	str = str + Str(bBuf[i])
next i
Print (Str(rtr) + ": " + "2 - " + name + "(" + Str(i1) + ") = " + str)