Versionsnr. einer Datei rausfinden

[emsländer]

Hallo zusammen,

wie kann ich die Versionsnr. einer Datei (die mit Delphi versioniert wurde) herausfinden? Es ist nicht das aktuelle Programm gemeint, sondern ich bräuchte eine Funtion in der Art: getfileversion(dateiname)


Gruss

EL

[Luckie]

GetFileVersionInfo und das GetFileVersionInfoSize wirst du brauchen. Aber eine Google-Suche delphi getfileversion hätte auch schon viel geholfen.

[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

[emsländer]

Hallo die Kollegen,

vielen Dank

Gruss

EL