Clase para almacenar información de la aplicación en el registro

Clase para almacenar informacion de la aplicacion en el registro

Clase para almacenar informacion de la aplicacion en el registro : Multi-millones de consejos para hacer su vida mas facil.

Breve tutorial que muestra como almacenar informacion acerca de su solicitud en el registro de windows. La clase esta escrito para que todas las aplicaciones que usted haya escrito su informacion almacenada, esto puede ser util cuando se escribe un monton de aplicaciones
La reson escribi esta pequeña clase es que tiendo a escribir un monton de software. Esta clase proporciona una forma estandar para almacenar informacion acerca de una aplicacion que puede ser leido por cualquiera de sus aplicaciones.

unidad de AppRegInfo
interfaz
Utiliza las Clases, Sysutils, el Registro de Windows
tipo
& nbsp & nbsp TApplicationRegistryInfo = class (TObject)
& nbsp & nbsp privada
& nbsp & nbsp & nbsp & nbsp FAppName: string
& nbsp & nbsp & nbsp & nbsp FLocation: cadena
& nbsp & nbsp & nbsp & nbsp FVersion: string
& nbsp & nbsp publica
& nbsp & nbsp & nbsp & nbsp procedimiento WriteToRegistry
& nbsp & nbsp & nbsp & nbsp propiedad AppName: cadena de leer FAppName escribir FAppName
& nbsp & nbsp & nbsp & nbsp Ubicacion de la propiedad: cadena de leer FLocation escribir FLocation
& nbsp & nbsp & nbsp & nbsp Version de propiedad de: cadena de leer FVersion escribir FVersion
& nbsp & nbsp final

aplicacion
procedimiento TApplicationRegistryInfo.WriteToRegistry
var
& nbsp & nbsp reg: TRegistry
begin
& nbsp & nbsp reg := Tregistry.Crear
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp reg.RootKey := HKEY_LOCAL_MACHINE
& nbsp & nbsp & nbsp & nbsp si FAppName <> ' then begin

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si reg.OpenKey(Format('/SOFTWARE/Innovador Software/%s/Info',[AppName]),TRUE) then
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reg.WriteString('Location',Ubicacion)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reg.WriteString('Version',Version)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Reg.WriteDateTime('LastUsed',Ahora)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp reg.libre
& nbsp & nbsp final
fin

final.

a pesar de que hay solo algunos de los campos en esta clase, se puede extender facilmente para adaptarse a sus necesidades, considere la posibilidad de esta clase una clase base que puede ampliarse segun sea necesario.
Ejemplo de Codigo:
agregar AppRegInfo a los usos en el formulario principal.

// registrar el uso de la primera
& nbsp & nbsp reginfo:=TApplicationRegistryInfo.Crear
& nbsp & nbsp probar
& nbsp & nbsp & nbsp & nbsp reginfo.AppName := 'Nombre de la Aplicacion'
& nbsp & nbsp & nbsp & nbsp reginfo.Ubicacion := Aplicacion.ExeName
& nbsp & nbsp & nbsp & nbsp // la informacion de version de esta tambien podria ser extraidos desde el archivo exe
& nbsp & nbsp & nbsp & nbsp reginfo.Version := '1 Beta'
& nbsp & nbsp & nbsp & nbsp reginfo.WriteToRegistry
& nbsp & nbsp finalmente
& nbsp & nbsp & nbsp & nbsp reginfo.Libre
& nbsp & nbsp final