New topic: 

WIndows 8

<http://forums.realsoftware.com/viewtopic.php?t=46108>

         Page 1 of 1
   [ 1 post ]                 Previous topic | Next topic          Author  
Message        DaveS          Post subject: WIndows 8Posted: Sat Dec 01, 2012 
10:12 am                                 
Joined: Sun Aug 05, 2007 10:46 am
Posts: 4313
Location: San Diego, CA                I use this snippet of code to get 
Windows Version

//try to be more specific of windows version
Soft Declare Sub GetVersionExA Lib "Kernel32" ( info As Ptr )
Soft Declare Sub GetVersionExW Lib "Kernel32" ( info As Ptr )

Dim info As MemoryBlock

If System.IsFunctionAvailable( "GetVersionExW", "Kernel32" ) Then
  info =  New MemoryBlock( 20 + (2 * 128) )
  info.Long( 0 ) = info.Size
  GetVersionExW( info )
Else
  info =  New MemoryBlock( 148 )
  info.Long( 0 ) = info.Size
  GetVersionExA( info )
End If

with values in Info.long(4) and info.long(8) giving me a code the tells me what 
WIN version (XP, Vista etc)

can someone tell me what values are returned for WIN 8?

6 , 0 is Vista
6, 1 is Win7

I would "guess" 6,2 but it might even be 7 , 0


Thanks      
_________________
Dave Sisemore
MacPro, OSX Lion 10.7.4 RB2012r1
Note : I am not  interested in any solutions that involve custom Plug-ins of 
any kind  
                             Top             Display posts from previous: All 
posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost 
timeSubject AscendingDescending          Page 1 of 1
   [ 1 post ]      
-- 
Over 1500 classes with 29000 functions in one REALbasic plug-in collection. 
The Monkeybread Software Realbasic Plugin v9.3. 
http://www.monkeybreadsoftware.de/realbasic/plugins.shtml

[email protected]

Reply via email to