Classe de stockage d'information de l'application dans la base de registre

Classe de stockage d'information de l'application dans la base de registre

Classe de stockage d'information de l'application dans la base de registre : Plusieurs milliers de conseils pour vous faciliter la vie.

Rapide tutoriel qui montre comment stocker des informations sur votre application dans le registre windows. La classe est ecrit de telle sorte que toutes les applications que vous ecrivez obtiennent leurs informations sont stockees, ce qui peut etre utile lors de l'ecriture de nombreuses applications
La reson j'ai ecrit ce petit de la classe, c'est que j'ai tendance a ecrire beaucoup de logiciels. Cette classe fournit un moyen standard pour stocker des informations sur une application qui peut etre lu par n'importe quel de vos applications.

unite de AppRegInfo
interface
Utilise des Classes, Sysutils, Registre, Windows
type
& nbsp & nbsp TApplicationRegistryInfo = class (TObject)
& nbsp & nbsp prive
& ! & ! & ! & nbsp FAppName: string
& ! & ! & ! & nbsp FLocation: string
& ! & ! & ! & nbsp FVersion: string
& nbsp & nbsp public
& ! & ! & ! & nbsp procedure WriteToRegistry
& ! & ! & ! & nbsp propriete Nom: chaîne de lecture FAppName ecrire FAppName
& ! & ! & ! & nbsp Emplacement de la propriete: chaîne de lecture FLocation ecrire FLocation
& ! & ! & ! & nbsp propriete Version: chaîne de lire FVersion ecrire FVersion
& nbsp & nbsp fin

application
procedure TApplicationRegistryInfo.WriteToRegistry
var
& nbsp & nbsp reg: TRegistry
begin
& nbsp & nbsp reg := Tregistry.Creer
& nbsp & nbsp essayer
& ! & ! & ! & nbsp reg.RootKey := HKEY_LOCAL_MACHINE
& ! & ! & ! & nbsp si FAppName < > '' alors commencer

& ! & ! & ! & ! & ! & ! & ! & nbsp si reg.OpenKey(Format('\SOFTWARE\Innovantes Software\%s\'Info,[Nom]),TRUE)
& ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Reg.WriteString ('Emplacement', Emplacement)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Reg.WriteString ('Version', Version)
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Reg.WriteDateTime('LastUsed', Maintenant)
& ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp fin
& nbsp & nbsp enfin
& ! & ! & ! & nbsp reg.gratuit
& nbsp & nbsp fin
fin

a la fin.

Meme si il y a seulement quelques champs de cette classe, il peut facilement etre etendu pour repondre a vos besoins, pensez a cette classe un baseclass qui peuvent etre etendues en cas de besoin.
Exemple de Code:
ajouter AppRegInfo pour les utilisations dans le formulaire principal.

// enregistrer l'utilisation de la premiere
& nbsp & nbsp reginfo:=TApplicationRegistryInfo.Creer
& nbsp & nbsp essayer
& ! & ! & ! & nbsp reginfo.Nom := 'Nom de l'Application'
& ! & ! & ! & nbsp reginfo.Emplacement := Application.ExeName
& ! & ! & ! & nbsp // info version de ce qui pourrait aussi etre extraites a partir de l'exe
& ! & ! & ! & nbsp reginfo.Version := '1 Beta'
& ! & ! & ! & nbsp reginfo.WriteToRegistry
& nbsp & nbsp enfin
& ! & ! & ! & nbsp reginfo.Gratuit
& nbsp & nbsp fin