Programmversion von extern auslesen

[Ich934]

Hallo,

ich kann in den Projekteinstellungen eine Versionsinformation hinterlegen. Diese kann ich problemlos im Projekt selbst auslesen und verwenden. Dies funktioniert unter Windows und Linux.

Gibt es eine Möglichkeit, die Versionsinformation einer Anwendung mit einer anderen Anwendung auzulesen? Und wenn ja sowohl unter Windows als auch unter Linux?

Vielen Dank.

Schöne Grüße

[fliegermichl]

sysutils.GetFileVersion
Funktioniert aber afaik nur unter Windows

[Winni]

sysutils.GetFileVersion
Funktioniert aber afaik nur unter Windows

Yes! Win32 und WinCE only.

Winni

[PascalDragon]

Gibt es eine Möglichkeit, die Versionsinformation einer Anwendung mit einer anderen Anwendung auzulesen? Und wenn ja sowohl unter Windows als auch unter Linux?

Dafür kannst du die Units des in FPC enthaltenen fcl-res Packages verwenden. Beispiel:

Code: Alles auswählen

program tres;

{$mode objfpc}

uses
  versionresource, winpeimagereader, elfreader, machoreader, resource;

var
  i, j: LongInt;
  res: TResources;
  ar: TAbstractResource;
begin
  res := TResources.Create;
  try
    for i := 1 to ParamCount do begin
      Writeln('Opening ', ParamStr(i));

      res.LoadFromFile(ParamStr(i));

      ar := res.Find(RT_VERSION, 1);
      if not (ar is TVersionResource) then begin
        Writeln('RT_VERSION 1 is not a version resource');
        Continue;
      end;

      Write('File Version: ');
      for j := 0 to 3 do begin
        if j > 0 then
          Write('.');
        Write(TVersionResource(ar).FixedInfo.FileVersion[j]);
      end;
      Writeln;
    end;
  finally
    res.Free;
  end;
end.

Ausgabe:

Code: Alles auswählen

PS D:\fpc\git> .\testoutput\tres.exe D:\lazarus\svn\lazarus.exe C:\Windows\System32\kernel32.dll
Opening D:\lazarus\svn\lazarus.exe
File Version: 2.3.0.0
Opening C:\Windows\System32\kernel32.dll
File Version: 10.0.19041.1202

Funktioniert unter allen von FPC unterstützten Plattformen, bei denen dieses Package vorhanden ist (also fast alles außer Platformen wie AVR, Z80 und so ) und unterstützt werden Windows Binaries sowie ELF (Linux, BSDs, etc.) und Mach-O (macOS) Binaries, wobei bei letzteren beiden diese von FPC erstellt worden sein müssen, da nur dann die Versionsinformation als Ressource vorhanden ist.

[Ally]

hier noch eine Unit.

Gruß Roland

----------------

Code: Alles auswählen

// ----------------------------------------------------------------------------
//  rhsVersionFromFile
// ----------------------------------------------------------------------------
//
// Example:
// Label1 := GetVersionFromFile('C:\Test.exe', 4);
// ----------------------------------------------------------------------------

unit rhsVersionFromFile;

{$mode objfpc}{$H+}

interface

uses
  SysUtils, FileInfo, winpeimagereader, elfreader, machoreader;

function GetVersionFromFile(Filename: String; SubVer: Integer): String;

implementation

function GetVersionFromFile(Filename: String; SubVer: Integer): String;
var
  VI: TVersionInfo;
begin
  try
    VI := TVersionInfo.Create;
    VI.Load(Filename);
    if SubVer > 0 then
      Result := IntToStr(VI.FixedInfo.FileVersion[0]);
    if SubVer > 1 then
      Result := Result + '.' + IntToStr(VI.FixedInfo.FileVersion[1]);
    if SubVer > 2 then
      Result := Result + '.' + IntToStr(VI.FixedInfo.FileVersion[2]);
    if SubVer > 3 then
      Result := Result + '.' + IntToStr(VI.FixedInfo.FileVersion[3]);
  except
    Result := '';
  end;
  VI.Free;
end;

end.

[af0815]

Was meinst du genau unter anderer Anwendung ?

[Ich934]

Was meinst du genau unter anderer Anwendung ?

Mit einer Anwendung die Versionsnummern einer zweiten .exe Datei unter Windows oder ELF-Binary unter Linux.

Die Klassen schau ich mir Mal an. Danke.

[Ich934]

Dafür kannst du die Units des in FPC enthaltenen fcl-res Packages verwenden. Beispiel:

Funktioniert prima und ist genau das, was ich gesucht habe! Nochmals vielen Dank!

[PascalDragon]

Dafür kannst du die Units des in FPC enthaltenen fcl-res Packages verwenden. Beispiel:

Funktioniert prima und ist genau das, was ich gesucht habe! Nochmals vielen Dank!

Das Beispiel von Ally ist noch etwas einfacher, setzt aber intern auf dem gleichen Code auf (mir war die Load Methode von TVersionInfo nicht bewusst).