How to read version of the my application?

[BlueIcaro]

Hello, How can I read the version of my application, when it's start.

I would like the version info stored in the exe.

Thanks

/BlueIcaro

[faber]

On windows

Code: [Select]

LectureVersion(paramstr(0))

Code: [Select]

function LectureVersion (chemin : String) : String;
var
   VersionL,Taille    : DWord;
   VersionPC,Buffer   : PChar;
begin
 Result := '';
 Taille := GetFileVersionInfoSize(PChar(chemin), Taille);
 if Taille > 0 then
 try
    Buffer := AllocMem(Taille);
    GetFileVersionInfo(PChar(chemin),0,Taille,Buffer);
    if VerQueryValue(Buffer,PChar('\StringFileInfo\041504B0\FileVersion'),Pointer(VersionPC),VersionL) then
       Result := VersionPC;
 finally
    FreeMem(Buffer,Taille);
 end;
end;

[BlueIcaro]

Thanks for the function
But it's returns empty string. I debug it and does run :   Result := VersionPC;

I add version in the option proyect

I running in Windows 7 Ultimate, may this can be the problem, I don't know

/BlueIcaro

[faber]

Ups, I forget, you should find your lang code. Fastest way:
open your exe with notepad and look for StringFileInfo, then you will see your (this is my \StringFileInfo\041504B0\FileVersion).

[mas steindorff]

Ups, I forget, you should find your lang code. Fastest way:
open your exe with notepad and look for StringFileInfo, then you will see your (this is my \StringFileInfo\041504B0\FileVersion).

??? I'm lost but here is another way

Code: [Select]

implementation
uses  windows;

function TFrmMain.MyGetVersion(filename:string=''): String;
var
  my :record
    Dummy: DWord;
    VerInfo: Pointer;
    VerInfoSize: DWord;
    VerValueSize: DWord;
    VerValue:  PVSFixedFileInfo;
    end;
begin
  Result:='';
  my.Dummy:=0; // to keep the compiler happy
  if filename='' then filename:=ParamStr(0);
  my.VerInfoSize := GetFileVersionInfoSize(PChar(filename), my.Dummy);
  if my.VerInfoSize=0 then
     exit;
  GetMem(my.VerInfo, my.VerInfoSize);
  GetFileVersionInfo(PChar(filename), 0, my.VerInfoSize, my.VerInfo);
  VerQueryValue(my.VerInfo, '\', Pointer(my.VerValue), my.VerValueSize);
  with my.VerValue^ do  begin
     result := IntTostr(dwFileVersionMS shr 16);
     result := result+'.'+   IntTostr(dwFileVersionMS and $FFFF);
     result := result+'.'+   IntTostr(dwFileVersionLS shr 16);
     result := result+'.'+   IntTostr(dwFileVersionLS and $FFFF);
  end;
  FreeMem(my.VerInfo, my.VerInfoSize);
end;


[faber]

??? I'm lost but here is another way

Code: [Select]

...
     result := IntTostr(dwFileVersionMS shr 16);
     result := result+'.'+   IntTostr(dwFileVersionMS and $FFFF);
     result := result+'.'+   IntTostr(dwFileVersionLS shr 16);
     result := result+'.'+   IntTostr(dwFileVersionLS and $FFFF);
...


yes, this is the same, you can use "dwFileVersionMS shr 16 ..." or you can call directly "\StringFileInfo\041504B0\FileVersion" but in that case you must know your lang codepage of your exe descript (in my case 041504B0).

[alessandro1500]

Anyone know how could I do the same in Linux? "PVSFixedFileInfo" is in windows.pas and I could use a compile directive to port on linux

[minesadorada]

Take a look at Lazarus unit FileInfo.  I assume it is crossplatform.

[Thaddy]

It is cross-platform for fpc/lazarus applications, but afaik it can not be read by other applications very easily on anything other than Windows.
The application itself can present the data on all platforms.