GetFileVersion

GetFileVersion

GetFileVersion : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie man die Dateiversion einer Datei als String zu erhalten.
GetFileVersion-Funktion (const Filename: String; Var Version: String): Boolean;
var
VerBlk: VS_FIXEDFILEINFO;
InfoSize, Pudel: DWord;
PT, InfoPtr: Zeiger;
beginnen
Version: = '';
InfoSize: = GetFileVersionInfoSize(PChar(Filename), Pudel);
FillChar (VerBlk, SizeOf(VS_FIXEDFILEINFO),0);
Wenn InfoSize > 0 dann
beginnen
GetMem (Pt, InfoSize);
GetFileVersionInfo(PChar(Filename), 0, InfoSize, Pt);
VerQueryValue (Pt, ' \', InfoPtr, Pudel);
bewegen (InfoPtr ^, VerBlk, SizeOf(VS_FIXEDFILEINFO));
Version: = Format ('% d. % d. % d. %d', [VerBlk.dwFileVersionMS Shr 16,
VerBlk.dwFileVersionMS und 65535,
VerBlk.dwFileVersionLS Shr 16,
VerBlk.dwFileVersionLS und 65535]);
FreeMem(Pt);
Ergebnis: = True;
anderes Ende
Ergebnis: = False;
Ende;