, hvordan de får den fil version af en fil, som en snor.,, funktion getfileversion (denne filnavn: string, var version: string): boolean,,, var, verblk: vs_fixedfileinfo;,, infosize, pulen: dword;,, pt, infoptr: pointer, begynder, version: = ",,, infosize: = getfileversioninfosize (pchar (filnavn), pulen);,, fillchar (verblk, 7 (vs_fixedfileinfo) 0), hvis infosize > 0, begynder, getmem (pt, infosize);,, getfileversioninfo (pchar (filnavn), 0, infosize, pt);,, verqueryvalue (pt, '), infoptr, pulen);,, kom (infoptr ^, verblk, 7 (vs_fixedfileinfo), version: = format (%.%.%.% d) [verblk.dwfileversionms shr 16,,, verblk.dwfileversionms og 65535,,,, verblk.dwfileversionls shr 16,,, verblk.dwfileversionls og 65535]), freemem (pt);,, resultat: = sandt,,,,, resultat: = falske,,,,,,