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
になってしまいます。
宜しくお願いします。