reg.pas

delphi下的tapi控件

unit reg;
{
 This unit allows to manage in an easy way Windows registry
 to save and retrieve settings
}
interface

uses
Registry;

function Getsetting(Appname:string; Section:string; key:string; default:string):string;
procedure SaveSetting (Appname:string; Section:string; key:string; setting:string);


const BaseKey = '\Software\Allen-Martin\';
var Regist: TRegistry;

implementation

function Getsetting(Appname:string; Section:string; key:string; default:string):string;
var reg_key:string;
begin
 reg_key:=BaseKey+Appname + '\' + Section + '\' + key;
 try
  Regist:=TRegistry.Create;
  //Regist.RootKey := HKEY_CURRENT_USER;
  if (Regist.KeyExists(Reg_Key)) then
   begin
    Regist.OpenKey(Reg_Key,False);
    Result:=Regist.ReadString(key);
   end
  else
    Result:=default;
 finally
  Regist.CloseKey;
  Regist.Free;
 end; 
end;

procedure SaveSetting (Appname:string; Section:string; key:string; setting:string);
var reg_key:string;
begin
 reg_key:=BaseKey+Appname + '\' + Section + '\' + key;
 try
  Regist:=TRegistry.Create;
  //Regist.RootKey := HKEY_CURRENT_USER;
  Regist.OpenKey(Reg_Key,True);
  Regist.WriteString(key,setting);
 finally
  Regist.CloseKey;
  Regist.Free;
 end;
end;

end.