Le 06/11/2013 14:41, Anton Kavalenka a écrit :
The unit versionresource is part of package fcl-res
I already use it for Linux with a Linux executable file
Unit allow x-platform version resource extraction and parsing.
rsrc:=TVersionResource.Create;
Stream := TResourceStream.CreateFromID(*hMod*, 1, PChar(RT_VERSION));
What's *hMod *stands for ? Looks like a pointer of so (PtrUint)
rsrc.SetCustomRawDataStream(Stream);
with res do
case it of
vsFileVersion:
Result:=format('%d.%d.%d.%d',[FileVersion[0],FileVersion[1],FileVersion[2],FileVersion[3]]);
vsProductVersion:
Result:=format('%d.%d.%d.%d',[ProductVersion[0],ProductVersion[1],ProductVersion[2],ProductVersion[3]]);
end;
regards,
Anton
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
