, lynkursus viser, hvordan opbevarer oplysninger om deres anvendelse i vinduerne.den er affattet således, at alle ansøgninger, skriver du nogensinde vil få deres oplysninger opbevares, det kan være nyttigt, når mange ansøgninger, reson skrev jeg en lille gruppe, er, at jeg har en tendens til at skrive en masse software.denne kategori omfatter en standardiseret måde, opbevarer oplysninger om en ansøgning, der kan læses af alle dine apps.,,,,, enhed appreginfo;,,, grænseflade bruger klasser, sysutils, register, vinduer,,,,, tapplicationregistryinfo = klasse (tobject), private, fappname: string,,, flocation: string,,, fversion: string;, offentlig, procedure writetoregistry;,, ejendom appname: string læse fappname skrive fappname;,, ejendom sted: streng læser flocation skrive flocation;,, ejendom, version: string læse fversion skrive fversion,,,,,,,,,, procedure tapplicationregistryinfo gennemførelse,. writetoregistry;,, var, fo: tregistry;,, begynder, fo: = tregistry. skabe;,,,, reg.rootkey: = hkey_local_machine.,,, hvis fappname < > "så begynde, hvis reg. openkey (format ('), software), nyskabende software med 1% r \\ info, [appname]), sande), begynder, reg. writestring ('location, placering),, reg. writestring ('version, udgave), reg. writedatetime ('lastused, nu),,,,,,,,, endelig, reg. fri,,,,,,,,,,,.,,,,,, selv om der kun er nogle få områder i denne klasse, det let kan udvides til dine behov, finder denne klasse a baseclass, der kan udvides efter behov.,,, f.eks. kode:,,, tilføje appreginfo til anvendelse i de vigtigste form.,,,, //register anvendelse først, reginfo: = tapplicationregistryinfo. skabe;,,,, reginfo.appnamig: = anvendelse navn;,, reginfo. sted: = anvendelse. exename; //version - denne kan også hentes fra exe,, reginfo. udgave: = 1 beta ';,, reginfo. writetoregistry og, endelig, reginfo. gratis;,,,,,,