, hvordan de får den version af en ansøgning i runtime, enhed getversioninfo;,, grænseflade, anvender, vinduer, klasser, sysutils;,, procedure getprojectversioninfo (aversionlist: tstrings; afilename: string =), funktion getbuildinfo (var - v1, v2 og v3, v4: ord; afilename: string = "): boolean;, funktion getbuildinfoasstring (afilename: string ="): string;,, implementering, type, ptransbuffer = ^ ttransbuffer;, ttransbuffer = array - [1 - 13] af smallint;,, konstant, cinfostr: array - [1 - 13] kæde = ('fileversion "," companyname "," filedescription "," internalname "," legalcopyright "," legaltrademarks "," originalfilename "," productname "," productversion "," comments "," currentprogramversion "," currentdatabaseversion "," versiondetails), procedure getprojectversioninfo (aversionlist: tstrings; afilename: string = "), (denne procedure returnerer alle de oplysninger, som en særskilt udgave, snor angivelser af en tstring liste.hvert element kan få adgang til, ved at tildele tstring liste således: aversionlist [0], aversionlist [1] osv.), var jeg,: heltal, infosize: dword;, ptrans: ptransbuffer;, transstr: string;, typestr: string; værdi: pchar;, verbuf: pointer., versize: dword;, wnd: dword; begynder, aversionlist. klart, hvis afilename = ", afilename: = paramstr (0), infosize: = getfileversioninfosize (pchar (afilename), wnd), hvis (infosize < > 0), begynder, getmem (verbuf, infosize), prøve, hvis getfileversioninfo (pchar (afilename), wnd, infosize, verbuf) så begynde, verqueryvalue (verbuf, pchar ('), varfileinfo (oversættelse), point (ptrans), versize);,, transstr: = inttohex (ptrans) [1], 4) + -nttohex (ptrans) [2], 4), for jeg: = lav (cinfostr) til højt niveau (cinfostr), begynder, typestr: = stringfileinfo (+ transstr + «. » + cinfostr [i];,, hvis verqueryvalue (verbuf, pchar (typestr), point (værdi), versize), aversionlist. der tilsættes (cinfostr [i] + = + værdi);,; endelig freemem (verbuf);,,,,,,,, funktion getbuildinfo (var - v1, v2 og v3, v4: ord; afilename: string = "): boolean, {, denne procedure, returnerer den enkelte store /små /frigivelse /bygge, værdier for udgave oplysninger.}, var, verinfosize: dword;, verinfo: pointer, vervaluesize: dword;, vervalue: pvsfixedfileinfo;, fjols. dword; begynder, resultat: = hvis afilename.= ", afilename: = paramstr (0), verinfosize: = getfileversioninfosize (pchar (afilename), dumme), hvis verinfosize = 0, begynder, resultat: = falske udgang;,;, getmem (verinfo, verinfosize), prøve, getfileversioninfo (pchar (afilename) 0, verinfosize, verinfo), verqueryvalue (verinfo, '), point (vervalue), vervaluesize), med vervalue ^, begynder, v1: = dwfileversionms shr 16, v2: = dwfileversionms og $eøf;, v3: = dwfileversionls shr 16, v4: = dwfileversionls og $eøf;,; endelig freemem (verinfo, verinfosize);,;,;,, funktion getbuildinfoasstring (afilename: string ="): string;, var v1: ord;, v2: ord;, v3: ord;, v4: ord; begynder, hvis getbuildinfo (v1, v2 og v3.v4), resultat: = format (%.%.%.% d '[v1, v2 og v3, v4]), andet resultat: = ";,;,,.,,,