为什么写不进注册表？(5分)

Z

zhangweizw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #1

用程序修改注册表，很简单，为什么运行之后注册表没反应？
procedure TForm1.Button1Click(Sender: TObject);
var
Reg:Tregistry;
s:string;
begin
s:='pwsf/user';
reg:=tregistry.Create;
reg.RootKey:=hkey_users;
if reg.OpenKey(s,false) then
begin
reg.WriteString('',encrypt(edit1.Text));
end;
reg.CloseKey;
end;

 

Z

zhangweizw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #2

改为if reg.OpenKey(s,true) then也不行

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #3

procedure WriteRegString(rootkey : String ; Key : String ; value : String );
var
Reg : TRegistry ;
Begin
Reg := TRegistry.Create ;
try
Reg.RootKey := HKEY_LOCAL_MACHINE ;
Reg.OpenKey(rootkey,true) ;
Reg.WriteString(key,value);
finally
Reg.Free ;
end;
End;

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #4

试试行不行!!

 

Z

z9945

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #5

Reg.OpenKey(rootkey,true) ;

用Reg.RootKey := HKEY_LOCAL_MACHINE ;在非管理员身分下有问题,
用reg.RootKey:=hkey_users;应该没问题

 

Z

zhangweizw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #6

我用断点跟踪了一下，发现if语句中的
reg.WriteString('',encrypt(edit1.Text));
根本没有执行！
怎么搞的？

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #7

if reg.OpenKey(s,false) then
begin
reg.WriteString('',encrypt(edit1.Text));
end;
如果reg.WriteString('',encrypt(edit1.Text));没有执行的话 说明 reg.OpenKey(s,false)
为false 你试一下我的

 

Z

zhangweizw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #8

我往HKEY_CURRENT_USER下写就成功了
这是为什么？

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-02

• #9

对 你想要通过程序操作注册表 只能写到这里面的 特别是把一些程序基本信息写进去时