| Class TWinRegistry (unit WinReg) |
TRegistry
# freeware} {# description Title : Access class for Windows registry Author : Dave White Date : 24 April 1996 Portions of this code are Copyright (c) Borland International, 1996 This code is Freeware and may be used in any commercial or non-commercial applications at no charge. Dave White shall not be liable in any way for any failure of this software, or any adverse effects it has on you application - you have the source :-) Author : Frank Zimmer Date : 2 February 1997 CanCreate in the Create-Methode inserted new: Exists, true when Key exists
| Constructors |
constructor Create(const FileName: string;const CanCreate:boolean);
constructor CreateWithKey(key : HKEY; const FileName: string;const CanCreate:boolean);| Functions |
procedure DeleteKey(const Section, Ident: String);
procedure EraseSection(const Section: string);
function Exists: Boolean;
function ReadBinaryData(const Section, Ident: string; var Buffer; BufSize: Integer): Integer;
function ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
function ReadCurrency(const Section, Ident: string; Default: Currency): Currency;
function ReadDate(const Section, Ident: string; Default: TDateTime): TDateTime;
function ReadDateTime(const Section, Ident: string; Default: TDateTime): TDateTime;
function ReadFloat(const Section, Ident: string; Default: Double): Double;
function ReadInteger(const Section, Ident: string; Default: Longint): Longint;
procedure ReadSection(const Section: string; Strings: TStrings);
procedure ReadSections(Strings: TStrings);
procedure ReadSectionValues(const Section: string; Strings: TStrings);
function ReadString(const Section, Ident, Default: string): string;
function ReadTime(const Section, Ident: string; Default: TDateTime): TDateTime;
function SaveAppKey(key, filename : string): boolean;
procedure WriteBinaryData(const Section, Ident: string; var Buffer; BufSize: Integer);
procedure WriteBool(const Section, Ident: string; Value: Boolean);
procedure WriteCurrency(const Section, Ident: string; Value: Currency);
procedure WriteDate(const Section, Ident: string; Value: TDateTime);
procedure WriteDateTime(const Section, Ident: string; Value: TDateTime);
procedure WriteFloat(const Section, Ident: string; Value: Double);
procedure WriteInteger(const Section, Ident: string; Value: Longint);
procedure WriteString(const Section, Ident, Value: String);
procedure WriteTime(const Section, Ident: string; Value: TDateTime);| Properties |
property FileName : string| Events |
| Variables |
FFileName : string;| Constructors |
constructor Create(const FileName: string;const CanCreate:boolean);default constructor sets root key to HKEY_CURRENT_USER
constructor CreateWithKey(key : HKEY; const FileName: string;const CanCreate:boolean);alternative constructor, allows user to specify the rootkey
| Functions |
procedure DeleteKey(const Section, Ident: String);
procedure EraseSection(const Section: string);
function Exists: Boolean;
function ReadBinaryData(const Section, Ident: string; var Buffer; BufSize: Integer): Integer;
function ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
function ReadCurrency(const Section, Ident: string; Default: Currency): Currency;
function ReadDate(const Section, Ident: string; Default: TDateTime): TDateTime;
function ReadDateTime(const Section, Ident: string; Default: TDateTime): TDateTime;
function ReadFloat(const Section, Ident: string; Default: Double): Double;
function ReadInteger(const Section, Ident: string; Default: Longint): Longint;
procedure ReadSection(const Section: string; Strings: TStrings);
procedure ReadSections(Strings: TStrings);
procedure ReadSectionValues(const Section: string; Strings: TStrings);
function ReadString(const Section, Ident, Default: string): string;
function ReadTime(const Section, Ident: string; Default: TDateTime): TDateTime;
function SaveAppKey(key, filename : string): boolean;
procedure WriteBinaryData(const Section, Ident: string; var Buffer; BufSize: Integer);
procedure WriteBool(const Section, Ident: string; Value: Boolean);
procedure WriteCurrency(const Section, Ident: string; Value: Currency);
procedure WriteDate(const Section, Ident: string; Value: TDateTime);
procedure WriteDateTime(const Section, Ident: string; Value: TDateTime);
procedure WriteFloat(const Section, Ident: string; Value: Double);
procedure WriteInteger(const Section, Ident: string; Value: Longint);
procedure WriteString(const Section, Ident, Value: String);
procedure WriteTime(const Section, Ident: string; Value: TDateTime);| Properties |
property FileName : string| Events |
| Variables |
FFileName : string;