, hoe een document versies van documenten aan een touw, functie, getfileversion (totaal naam: touw; var versie: string): Bull. Verblk:vs_fixedfileinfo var,,,,,,,, infosize, pulen:DWORD; PT, infoptr: aanwijzing;,, begint, versie: = ",, infosize:=; versie beschikbaar (pchar informatie naar de omvang van (naam), pulen);,, fillchar (verblk, groot (vs_fixedfileinfo) 0); en, als infosize > 0, dan beginnen de functies (PT, infosize);,, GetFileVersionInfo (pchar (naam), 0, infosize, PT); verqueryvalue (PT,",,,,, infoptr, pulen); mobiele (infoptr ^, verblk, groot (vs_fixedfileinfo);,, versie: = formaat ("d d d% D" [16 verblk.dwfileversionms, Psy,,, verblk.dwfileversionms en 65535,,,,,, verblk.dwfileversionls verblk.dwfileversionls psy 1665535]); FreeMem (PT);,,,,,, echt resultaten: =; als de laatste resultaten:,,,, aan het einde van = false;,,,