Unit RegistryEnhanced |
-------------------------------------------------------------------------------------} { A "Registry" component for Delphi32. } { Copyright 1997, Jean-Fabien Connault. All Rights Reserved. } { This component can be freely used and distributed in commercial and private } { environments, provided this notice is not modified in any way. } { -------------------------------------------------------------------------------------} { Feel free to contact me if you have any questions, comments or suggestions at } { JFConnault@mail.dotcom.fr (Jean-Fabien Connault) } { You can always find the latest version of this component at: } { http://www.worldnet.net/~cycocrew/delphi/ } { -------------------------------------------------------------------------------------} { Thanks to John from Fine Point Technologies for enhancing "access" functions } { info@finepoint.com (Fine Point Technologies) } { -------------------------------------------------------------------------------------} { Date last modified: 07/05/97 } { -------------------------------------------------------------------------------------} { -------------------------------------------------------------------------------------} { TRegistryEnhanced v1.09 } { -------------------------------------------------------------------------------------} { Description: } { A component that allows you manipulate entries in the Registry } { Properties: } { property Access: TAccess; "Registry access rights" } { property EntriesFound: TStringList; "StringList to store the search result" } { property Key: String; "Key in Registry" } { property RootKey: TRootKey; "RootKey" } { Procedures and Functions: } { procedure Search(ASubKey,AString:string;ASearchOption:TSearchOption); } { procedure SetValue(AValue:string;AValueData:Variant); } { function GetValue(AValue:String): Variant; } { function GetValueDefault(AValue:string;AValueDataDefault:Variant): Variant; } { procedure GetValueNames(ASubKey: String; AList:TStrings); } { procedure GetSubKeys(ASubKey: String; AList:TStrings); } { procedure DeleteKey(AKey:String); } { procedure DeleteValue(AValue:String); } { procedure RenameKey(OldKey,NewKey:String); } { procedure RenameValue(OldValue,NewValue:String); } { Needs: } { TBrkApart component from Patrick Brisacier and Jean-Fabien Connault } { MyRegistry unit which is a modified version of the standard Registry unit } { } { See example contained in example.zip file for more details. } { -------------------------------------------------------------------------------------} { Revision History: } { 1.00: + Initial release } { 1.01: + Bug fixed } { 1.02: + Added Registry search capabilities } { 1.03: + Bug fixed in GetValueDefault function } { 1.04: + Allowed an empty string as Key when using GetValueNames and GetSubKeys } { functions } { 1.05: + Read and Write now float values } { + Read now binary values } { 1.06: + Added Access property to manage Registry access rights } { 1.07: + Added SetBinaryValue procedure to store binary values in the registry } { 1.08: + Added support of rdExpandString in GetValue and GetValueDefault functions } { 1.09: + Modified to work with Delphi 3 } { -------------------------------------------------------------------------------------
Classes |
Functions |
Register - TRegistryEnhanced.
Types |
Constants |
AccessValues
MAX_BUFFER_SIZE
MAX_DEPTH
MSG_TOO_MUCH_ENTRIES
RootKeyValues
Variables |
Functions |
Types |
TAccess = (kRead, kWrite, kExecute, kAllAccess);
TRootKey = (hkClassesRoot, hkCurrentConfig, hkCurrentUser, hkDynData,hkLocalMachine,hkUsers);
TSearchOption = (opValue,opData,opValueData);
Constants |
Variables |