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_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS
設定する変数の名前を指定します。
変数に設定する文字列または整数値を指定します。
変数に設定する値を含むバッファです。
バッファのタイプが string である場合、タイプ char の配列である場合、バッファのサイズは chars 単位で指定されます。それ以外の場合は、バイト数が指定されます。
レジストリ エントリのタイプ。
レジストリ エントリのタイプが Microsoft の表記法で返されました。
値: 0
値: 1
値: 2
値: 3
値: 4
値: 5
値: 6
値: 7
値: 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)
|
Copyright © 2014 CA Technologies.
All rights reserved.
|
|