Unit MyRegistry

---------------------------------------------------------------------- Copyright (c) 1997 by Martin Zahl eMail: Martin.Zahl@Informatik.uni-oldenburg.de The Idea of this component was to be able to save the configuration in the registry OR!! an inifile. So that you can select the destination without any changes in the source. I'm using the methods from TINIFile, because they have the same parameters as TRegistry "+ the Section-Field". So you can use the same method for both: TINIFile and TRegistry Version 1.01 - ## Changes from Zdenek Petruj ## - He implements a greater exception-handling !! - Thanks to him ! - new: function ValueExists(Section:string;Ident:string): Boolean; - new event: TMyRegistryError Version 1.10 - new: property SaveNewKey : boolean; writes a key if he does not exist on reading - updated methods: open, close <>Nil checking implemented ----------------------------------------------------------------------

Classes

TMyRegistry -
TUpdatesProperty -

Functions

Register - ---------------------------------------------------------------------- //

Types

HKeys
THomepage
TMyRegistryError

Constants

MyHomepage

Variables


Functions


procedure Register;

---------------------------------------------------------------------- //

Types


HKeys = (kHKEY_CLASSES_ROOT, kHKEY_CURRENT_USER, kHKEY_LOCAL_MACHINE,
           kHKEY_USERS, kHKEY_CURRENT_CONFIG, kHKEY_DYN_DATA);

THomepage   = string

TMyRegistryError = procedure(Sender: TObject;IsBox:Boolean; EMessage : String) of object

Constants

MyHomepage = 'http://www.Informatik.Uni-Oldenburg.de/~mzahl'

Now you can download the newest version only by pressing the button at "Homepage" !!

Variables