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:integer):integer; overload;
function Getsetting(Appname:string; Section:string; key:string; default:string): string; overload;
function Getsetting(Appname:string; Section:string; key:string; default:boolean): boolean; overload;
procedure SaveSetting (Appname:string; Section:string; key:string; setting:integer); overload;
procedure SaveSetting (Appname:string; Section:string; key:string; setting:string); overload;
procedure SaveSetting (Appname:string; Section:string; key:string; setting:boolean); overload;


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

implementation

function Getsetting(Appname:string; Section:string; key:string; default:string):string; overload;
var reg_key:string;
begin
 reg_key:=BaseKey+Appname + '\' + Section + '\' + key;
 try
  Regist:=TRegistry.Create;
  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;

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

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


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

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

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

end.