| Class TMyRegistry (unit MyRegistry) |
TComponent
| Constructors |
constructor Create(AOwner:TComponent);---------------------------------------------------------------------- // TMyRegistry.
| Functions |
procedure Close;
procedure DeleteKey (Section:string;Ident:string);
procedure Open;
function ReadBool (Section:string;Ident:string;Default:Boolean):Boolean;
function ReadInteger (Section:string;Ident:string;Default:Integer):Integer;
procedure ReadSection (const Section: string; Strings: TStrings);
procedure ReadSectionValues(const Section: string; Strings: TStrings);
function ReadString (Section:string;Ident:string;Default:string):string;
function ValueExists(Section:string;Ident:string): Boolean;
procedure WriteBool (Group:string;Ident:string;Value:boolean);
procedure WriteInteger (Group:string;Ident:string;Value:integer);
procedure WriteString (Group:string;Ident:string;Value:string);---------------------------------------------------------------------- // TMyRegistry.
procedure StrDummy(str:string);
function GetRootKey:HKey;
procedure SetError(IsBox:Boolean;EMessage:String);| Properties |
property CanCreate : boolean
property eMail : string
property Homepage : string
property INIFile : string
property RegPath : string
property RootKey : HKeys
property SaveNewKey : boolean
property SaveToINI : boolean
property Version : string| Events |
event OnError : TMyRegistryError| Variables |
bCreateReg : boolean;
bSaveNew : boolean;
bSaveToINI : boolean;
FOnError : TMyRegistryError;
hRootKey : HKeys;
INI : TINIFile;
REG : TRegistry;
sAbout : string;
sHomepage : THomepage;
sINIFile : string;
sRegString : string;
sVersion : string;
ToINI : boolean;| Constructors |
constructor Create(AOwner:TComponent);Public-Deklarationen } // Read-Functions
---------------------------------------------------------------------- // TMyRegistry.Create ---------------------------------------------------------------------- //
| Functions |
procedure Close;---------------------------------------------------------------------- // TMyRegistry.Close ---------------------------------------------------------------------- //
procedure DeleteKey (Section:string;Ident:string);---------------------------------------------------------------------- // TMyRegistry.DeleteKey ---------------------------------------------------------------------- //
procedure Open;---------------------------------------------------------------------- // TMyRegistry.Open ---------------------------------------------------------------------- //
function ReadBool (Section:string;Ident:string;Default:Boolean):Boolean;---------------------------------------------------------------------- // TMyRegistry.ReadBool ---------------------------------------------------------------------- //
function ReadInteger (Section:string;Ident:string;Default:Integer):Integer;---------------------------------------------------------------------- // TMyRegistry.ReadInteger ---------------------------------------------------------------------- //
procedure ReadSection (const Section: string; Strings: TStrings);---------------------------------------------------------------------- // TMyRegistry.ReadSection ---------------------------------------------------------------------- //
procedure ReadSectionValues(const Section: string; Strings: TStrings);---------------------------------------------------------------------- // TMyRegistry.ReadSectionValues ---------------------------------------------------------------------- //
function ReadString (Section:string;Ident:string;Default:string):string;---------------------------------------------------------------------- // TMyRegistry.ReadString ---------------------------------------------------------------------- //
function ValueExists(Section:string;Ident:string): Boolean;---------------------------------------------------------------------- // TMyRegistry.ValueExists ---------------------------------------------------------------------- //
procedure WriteBool (Group:string;Ident:string;Value:boolean);---------------------------------------------------------------------- // TMyRegistry.WriteBool ---------------------------------------------------------------------- //
procedure WriteInteger (Group:string;Ident:string;Value:integer);---------------------------------------------------------------------- // TMyRegistry.WriteInteger ---------------------------------------------------------------------- //
procedure WriteString (Group:string;Ident:string;Value:string);Write-Methods
---------------------------------------------------------------------- // TMyRegistry.WriteString ---------------------------------------------------------------------- //
procedure StrDummy(str:string);Protected-Deklarationen
function GetRootKey:HKey;---------------------------------------------------------------------- // TMyRegistry.GetRootKey ---------------------------------------------------------------------- //
procedure SetError(IsBox:Boolean;EMessage:String);---------------------------------------------------------------------- // TMyRegistry.SetError ---------------------------------------------------------------------- //
| Properties |
property CanCreate : boolean
property eMail : string
property Homepage : string
property INIFile : string
property RegPath : string
property RootKey : HKeys
property SaveNewKey : boolean
property SaveToINI : booleanPublished-Deklarationen
property Version : string| Events |
event OnError : TMyRegistryError| Variables |
bCreateReg : boolean;
bSaveNew : boolean;(intern version
bSaveToINI : boolean;writes key if not exists
FOnError : TMyRegistryError;
hRootKey : HKeys;Registry path
INI : TINIFile;Private-Deklarationen
REG : TRegistry;
sAbout : string;INI or Registry ?
sHomepage : THomepage;
sINIFile : string;
sRegString : string;INI-Filename
sVersion : string;
ToINI : boolean;Create registry-string if not exist??