Executable version fpc 2.7.1

[elidorio]

How to extract the version number in the Lazarus, I am using 2.7.1 FPC?

[Zoran]

For FPC version, use $I (INCLUDE) compiler directive - see: http://www.freepascal.org/docs-html/prog/progsu41.html

For LCL version (ie. Lazarus version), include LCLVersion unit and use some of constants declared there.

For example, start new application, put two labels on the form, add LCLVersion unit to uses list and put the following in main form's OnCreate event:

Code: [Select]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := 'fpc version: ' + {$i%fpcversion%};
  Label2.Caption := 'lazarus version: ' + lcl_version;
end;


[exdatis]

Thank you very much, Zoran!

[elidorio]

I expressed myself badly!

Want to get the version of my exe from my application.

[BigChimp]

Some info here:
http://wiki.lazarus.freepascal.org/User_Changes_Trunk#TVersionInfo_.28fileinfo_unit.29_re-implemented_in_a_platform_independent_way

[Zoran]

I expressed myself badly!

Want to get the version of my exe from my application.

Read this thread: http://www.lazarus.freepascal.org/index.php/topic,12435.0.html

[elidorio]

TVersionInfo (fileinfo unit) re-implemented in a platform independent way

    Old behaviour: GetVersionSetting method would read file information.
    New behaviour: The ReadFileInfo call will read the information. The global GetProgramVersion call will extract the program major/minor/revision/build version in 1 single call.
    Reason: The unit now uses FPC resources on all platforms, and can now be used to read external resources.
    Remedy: Use the ReadFileInfo call to get the version information. Add relevant units for desired resource support to your uses clause; e.g. if you need to read Windows .exe file info, add winpeimagereader


Sorry, can not implementing this code.

[Zoran]

By following the thread I linked in my previous post (which uses unit vinfo), I can get my application version with FPC 2.6.2.
However, I can't test with FPC from trunk, as I use only stable FPC.

[elidorio]

n my lazarus 1.08 fpc 2.6.2. I already have this code working, problem is that this code does not work with Lazarus 2.7.1. Because it has changed this unit GetVersionSetting.
I am not able to implement this code.