[Lazarus] How to get "external" FileVersion

[Michael Van Canneyt]

On Wed, 7 Mar 2012, Kjow wrote:

> 2012/3/7 Kjow <antispammoni at gmail.com>:
>> 2012/3/7  <michael.vancanneyt at wisa.be>:
>>> The below unit does what you need.
>>>
>>> It can be made more simple, I still need to include the unix code in the
>>> fileinfo unit.
>>>
>>> Michael.
>>>
>>> unit getvers;
>>
>> Thank you, but your unit extracts the build number from the same
>> program where it's included, right?
>> I need to extract the build number from an other file (like 'C:\test.exe' ).
>>
>> Or am I in wrong?
>>
>> Thank you,
>> Kjow
>
> Also replacing ParamStr(0) with 'C:\test.exe' I get 0.0.0.0 (instead
> FileVersion: 1.2.3.4)

Are you sure this program has version info ? 
On windows, the standard windows call is used to extract the info.

Michael.