ちょっと高等なプログラムを作ろうということでレジストリを使いたいのですが、使い方がいまいちよくわかりません。
iniファイルに出力する位なら別に僕にとって簡単なことなので構わないんですが内容を見られたくないので、レジストリにString型文字列を退避させたい次第です。
どなたかサンプルソース下さい。
レジストリ
レジストリ
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
Re: レジストリ
> どなたかサンプルソース下さい。
こんな感じでどうでしょう?
こんな感じでどうでしょう?
[ここをクリックすると内容が表示されます]
コード: 全て選択
#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)
レジストリだと弄るのがiniファイルに比べて面倒だと思いまして。レジストリでも、内容は、見えますよ。
暗号化して、iniに書き出すとか。
一応暗号化はする予定ですが。
レジストリの使い方がそんなところに載って居たんですねぇ、気づきませんでした。Win32プログラミング講座 ~ Step28. メモリ監視ツールを作る② ~
に、レジストリ操作用APIの使い方が載っています。
hanchanさん、ありがとうございました。
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。