ab.com コミュニティ

print "Product ID:";MakeStr(oem)

Dim oem[255] As Byte

Print "Product ID:";MarkStr(oem)

> [quote]print "Product ID:";oem[/quote]
> たしかMakeStr関数でオッケーだった気がします。
> [code]print "Product ID:";MakeStr(oem)[/code]

[code]Dim oem[255] As Byte

Print "Product ID:";MarkStr(oem)[/code]
で出来ました。

"MakeStr()" はこういうときに使うのですね。

ありがとうございました。

print "Product ID:";MakeStr(oem)

[quote]print "Product ID:";oem[/quote]
たしかMakeStr関数でオッケーだった気がします。
[code]print "Product ID:";MakeStr(oem)[/code]

dim hKey as HKEY
dim size as long
dim oem as Byte

RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion",0,0,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,ByVal 0,hKey,0)
size=255
RegQueryValueEx(hKey,"ProductId",0,NULL,VarPtr(oem),VarPtr(size))

print "Product ID:";oem

プロンプトベースのプログラムでレジストリの OEM の値を読み取りたいのですが、
"print" で表示させてみると意味の無い数字だけが表示されます。

普通にテキストボックスやスタティックに表示するときと違うようなので、
良い方法があれば教えて下さい。

一応コードを…
[hide][code]dim hKey as HKEY
dim size as long
dim oem as Byte

RegCreateKeyEx(HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion",0,0,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,ByVal 0,hKey,0)
size=255
RegQueryValueEx(hKey,"ProductId",0,NULL,VarPtr(oem),VarPtr(size))

print "Product ID:";oem[/code][/hide]
以上です、よろしくお願いします。