登录界面每次都输入密码，如何把密码保存到注册表里？

Question

登录界面每次都输入密码，如何把密码保存到注册表里？然后程序自动从注册表里读密码自动填好。

Answer 1

使用注册表类:
use Registry,var
  Reg: TRegistry;

Answer 2

http://community.csdn.net/Expert/topic/4435/4435555.xml?temp=.2484705

Answer 3

用注册表来写呀，可以。
var
  RegKey:TRegistry;
begin
  RegKey := tregistry.Create;
  try
    RegKey.RootKey := HKEY_LOCAL_MACHINE;
    begin
      RegKey.OpenKey(keyString,True);
      RegKey.WriteString();
    end;
    RegKey.CloseKey;
    Regkey.Free;
  except
    RegKey.Free;
  end;

Answer 4

如果要用到注册表,可以这样(先在单元里面引用Registry)
procedure TForm1.FormCreate(Sender: TObject);
var
  RegKey:TRegistry;
begin
  RegKey := tregistry.Create;
  try
    RegKey.RootKey := HKEY_LOCAL_MACHINE;
    begin
      RegKey.OpenKey(aaa,True);
      RegKey.WriteString(KeyName,PassWord);
    end;
    RegKey.CloseKey;
    Regkey.Free;
  except
    RegKey.Free;
  end;
end;另外,使用INI类也是一个好的方法,在单元引用inifiles
var
  Form1: TForm1;
  myinifile:tinifile;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
    myinifile:=tinifile.Create('myini.ini')//嵼system32壓
    txtPass.Text:=myinifile.ReadString('Login','PassWord','');
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    myinifile.WriteString('Login','PassWord',txtpass.text);
    myinifile.Free;
end;end.

Answer 5

这个问题很简单的，就如同上楼写的那样如果要用到注册表,可以这样(先在单元里面引用Registry)
procedure TForm1.FormCreate(Sender: TObject);
var
  RegKey:TRegistry;
begin
  RegKey := tregistry.Create;
  try
    RegKey.RootKey := HKEY_LOCAL_MACHINE;
    begin
      RegKey.OpenKey(aaa,True);
      RegKey.WriteString(KeyName,PassWord);
    end;
    RegKey.CloseKey;
    Regkey.Free;
  except
    RegKey.Free;
  end;
end;另外,使用INI类也是一个好的方法,在单元引用inifiles
var
  Form1: TForm1;
  myinifile:tinifile;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
    myinifile:=tinifile.Create('myini.ini')//嵼system32壓
    txtPass.Text:=myinifile.ReadString('Login','PassWord','');
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    myinifile.WriteString('Login','PassWord',txtpass.text);
    myinifile.Free;
end;end.