[Lazarus] Version info

[Sven Barth]

Am 18.09.2012 12:08, schrieb michael.vancanneyt at wisa.be:
>
>
> On Tue, 18 Sep 2012, patspiper wrote:
>
>> On 18/09/12 10:21, michael.vancanneyt at wisa.be wrote:
>>>
>>> Yes.
>>> But as I wrote in another mail in this thread:
>>> I have a modified version of that unit that works for Linux as well;
>>> I use it in production.
>>>
>>> Here is the relevant part for non-windows:
>>>
>>> uses resource, elfreader, versiontypes,versionresource;
>>>
>>>
>>> Type
>>>   TVersionQuad = Array[1..4] of Word;
>>>
>>> Function GetFileVersion (Const AFileName : string; Var Version :
>>> TVersionQuad) : Boolean;
>>>
>>> Var
>>>   RS : TResources;
>>>   E : TElfResourceReader;
>>>   VR : TVersionResource;
>>>   I : Integer;
>>>
>>> begin
>>>   RS:=TResources.Create;
>>>   try
>>>     E:=TElfResourceReader.Create;
>>>     try
>>>       Rs.LoadFromFile(AFileName,E);
>>>     finally
>>>       E.Free;
>>>     end;
>>>     VR:=Nil;
>>>     I:=0;
>>>     While (VR=Nil) and (I<RS.Count) do
>>>       begin
>>>       if RS.Items[i] is TVersionResource then
>>>          VR:=TVersionResource(RS.Items[i]);
>>>       Inc(I);
>>>       end;
>>>     Result:=(VR<>Nil);
>>>     if Result then
>>>       For I:=1 to 4 do
>>>         Version[i]:=VR.FixedInfo.FileVersion[I-1];
>>>   Finally
>>>     RS.FRee;
>>>   end;
>>> end;
>>>
>>>
>>> Better yet would probably be to commit it in FPC SVN. I'll look into
>>> that as
>>> well :-)
>>
>> Your implementation of reading the file resources differs a little
>> from Paul's
>> (http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20100723/8db6b97e/attachment.ksh).
>> Are there any merits for each one?
>
> His version starts with a handle, which requires loading the module. I
> am not sure (as in: I simply do not know) whether you can load an
> executable
> or DLL without running them and obtain the correct handle.

You can pass a flag to LoadLibraryEx that tells Windows to load it only 
as a data file (works with DLL and EXE alike).

Regards,
Sven