Class TMyRegistry (unit MyRegistry) |
Inherits from
TComponent
constructor Create(AOwner:TComponent);
- Public-Deklarationen } // Read-Functions
---------------------------------------------------------------------- // TMyRegistry.
procedure Close;
---------------------------------------------------------------------- // TMyRegistry.
procedure DeleteKey (Section:string;Ident:string);
---------------------------------------------------------------------- // TMyRegistry.
procedure Open;
---------------------------------------------------------------------- // TMyRegistry.
function ReadBool (Section:string;Ident:string;Default:Boolean):Boolean;
---------------------------------------------------------------------- // TMyRegistry.
function ReadInteger (Section:string;Ident:string;Default:Integer):Integer;
---------------------------------------------------------------------- // TMyRegistry.
procedure ReadSection (const Section: string; Strings: TStrings);
---------------------------------------------------------------------- // TMyRegistry.
procedure ReadSectionValues(const Section: string; Strings: TStrings);
---------------------------------------------------------------------- // TMyRegistry.
function ReadString (Section:string;Ident:string;Default:string):string;
---------------------------------------------------------------------- // TMyRegistry.
function ValueExists(Section:string;Ident:string): Boolean;
---------------------------------------------------------------------- // TMyRegistry.
procedure WriteBool (Group:string;Ident:string;Value:boolean);
---------------------------------------------------------------------- // TMyRegistry.
procedure WriteInteger (Group:string;Ident:string;Value:integer);
---------------------------------------------------------------------- // TMyRegistry.
procedure WriteString (Group:string;Ident:string;Value:string);
Write-Methods ---------------------------------------------------------------------- // TMyRegistry.
procedure StrDummy(str:string);
Protected-Deklarationen
function GetRootKey:HKey;
---------------------------------------------------------------------- // TMyRegistry.
procedure SetError(IsBox:Boolean;EMessage:String);
---------------------------------------------------------------------- // TMyRegistry.
property CanCreate : boolean
property eMail : string
property Homepage : string
property INIFile : string
property RegPath : string
property RootKey : HKeys
property SaveNewKey : boolean
property SaveToINI : boolean
Published-Deklarationen
property Version : string
event OnError : TMyRegistryError
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??
constructor Create(AOwner:TComponent);
Public-Deklarationen } // Read-Functions
---------------------------------------------------------------------- // TMyRegistry.Create ---------------------------------------------------------------------- //
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 ---------------------------------------------------------------------- //
property CanCreate : boolean
property eMail : string
property Homepage : string
property INIFile : string
property RegPath : string
property RootKey : HKeys
property SaveNewKey : boolean
property SaveToINI : boolean
Published-Deklarationen
property Version : string
event OnError : TMyRegistryError
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??