Klasse für die Anwendung Informationen in der Registrierung speichern

Klasse für die Anwendung Informationen in der Registrierung speichern

Klasse für die Anwendung Informationen in der Registrierung speichern : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Kurze Anleitung zeigt, wie man Infos über Ihre Anwendung in der Windows-Registrierung gespeichert. Die Klasse ist so geschrieben, dass alle Anwendungen, die Sie jemals schreiben ihre gespeicherten Informationen erhalten, dies nützlich sein kann wenn Sie viele Anwendungen schreiben
Die Reson schrieb ich diese kleinen Klasse ist, dass ich eher zu viele Software schreiben. Diese Klasse stellt ein Standardverfahren zum Infos über eine Anwendung zu speichern, die von keinem Ihrer Apps gelesen werden kann.

unit AppRegInfo;
interface
Uses Classes, Sysutils, Registry, Windows;
type
  TApplicationRegistryInfo = class (TObject)
  private
    FAppName: string;
    FLocation: string;
    FVersion: string;
  public
    procedure WriteToRegistry;
    property AppName: string read FAppName write FAppName;
    property Location: string read FLocation write FLocation;
    property Version: string read FVersion write FVersion;
  end;

implementation
procedure TApplicationRegistryInfo.WriteToRegistry;
var
  reg: TRegistry;
begin
  reg := Tregistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if FAppName <> '' then begin

        if reg.OpenKey(Format('\SOFTWARE\Innovative Software\%s\Info',[AppName]),TRUE) then
        begin
            Reg.WriteString('Location',Location);
            Reg.WriteString('Version',Version);
            Reg.WriteDateTime('LastUsed',Now);
        end;
    end;
  finally
    reg.free;
  end;
end;

end.

Obwohl in dieser Klasse nur wenige Felder vorhanden sind, kann es leicht erweitert werden, Ihren Bedürfnissen entsprechen, sollten diese Klasse eine Baseclass, die je nach Bedarf erweitert werden kann.
Beispielcode:
Verwendungen im Hauptformular AppRegInfo hinzufügen.

Registerverwendung zuerst
reginfo:=TApplicationRegistryInfo.Create;
versuchen Sie
Reginfo. AppName: = 'Application Name';
Reginfo. Lage: = Application.ExeName;
Versionsinfo, die dies auch aus der exe-Datei extrahiert werden konnten
Reginfo. Version: = '1 Beta';
Reginfo. WriteToRegistry;
Schließlich
Reginfo. Frei;
Ende;