Version von FPC und Lazarus aus fertigen Programm auslesen

[af0815]

Ich würde gerne wissen, ob es eine 'offizielle' Möglichkeit gibt unter Linux (elf-binaries) die Version vom FPC und Lazarus zu bestimmen ? Ist für mich natürlich für Win10 (32+64), arm-Linux und x64-Linux interessant.

Aktuell mache ich das mit eine Texteditor und such nach FPC. Das findet Hinweise mit welcher LCL und FPC das ganze gebaut wurde, wenn Icons und andere LCL Teile beinhaltet sind. Gibt es da einen anderen Weg ?!

Danke für sachdienliche Hinweise

[corpsman]

Ich weis ist nicht ganz die Antwort auf dein Thema,
Aber wenn du den Code selbst in der Hand hast kann man das einfach einfügen

ich mach das bei mir so:

Code: Alles auswählen

InfoLabel.caption :=  
 'Corpsman Cache Manager ver. ' + Version + ', ' + inttostr(sizeof(Pointer) * 8) + ' Bit, ' + {$I %DATE%} + ' ' + {$I %TIME%} + LineEnding + LineEnding +  
  'Used Lazarus IDE ' + lcl_version + LineEnding +
    'Compiled with FPC ' + {$I %FPCVERSION%};

[Winni]

Hi!

Unter Linux mache ich das immer so

Code: Alles auswählen

strings Binärfile | grep "Lazarus LCL"

strings Binärfile | grep "Free Pascal"

Das ergibt dann Folgendes



Lazarus LCL: 2.0.12.0

Free Pascal 3.2.0 2020/07/03



Unter Windows könnte man z.B. den Total Commander danach suchen lassen.

Winni

[af0815]

@corpsman: sowas ähnliches habe ich drinnen, nur halt noch nicht mit der fpc/Lazarusversion.
@winni: so ähnlich habe ich es gemacht nur halt Notepad++ mit den Keyworten auf die Reise geschickt, weil ich gerade auf einem Win Rechner war.

Grundlegend findet man das und jeder sucht ähnlich im fertigen Programm. Wenn man das ENde der Datei sich ansieht, gibt es einiges an Infos zu finden.

Danke mal an alle Ideenspender.

[Winni]

Hi!

Ich hab ein bischen rumgetestet mit dem Version String:

* fpc Versionen kleiner als 3.04 enthalten den String "Free Pascal Version" gefolgt von ein paar bytes. Die muss man also leider umwandeln in lesbare Zeichen

* Manche größeren Projekte enthalten im Binary bis zu 15 mal (!!) den String

Free Pascal [Version] [Datum]

Aus welchen Gründen auch immer?? In jeder Unit einmal ????

Winni

[Winni]

Hi!

Für af0815 und alle anderen, die es brauchen können:

Quick & Dirty: Findversion

Project im Anhang.
Erstellt unter Linux.
Windows nicht getestet.

Winni

[sstvmaster]

Unter Windows funktioniert es auch.

[Winni]

Thanx

[Epcop]

Danke Winni, respekt für die Arbeit