2010/7/23 Paul Ishenin <[email protected]>: > This constanst is stored as a resource of your application. You can read it > by accessing this resource. > > I attached a small utility unit which helps with the version info > extraction. > > Here is a small example of how to use it (add vinfo and versiontypes units > to your uses section): > > procedure TForm1.Button1Click(Sender: TObject); > > function ProductVersionToString(PV: TFileProductVersion): String; > begin > Result := Format('%d.%d.%d.%d', [PV[0],PV[1],PV[2],PV[3]]) > end; > > var > Info: TVersionInfo; > begin > Info := TVersionInfo.Create; > Info.Load(HINSTANCE); > ShowMessage(ProductVersionToString(Info.FixedInfo.FileVersion)); > ShowMessage(ProductVersionToString(Info.FixedInfo.ProductVersion)); > Info.Free; > end; > > Best regards, > Paul Ishenin.
Thank you, but my Lazarus (r26732M) can't find vinfo unit. Other question: Is this procedure multiplatform compatible? ( => Does it work on Linux?) Regards, Kjow -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
