关于二进制字符的问题(50分)

S

stuwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #1

我想在注册表的一个二进制键写入值
比如要写入 ‘00 00 00 00’，怎么写
另外请教pchar 转换成string的方法
谢谢

 

D

Door2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #2

var reg:Tregistry;
buf: array[0..3] of char;
i:integer;
begin
for i:=0 to 3 do
buf:=#0;
reg:=Tregistry.Create
reg.RootKey :=HKEY_LOCAL_MACHINE;
if reg.OpenKey('software/testKey',true) then
reg.WriteBinaryData('bint',buf,SizeOf(buf));
reg.CloseKey
reg.Free

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #3

TRegister.ReadBinaryData(const Name: String
var Buffer
BufSize: Integer): Integer;
只在pchar 有终止符，pchar 到 string 是直接转换的,用相应的变量赋值即可。

 

S

stuwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #4

接受答案。谢谢二位