如何读写注册表

Question

user= cai
password = my这两个键和值写入注册表。和读出来，该怎样做。

Answer 1

uses Registry;
Button1Click(Sender: TObject);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HEKY_LOCAL_MACHINE;
  Reg.OpenKey('SoftWare\MyKey',True);
  Reg.WriteString('User',edtUser.Text);
  Reg.WriteString('Password',edtPassword.Text);
  Reg.Free;
end;Button2Click(Sender: TObject);
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HEKY_LOCAL_MACHINE;
  Reg.OpenKey('SoftWare\MyKey',True);
  lUser.Caption := Reg.ReadString('User');
  lPassword.Caption := Reg.ReadString('Password');
  Reg.Free;
end;

Answer 2

to  genphone_ru(票票)　如果该键已经存在，那再写一次会不会出错。　该怎样写呢？　谢谢你了

Answer 3

另外这个'SoftWare\MyKey'是不是随便写的

Answer 4

var Reg: TRegistry; 
begin 
Reg := TRegistry.Create; 
Reg.RootKey := HEKY_LOCAL_MACHINE; //运行到这里出错
Reg.OpenKey('SoftWare\MyKey',True); 
Reg.WriteString('User',edtUser.Text); 
Reg.WriteString('Password',edtPassword.Text); 
Reg.Free; 
end;