Another Registry Class *updated*

				
!**************************************
! Name: Another Registry Class *updated*
! Description:Well, I've initially written this code for own purposes. Though it uses Windows and Registry Unit it makes it a lot easier to use settings stored in registry in your programs. it's similar to VB SaveSettings, but selecting Subkeys is optional. Stores data in HKEY_CURRENT_USER\Software\<yourappname> (you'll have to initially define <yourappname> in constructor)
hope this is useful =)
! By: leonator
!
!This code is copyrighted and has! limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=599&lngWId=7!for details.!**************************************

unit EasyRegistry;
interface
type
 clsRegistry = object
 constructor Init(pAppname: string);
 procedure SetSubkey(pFoldername: string);
 procedure SaveRegKey(sKey, sValue: string);
 procedure SaveRegKeyInt(sKey: string; iValue: integer);
 procedure SaveRegKeyBool(sKey: string; bValue: boolean);
 function GetRegKey(sKey, sDefault: string): string;
 function GetRegKeyInt(sKey: string; iDefault: integer): integer;
 function GetRegKeyBool(sKey: string; bDefault: boolean): boolean;
 function DeleteKey(sKey: string): boolean;
 procedure DeleteSubkey;
private
 AppName: string;
 Subkey: string;
 end;
implementation
uses Windows, Registry;
var Reg: TRegistry;
constructor clsRegistry.Init(pAppname: string);
begin
 AppName := pAppname;
 Subkey := '';
end;
procedure clsRegistry.SetSubkey(pFoldername: string);
begin
 Subkey := '\' + pFoldername;
end;
procedure clsRegistry.SaveRegKey(sKey, sValue: string);
begin
 Reg := TRegistry.Create;
 try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\' + AppName + Subkey, True) then
 begin
Reg.WriteString(sKey,sValue);
Reg.CloseKey;
 end;
 finally
Reg.Free;
 end;
end;
function clsRegistry.GetRegKey(sKey, sDefault: string):string;
begin
 Reg := TRegistry.Create;
 Result := sDefault;
 try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\' + AppName + Subkey, False) then
 if Reg.ValueExists(sKey) then Result := Reg.ReadString(sKey);
 finally
Reg.Free;
 end;
end;
procedure clsRegistry.SaveRegKeyInt(sKey: string; iValue: integer);
begin
 Reg := TRegistry.Create;
 try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\' + AppName + Subkey, True) then
 begin
Reg.WriteInteger(sKey,iValue);
Reg.CloseKey;
 end;
 finally
Reg.Free;
 end;
end;
function clsRegistry.GetRegKeyInt(sKey: string; iDefault: integer): integer;
begin
 Reg := TRegistry.Create;
 Result := iDefault;
 try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\' + AppName + Subkey, False) then
 if Reg.ValueExists(sKey) then Result := Reg.ReadInteger(sKey);
 finally
Reg.Free;
 end;
end;
procedure clsRegistry.SaveRegKeyBool(sKey: string; bValue: boolean);
begin
 Reg := TRegistry.Create;
 try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\' + AppName + Subkey, True) then
 begin
Reg.WriteBool(sKey,bValue);
Reg.CloseKey;
 end;
 finally
Reg.Free;
 end;
end;
function clsRegistry.GetRegKeyBool(sKey: string; bDefault: boolean): boolean;
begin
 Reg := TRegistry.Create;
 Result := bDefault;
 try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\' + AppName + Subkey, False) then
 if Reg.ValueExists(sKey) then Result := Reg.ReadBool(sKey);
 finally
Reg.Free;
 end;
end;
function clsRegistry.DeleteKey(sKey: string): boolean;
begin
 Reg := TRegistry.Create;
 try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\' + AppName + Subkey,False);
Result := Reg.DeleteValue(sKey)
 finally
Reg.Free;
 end;
end;
procedure clsRegistry.DeleteSubkey;
begin
 Reg := TRegistry.Create;
 try
Reg.RootKey := HKEY_CURRENT_USER;
Reg.DeleteKey('\Software\' + AppName + Subkey);
 finally
Reg.Free;
 end;
end;
end.