Hurtig tutorial som viser hvordan du lagrer info om programmet i Windows-registret. Klassen er skrevet slik at alle programmene du noen gang skrive vil få sin info lagret, kan dette være nyttig når du skriver masse applicationsThe RESON jeg skrev denne lille klassen er at jeg har en tendens til å skrive masse programvare. Denne klassen gir en standard måte å lagre informasjon om et program som kan leses av noen av dine apps.unit AppRegInfo; interfaceUses Classes, Sysutils, Registry, Windows -typen TApplicationRegistryInfo = klasse (TObject) private FAppName: string; FLocation: string; FVersion: string; offentlig prosedyre WriteToRegistry; Eiendommen AppName: string lese FAppName skrive FAppName; Eiendommen Sted: string les FLocation skrive FLocation; Eiendommen Version: string les FVersion skrive FVersion; enden, implementationprocedure TApplicationRegistryInfo.WriteToRegistry; Var reg: TRegistry; begynne reg: = Tregistry.Create; prøv reg.RootKey: = HKEY_LOCAL_MACHINE; hvis FAppName < > '' Deretter begynne hvis reg.OpenKey (Format ('\\ SOFTWARE \\ Innovative Software \\% s \\ Info', [AppName]), TRUE) deretter begynne Reg.WriteString ("Location", Location); Reg.WriteString ('versjon' versjon); Reg.WriteDateTime ('LastUsed', nå); slutt; slutt; endelig reg.free; ende, slutt; end.Even om det bare er noen få felt i denne klassen, kan det lett utvides til å passe dine behov, bør du vurdere denne klassen baseclass som kan forlenges som needed.Example Kode: legg AppRegInfo til bruk i hovedskjema .//registrere bruken første reginfo: = TApplicationRegistryInfo.Create; prøv reginfo.AppName: = 'Navn Brukes'; reginfo.Location: = Application.ExeName; //Versjon info dette kan også være hentet fra exe reginfo.Version: = 'en Beta'; reginfo.WriteToRegistry; endelig reginfo.Free; end;