Unit AMReg |
AMReg - version 1.0 (freeware) This component simplifies the proces of saving application settings. As a bonus there is an Shareware component available. With this component you can set a trialperiod for your Shareware app, this component needs the AMReg-component. Follow these steps: 1. Drop AMReg-component on your form 2. Set the following properties: Group, Company, Application and if needed User (AutoUser sets User to current user logged on to the system) 3. When you wan't to save some info you can use the following code: with AMReg1 do begin Active := True; WString('SomeString', Edit1.Text); WInteger('SomeInteger', SpinEdit1.Value); ... (all the other normal registry write procedures (even an encrypt-string) Active := False; end; ATTENTION: Always open the registry by setting 'Active' property at the beginning and close at the end. 'SomeString' and 'SomeInteger' is the userdefined key. 4. When you wan't to read some info you can use the following code: with AMReg1 do begin Active := True; Edit1.Text := RString('SomeString'); SpinEdit1.Value := RInteger('SomeInteger'); ... (all the other normal registry read functions (even an decrypt-string) Active := False; end; 5. There is one special write and one special read string function. You can en-/de-crypt a string to/from the register: WEString('SomeString', Edit1.Text); Edit1.Text := RDString('SomeString'); Version 1.0 - First release Use it as you like, when you have a question please mail me: ameeder@dds.nl
Classes |
TAMReg -
TAMShareware -
Functions |
Register -
Types |
Constants |
Variables |
Functions |
Types |
TOnExpired = procedure(Sender: TObject; Expired: boolean; ExpirationDate: TDateTime) of object
TRootKey = (HKeyClassesRoot, HKeyCurrentUser, HKeyLocalMachine, HKeyUsers, HKeyPerformanceData, HKeyCurrentConfig, HKeyDynData);
Constants |
Variables |