Wenn man auch zwei unterschiedliche Dateien abfragt
Delphi-Quellcode:
VerInfoSize := GetFileVersionInfoSize(PChar(theFileName), Dummy); // theFileName
if VerInfoSize = 0 then Exit;
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo); // ParamStr(0)