by Rapa » 2006年5月24日(水) 18:25
REG_MULTI_SZ形レジストリへの書き込方法を教えてください。
regファイルで、
[HKEY_LOCAL_MACHINE\SOFTWARE\Test\Test]
"TestData"=hex(7):31,00,00,00,32,00,00,00,00,00
を行いたいので、以下のコードを書きました。
[ここをクリックすると内容が表示されます] [ここをクリックすると非表示にします]
- Dim hKey As HKEY
Dim RegWkey As String
RegWkey = Chr$(&h31)+ Chr$(0)+ Chr$(0)+ Chr$(0)
RegWkey = RegWkey + Chr$(&H32)+ Chr$(0)+ Chr$(0)+ Chr$(0)
RegWkey = RegWkey + Chr$(0)+ Chr$(0)
RegCreateKeyEx(HKEY_LOCAL_MACHINE,"Software\Test\Test",0,NULL,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,ByVal 0,hKey,0)
RegSetValueEx(hKey,"TestData",0,REG_MULTI_SZ,VarPtr(RegWkey),Len(RegWkey))
RegCloseKey(hKey)
実行結果は、
"TestData"=hex(7):fb,30,15,00,00,00,34,00,01,00,00,00,00,00,64,00,36,00
になってしまいます。
宜しくお願いします。
REG_MULTI_SZ形レジストリへの書き込方法を教えてください。
regファイルで、
[HKEY_LOCAL_MACHINE\SOFTWARE\Test\Test]
"TestData"=hex(7):31,00,00,00,32,00,00,00,00,00
を行いたいので、以下のコードを書きました。
[hide][list]
Dim hKey As HKEY
Dim RegWkey As String
RegWkey = Chr$(&h31)+ Chr$(0)+ Chr$(0)+ Chr$(0)
RegWkey = RegWkey + Chr$(&H32)+ Chr$(0)+ Chr$(0)+ Chr$(0)
RegWkey = RegWkey + Chr$(0)+ Chr$(0)
RegCreateKeyEx(HKEY_LOCAL_MACHINE,"Software\Test\Test",0,NULL,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,ByVal 0,hKey,0)
RegSetValueEx(hKey,"TestData",0,REG_MULTI_SZ,VarPtr(RegWkey),Len(RegWkey))
RegCloseKey(hKey)
[/list][/hide]
実行結果は、
"TestData"=hex(7):fb,30,15,00,00,00,34,00,01,00,00,00,00,00,64,00,36,00
になってしまいます。
宜しくお願いします。