Hvordan få filen versjon av en fil som en string.function GetFileVersion (konst Filename: string; Var Version: string): Boolean; Var VerBlk: VS_FIXEDFILEINFO; InfoSize, puLen: DWORD; Pt, InfoPtr: Pointer, begynner versjon: = ''; InfoSize: = GetFileVersionInfoSize (PChar (Filnavn), puLen); FillChar (VerBlk, sizeof (VS_FIXEDFILEINFO), 0); hvis InfoSize > 0 da begynne GetMem (Pt, InfoSize); GetFileVersionInfo (PChar (Filnavn), 0, InfoSize, Pt); VerQueryValue (Pt, '\\', InfoPtr, puLen); flytte (InfoPtr ^, VerBlk, sizeof (VS_FIXEDFILEINFO)); Versjon: = Format ( '...% D% d% d% d', [VerBlk.dwFileVersionMS SHR 16, VerBlk.dwFileVersionMS og 65535, VerBlk.dwFileVersionLS shr 16, VerBlk.dwFileVersionLS og 65535]); FreeMem (Pt); Resultat: = true; ende annet Resultat: = False; end;