jyapayne/Nim
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

osinfo_win compiles again

Browse source
This commit is contained in:
Araq 2015-01-18 16:04:02 +01:00
commit bb3dae3a91
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/impure/osinfo_win.nim
View file

@ -195,9 +195,8 @@ proc getVersionInfo*(): TVersionInfo =
proc getProductInfo*(majorVersion, minorVersion, SPMajorVersion, proc getProductInfo*(majorVersion, minorVersion, SPMajorVersion,
SPMinorVersion: int): int = SPMinorVersion: int): int =
## Retrieves Windows' ProductInfo, this function only works in Vista and 7 ## Retrieves Windows' ProductInfo, this function only works in Vista and 7
var pGPI = cast[proc (dwOSMajorVersion, dwOSMinorVersion, var pGPI = cast[proc (dwOSMajorVersion, dwOSMinorVersion,
dwSpMajorVersion, dwSpMinorVersion: int32, outValue: Pint32)](getProcAddress( dwSpMajorVersion, dwSpMinorVersion: int32, outValue: Pint32){.stdcall.}](getProcAddress(
getModuleHandleA("kernel32.dll"), "GetProductInfo")) getModuleHandleA("kernel32.dll"), "GetProductInfo"))
if pGPI != nil: if pGPI != nil:
@ -214,7 +213,7 @@ proc getSystemInfo*(): TSYSTEM_INFO =
## Returns the SystemInfo ## Returns the SystemInfo
# Use GetNativeSystemInfo if it's available # Use GetNativeSystemInfo if it's available
var pGNSI = cast[proc (lpSystemInfo: LPSYSTEM_INFO)](getProcAddress( var pGNSI = cast[proc (lpSystemInfo: LPSYSTEM_INFO){.stdcall.}](getProcAddress(
getModuleHandleA("kernel32.dll"), "GetNativeSystemInfo")) getModuleHandleA("kernel32.dll"), "GetNativeSystemInfo"))
var systemi: TSYSTEM_INFO var systemi: TSYSTEM_INFO
@ -407,6 +406,6 @@ when isMainModule:
echo($osvi) echo($osvi)
echo(getFileSize(r"osinfo_win.nim") div 1024 div 1024) echo(getFileSize(r"lib\impure\osinfo_win.nim") div 1024, " KB")
echo(rdFileTime(getPartitionInfo(r"C:\")[0])) echo(rdFileTime(getPartitionInfo(r"C:\")[0]))