delphi 注册表写入和读取来和读取保存登录记录 请问怎么写，有大神吗

如果没记错的话uses register单元，网上是可以找到例子的，说不定万一博客里就有。

unit RWiniFile;
interface
Uses
Windows, IniFiles, Registry;
Function F_ReadIniFile(FName, section, ident, Default: String): String;
Procedure F_WriteIniFile(FName, section, ident, Value: String);
Function YF_RegReadStr(const ARegRoot: HKEY; ARegKey, ARegName: string): string;
procedure YF_RegWriteStr(const ARegRoot: HKEY; ARegKey, ARegName, AValue: string);
implementation
Function F_ReadIniFile(FName, section, ident, Default: String): String;
Var //从配置文件中读取
MyIni: TInifile;
begin
MyIni := TiniFile.Create(FName);
Result := MyIni.ReadString(Section, Ident, Default);
MyIni.Free;
end;
Procedure F_WriteIniFile(FName, section, ident, Value: String);
Var //写配置文件
MyIni: TInifile;
begin
MyIni := TiniFile.Create(FName);
MyIni.WriteString(section, Ident, Value);
MyIni.Free;
end;
Function YF_RegReadStr(const ARegRoot: HKEY; ARegKey, ARegName: string): string;
var
reg: TRegistry;
begin
result := '';
reg := TRegistry.create;
try
reg.RootKey := ARegRoot;
if reg.OpenKey(ARegKey, false) then
if reg.ValueExists(ARegName) then
result := reg.ReadString(ARegName);
finally
reg.free;
end;
end;
procedure YF_RegWriteStr(const ARegRoot: HKEY; ARegKey, ARegName, AValue: string);
var
reg: TRegistry;
begin
reg := TRegistry.create;
try
reg.RootKey := ARegRoot;
if reg.OpenKey(ARegKey, true) then
reg.WriteString(ARegName, AValue);
finally
reg.free;
end;
end;
end.