WriteStrToReg() ReadStrFormReg()

uses  Registry ;

 

{ReadStrFormReg Registry}
// 调用  ReadStrFormReg('TEST',Edit1);
procedure  WriteStrToReg ( SectionStr : string ; Edit : TEdit );
var
   Reg : TRegistry ;
   keyName : string ;
begin
   Reg  :=  TRegistry . Create ;
   Reg . RootKey  :=  HKEY_LOCAL_MACHINE ;  {Modify}
   keyName  :=  'SOFTWARE\softReg1' ;     {Modify}
   if  Reg . OpenKey ( KeyName ,  True )  then
   begin 
     Reg . WriteString ( SectionStr , Edit . Text );
     Reg . CloseKey ;
   end ;
end ;

{ReadStrFormReg Registry}
// 调用  ReadStrFormReg('TEST',Edit1);
procedure  ReadStrFormReg ( SectionStr : string ; Edit : TEdit );
var
   Reg : TRegistry ;
   keyName : string ;
begin
   Reg  :=  TRegistry . Create ;
   Reg . RootKey  :=  HKEY_LOCAL_MACHINE ;  {Modify}
   keyName  :=  'SOFTWARE\softReg1' ;     {Modify}
   if  Reg . OpenKey ( keyName ,  True )  then
    begin
      Edit . Text := Reg . ReadString ( SectionStr );
      Reg . CloseKey ;
    end ;
    Reg . Free ;
end ;

通过 为知笔记 发布

附件列表