[Lazarus] Program version

Antonio Fortuny a.fortuny at sitasoftware.lu
Wed Nov 6 15:39:46 CET 2013


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 at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20131106/e3761d22/attachment-0003.html>


More information about the Lazarus mailing list