写注册表问题(50分)

X

xiongyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #1

如何将类似字符串beijing-CEO转成二进制写入注册表？

 

薄

薄荷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #2

将每个字符转化成ascII码.然后写到注册表里.

 

X

xiongyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #3

薄荷:你好！
能说具体些吗？我知道思路，但不知怎么写代码！

 

D

Door2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-12

• #4

取得每一个字符的ASC码，转换成二进制，写入就可以
uses ......,IdGlobal;
................
var s,tempstring:string;
i:integer;
begin
s:='beijing-CEO';
for i:=1 to length(s) do
tempstring:=tempstring+inttobin(ord(s)); //tempstring就是二进制的串

最后按照普通字符串方式写入注册表

 

X

xiongyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #5

to DOOR2000:
你说的方法好象不行，另我要求用WriteBinaryData方法以二进制数值写入注册表。

 

D

Door2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #6

var reg:Tregistry;
buf: array[0..99] of char;
i:integer;
s:string;
begin
s:='beijing-CEO';
for i:=0 to length(s)-1 do
buf:=s[i+1];
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 ;
这个没问题

 

X

xiongyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #7

接受答案了.