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 |
Variables |
Functions |
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 |
Variables |