[fpc-pascal] GetVersionEx - Issue with lpVersionInformation variable

[Michael Van Canneyt]

On Fri, 22 Jan 2010, Justin Smyth wrote:

> Guys
>
> I've been looking at lpVersionInformation in GetVersionEx which is defined as TOSVersionInfo in redef.inc , and in delphi its defined as TOSVersionInfoEx in jclwin32.pas in jvcl ( function GetVersionEx(var lpVersionInformation: TOSVersionInfoEx): BOOL; stdcall; overload; is how its defined)
>
> any idea's ? should i create my own bit for this and change the lpVersionInformation  varable to match the JCL version ?  ( will this work )

Check the GetVersionEx call in jwawinbase.pas, the structure is defined in JwaWinNT.

Michael.