前のトピック: RegSetValue - レジストリ キーとテキスト文字列の関連付け次のトピック: SetMode64 - Windows 64 ビット レジストリおよびファイル システムへのアクセス


RegSetVariable - レジストリ キーへの変数の保存

Windows で有効

RegSetVariable 関数によって、指定されたレジストリ キーに変数が保存されます。

関数の形式

RegSetVariable(hKey as Integer, name as String, value as Integer) as Boolean
RegSetVariable(hKey as Integer, name as String,	value as String) as Boolean
RegSetVariable(hkey as integer, name as string, buffer as void, bufsize as integer) as integer.
RegSetVariable(hkey as integer, name as string, buffer as void, bufsize as integer, type as integer) as integer.
hKey

現在開いているキーまたは事前定義されたキーを指定します。 hKey パラメータには、以下のいずれかの事前定義された値を指定できます。

HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
name

設定する変数の名前を指定します。

value

変数に設定する文字列または整数値を指定します。

buffer

変数に設定する値を含むバッファです。

bufsize

バッファのタイプが string である場合、タイプ char の配列である場合、バッファのサイズは chars 単位で指定されます。それ以外の場合は、バイト数が指定されます。

type

レジストリ エントリのタイプ。

レジストリ エントリのタイプが Microsoft の表記法で返されました。

REG_NONE

値: 0

REG_SZ

値: 1

REG_EXPAND_SZ

値: 2

REG_BINARY

値: 3

REG_DWORD

値: 4

REG_DWORD_LITTLE_ENDIAN

値: 5

REG_DWORD_BIG_ENDIAN

値: 6

REG_LINK

値: 7

REG_MULTI_SZ

値: 8

この関数が正常に完了すると、TRUE が返されます。それ以外の場合は、FALSE が返されます。

例:

以下の例を開始する前に、RegOpenKey の例を実行してください。

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\4 test only")
if hkey1 = 0 then
	Print("RegOpenKey failed.")
	exit
endif

rtr = RegQueryVariable(hkey1, "var_2", str, int)
Print(Str(rtr) + ": var_2 = " + str)
int = 100
str = ""
rtr = RegQueryVariable(hkey1, "var_2", dummy, int, str)
Print(Str(rtr) + ": var_2(" + Str(int) + ") = " + str)
int = 100
str = ""
rtr = RegQueryVariable(hkey1, "var_2", dummy, int, cBuf)
for i1 = 0 to int - 1
	str = str + cBuf[i1]
next i1
Print(Str(rtr) + ": var_2(" + Str(int) + ") = " + str)
int = 100
str = "| "
rtr = RegQueryVariable(hkey1, "var_2", dummy, int, bBuf)
for i1 = 0 to int - 1
	str = str + Str(bBuf[i1]) + " | "
next i1
Print(Str(rtr) + ": var_2(" + Str(int) + ") = " + str)

RegCloseKey(hkey1)