Nachtrag, wer andere Werte auslesen will, kann die folgenden Codezeilen entsprechend anpassen.
Delphi-Quellcode:
VerQueryValue(
VersionInfo, PChar(VersionValue + 'InternalName'), InfoPointer,
VersionInfoSize
);
aInternalName := AnsiString(PChar(InfoPointer));
...
...