Add GetVersionExA

[Techno-Fox]

I was making a process for getting the type of windows the software was on. Windows 10, Windows server 2016, etc. When I tried to use the method provided on the microsoft documentation. It gave a type error. The paremeter I gave wasn't correct. LPOSVERSIONINFO didn't work nor did OSVERSIONINFO.addr work. I looked in the code and found why. There was no GetVersionExA that accepted LPOSVERSIONINFO. So I added it and it works now.

  proc GetVersionExA*(lpVersionInformation: LPOSVERSIONINFOEXA): WINBOOL {.winapi, stdcall, dynlib: "kernel32", importc: "GetVersionExA".}

# This works when I added GetVersionExA
var osvi: OSVERSIONINFO
discard GetVersionExA(osvi.addr)

[khchen]

Try this:

import winim/lean

var osvi = OSVERSIONINFO(dwOSVersionInfoSize: DWORD sizeof(OSVERSIONINFO))
GetVersionEx(osvi)
echo osvi.repr

var osviex = OSVERSIONINFOEX(dwOSVersionInfoSize: DWORD sizeof(OSVERSIONINFOEX))
GetVersionEx(cast[LPOSVERSIONINFO](addr osviex))
echo osviex.repr

GetVersionEx can accept both OSVERSIONINFO and OSVERSIONINFOEX, however, Windows SDK only has one definition, so you should cast the pointer for OSVERSIONINFOEX.