Klasse in het register opgeslagen informatie over de toepassing

, snelle toont hoe de opslag in de informatie over de toepassing van de in het register.Is het zo geschreven, alle aanvragen krijg je ze van de opslag van informatie, het schrijven van toepassing kunnen veel toen ik dit schreef in de categorie van de reden is, ik schrijf veel software.Deze les is een standaard manier om te slaan over de toepassing door de eventuele toepassing van informatie kan lezen.,,,,,,,, - eenheid appreginfo;, het gebruik van dergelijke, SysUtils, register, ramen,,,,, tapplicationregistryinfo = (TObject), particuliere, fappname:,, kolom touw, touw.;:,,, fversion:, het publiek, de procedures writetoregistry;,, attributen wijzigen: lezen en schrijven. Fappname fappname;,, onroerend goed standpunt: lezen en schrijven eigenschappen van touw, reddingsvesten, flotatie; versie: lezen en schrijven. Fversion fversion;,,,,,, aan het einde van de uitvoering van het programma,,; en tapplicationregistryinfo. Writetoregistry;,, var, reg: Griffie;,,,, geregistreerd: = register. De oprichting van een,,,, reg.rootkey:= hkey_local_machin;E -;,,, als fappname < > "dan beginnen,,, als geregistreerd. Openkey (formaat (" software software en innovatie [geven]% van informatie "), is), dan, begin, registratie van klasse ('location, positie);,, registratie van klasse ('version".,, registratie); ('lastused ", nu. Writedatetime);,,,,,, aan het einde van het laatste;;,,,,,, de registratie van gratis; aan het einde van het,,,,,,,,,,,, zelfs als er sprake is van Dit soort slechts een paar gebieden die gemakkelijk kan worden uitgebreid. Om te voldoen aan de behoeften van deze basis, rekening houdend met de behoeften, kan worden uitgebreid.,,,,,, de belangrijkste vorm van bijvoorbeeld de code: door toevoeging van appreginfo.,,,, ///////register gebruik In de eerste plaats reginfo:= tapplicationregistryinfo creëren;,,,, reginfo.appna.Ik: = "de naam van toepassing.";,, reginfo. Plaats: = toepassing. Exename;,, //- versie van deze informatie kan ook, van reginfo Exe gewonnen. Versie: = 1 -;,, reginfo. Writetoregistry; en, tot slot, de vrijheid, de reginfo;,,,,, te beëindigen;



Previous:
Next Page: