http://snippets.dzone.com/posts Fri, 05 Sep 2008 13:35:13 GMT DZone Snippets: get-version code http://snippets.dzone.com/posts/show/1152 <code> <br />REBOL [ <br /> Title: "Get Windows Version" <br /> File: %get-version-ex.r <br /> Author: "Gregg Irwin" <br /> Email: greggirwin@acm.org <br /> Version: 0.0.1 <br /> Date: 23-sep-2003 <br /> Purpose: { <br /> Shows how to call Windows GetVersonEx function. <br /> } <br /> library: [ <br /> level: 'intermediate <br /> platform: 'windows <br /> type: [function how-to] <br /> domain: [external-library win-api] <br /> tested-under: [view/pro 1.2.8.3.1 on W2K] <br /> support: none <br /> license: none <br /> see-also: none <br /> ] <br />] <br /> <br /> <br />; The credit for this technique of dealing with fixed char arrays <br />; in structs belongs to Pekr and Cyphre. I just modded the idea a <br />; bit for my own uses. <br />make-elements: func [name count type /local result][ <br /> if not word? type [type: type?/word type] <br /> result: copy "^/" <br /> repeat i count [ <br /> append result join name [i " [" type "]" newline] <br /> ] <br /> to block! result <br />] <br /> <br />kernel.dll: load/library %kernel32.dll <br /> <br /> <br />OSVERSIONINFOEXA: make struct! OSVERSIONINFOEXA-def: compose/deep [ <br /> dwOSVersionInfoSize [integer!] ; DWORD <br /> dwMajorVersion [integer!] ; DWORD <br /> dwMinorVersion [integer!] ; DWORD <br /> dwBuildNumber [integer!] ; DWORD <br /> dwPlatformId [integer!] ; DWORD <br /> (make-elements 'szCSDVersion 128 #"@") ; TCHAR <br /> wServicePackMajor [short] ; WORD <br /> wServicePackMinor [short] ; WORD <br /> wSuiteMask [short] ; WORD <br /> wProductType [char!] ; BYTE <br /> wReserved [char!] ; BYTE <br />] none <br />OSVERSIONINFOEXA/dwOSVersionInfoSize: length? third OSVERSIONINFOEXA <br /> <br />GetLastError: make routine! [return: [integer!]] kernel.dll "GetLastError" <br /> <br />GetVersionEx: make routine! compose/deep/only [ <br /> lpVersionInformation [struct! (OSVERSIONINFOEXA-def)] ;LPOSVERSIONINFO <br /> return: [integer!] ;BOOL <br />] kernel.dll "GetVersionExA" <br /> <br />get-version: has [res] [ <br /> res: GetVersionEx OSVERSIONINFOEXA <br /> either 0 = res [none][OSVERSIONINFOEXA] <br />] <br /> <br />; test call <br />print either res: get-version [ <br /> [ <br /> "Major:" res/dwMajorVersion newline <br /> "Minor:" res/dwMinorVersion newline <br /> "Build:" res/dwBuildNumber newline <br /> "SP.Major:" res/wServicePackMajor newline <br /> "SP.Minor:" res/wServicePackMinor newline <br /> "Suite" mold res/wSuiteMask newline <br /> "Product" mold res/wProductType newline <br /> "Version:" to-string copy/part at third OSVERSIONINFOEXA 21 128 <br /> ] <br />][ <br /> ["Call failed: " GetLastError] <br />] <br /> <br />free kernel.dll <br /> <br />halt <br /></code> Fri, 13 Jan 2006 04:21:52 GMT http://snippets.dzone.com/posts/show/1152 gregg.irwin (Gregg Irwin)