Versionsnr. einer Datei rausfinden

[Marcel Gascoyne]

In der JEDI Code Library gibt es die Klasse TJclFileVersionInfo (Unit JclFileUtils) für den Zugriff auf Versionsinformationen einer Datei.

Hier ein kleines Beispiel:

Delphi-Quellcode:

var
  VersionInfo:  TJclFileVersionInfo;
  Hauptversion: Integer;
  Nebenversion: Integer;
  Ausgabe:      Integer;
  Compilierung: Integer;
  Firmenname:   string;
  Beschreibung: string;
  Dateiversion: string;
  InternerName: string;
  Copyright:    string;
  Warenzeichen: string;
  OrigDatei:    string;
  Produktname:  string;
  Kommentare:   string;
begin
  VersionInfo := TJclFileVersionInfo.Create(Application.ExeName);

  Hauptversion := VersionInfo.FixedInfo.dwFileVersionMS shr 16;
  Nebenversion := VersionInfo.FixedInfo.dwFileVersionMS and $FFFF;
  Ausgabe := VersionInfo.FixedInfo.dwFileVersionLS shr 16;
  Compilierung := VersionInfo.FixedInfo.dwFileVersionLS and $FFFF;
  Firmenname := VersionInfo.CompanyName;
  Beschreibung := VersionInfo.FileDescription;
  Dateiversion := VersionInfo.FileVersion;
  InternerName := VersionInfo.InternalName;
  Copyright := VersionInfo.LegalCopyright;
  Warenzeichen := VersionInfo.LegalTradeMarks;
  OrigDatei := VersionInfo.OriginalFilename;
  Produktname := VersionInfo.ProductName;
  Kommentare := VersionInfo.Comments;

  VersionInfo.Free;
end;

Gruß,
Marcel