Class TMyRegistry (unit MyRegistry)

Inherits from

TComponent

Constructors


constructor Create(AOwner:TComponent);

Public-Deklarationen } // Read-Functions

---------------------------------------------------------------------- // TMyRegistry.



Functions

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.

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

Published-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??


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 : boolean

Published-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??