, hoe laat de toepassing van de in de werking van de eenheid versie, getversioninfo;,, interface gebruiken, ramen, klasse, SysUtils;,, programma 's getprojectversioninfo (aversionlist:tstrings; afilename: string "); de functie van getbuildinfo, var (V1 en V2, V3, V4: het woord; afilename: string"): Bull. Getbuildinfoasstring, functie (afilename: string: string "); dat,,, type, ptransbuffer = ^ ttransbuffer;, ttransbuffer = matrix [1] rij... 13;,, totaal, cinfostr:[13] - 1. Touw, ('fileversion", "onderneming", "", ", beschrijving van het bestand, van interne naam", "legalcopyright", "legaltrademarks", "originalfilename", "producten", ",", "versie van producten, vaak zieTS "," currentprogramversion "," "," currentdatabaseversion, versiondetails "); getprojectversioninfo, programma 's, (aversionlist:tstrings; afilename: string"); {. Dit proces zal de terugkeer van alle versies van de informatie als een afzonderlijk, een lijst van tstring string.Elk element kan worden geraadpleegd. Tstring, de lijst van deze aversionlist [0], [1], enz.}, var, aversionlist. En ik: gehele getal;, infosize:DWORD;, ptrans:ptransbuffer; transstr: touw, touw,;; type is, kwam de waarde van PChar type::;, verbuf aanwijzing: versize:DWORD;,,,, WND:DWORD;; aversionlist. Duidelijk, als afilename = "; en, afilename:= paramstr (0); infosize:= beschikbare versie van de informatie, terug naar grootte (pchar (afilename), wnd);,, als (infosize < > 0) en het begin van de functie (verbuf, infosize); en het proberen, als GetFileVersionInfo (pchar (afilename), wnd, infosize, verbuf) en het begin van verqueryvalue (verbuf, pchar (" varfileinfo en vertaling):,, naald (ptrans), versize);,, transstr:= inttohex (ptrans ^ [1], 4) + MNttohex (ptrans ^ [2], 4);,, ik: = laag (cinfostr) tot hoge (cinfostr) doen, begon, kwam is het type: = "stringfileinfo" + transstr + "+ cinfostr [I];,, als verqueryvalue (verbuf, kwam pchar (type verwijst naar de naald (,,) waarde), en versize), aversionlist. Toevoeging van (cinfostr [I] + = + waarde); en tot slot, en, ten slotte,;; (verbuf FreeMem) aan het einde van het einde;;;,,,, getbuildinfo (VAR V1 en V2, V3 V4: woorden, afilename: string ="): Bull. {, de procedures voor terugkeer van één grote en kleine /vrij /versie van de informatie, de waarde van de bouw.}, var, verinfosize:DWORD;, verinfo: aanwijzing;, vervaluesize:DWORD;, vervalue:pvsfixedfileinfo;, POP: dword;, het begin van de resultaten: = echt. Als afilename;= "dan, afilename:= paramstr (0); verinfosize:= beschikbare versie van de informatie, terug naar grootte (pchar (afilename), valse); als verinfosize = 0 en het begin van de resultaten:, = vals; uit te sluiten; getmem; en (verinfo, verinfosize); en proberen, GetFileVersionInfo (pchar (afilename) 0 en verinfosize, verinfo); en (verinfo verqueryvalue,", de aanwijzing (vervalue), vervaluesize);,, en vervalue ^ te doen, V1:= dwfileversionms Psy, 16; V2:= dwfileversionms dollar en FFFF; V3:= dwfileversionls, Psy, 16; V4:= dwfileversionls en $FFFF; aan het einde van de laatste, FreeMem (verinfo;,,, verinfosize); aan het einde van het,,,,,, getbuildinfoasstring (afilename: string "):...; var, de V1 en V2:: woorden, woorden, woorden, V3, V4::; woorden; beginnen, als getbuildinfo (V1 en V2, V3V4) en resultaten: = formaat ("d d d d" [V1 en V2, V3, V4,]), anders zijn de resultaten: = ";,,,,,, einde.