ab.com コミュニティ

#console

	Dim strLetBuff				As String
	Dim strGetBuff				As String
	Dim hKey					As HKEY
	Dim ret						As Long
	Dim lngSize					As Long

	strLetBuff = "追加する値"

	'レジストリにキーを追加
	ret = RegCreateKeyEx(
				HKEY_CURRENT_USER As HKEY,
				"software\sample",
				0,
				NULL,
				REG_OPTION_NON_VOLATILE,
				KEY_SET_VALUE Or KEY_QUERY_VALUE,
				ByVal 0,
				hKey,
				NULL
				)
	If (ret <> ERROR_SUCCESS) Then
		Print "レジストリにキーを追加エラー"
	End If


	'レジストリに値を追加
	ret = RegSetValueEx(
				hKey,
				"SAMPLE_SZ",
				0,
				REG_SZ,
				StrPtr(strLetBuff),
				lstrlen(StrPtr(strLetBuff))
				)
	If (ret <> ERROR_SUCCESS) Then
		Print "レジストリ値追加エラー"
	End If

	'レジストリの値を読み込む
	strGetBuff = ZeroString(255)
	lngSize = Len(strGetBuff)

	ret = RegQueryValueEx(
				hKey,
				"SAMPLE_SZ",
				0,
				0,
				StrPtr(strGetBuff),
				VarPtr(lngSize)
				)
	If (ret <> ERROR_SUCCESS) Then
		Print "レジストリ値取得エラー"
	End If

	Print "レジストリから取得した値：" & strGetBuff

	'レジストリのキーハンドルをクローズ
	RegCloseKey(hKey)