1. Need Help With getWinVersion()
- Posted by Ferlin Scarborough <ferlin1 at bellsouth.net>
Nov 10, 2004
-
Last edited Nov 11, 2004
There is not much in the Win32Lib documentation on getWinVersion(), I seem to
be having trouble using it properly, could someone tell me how to use it
please?
Here is some sample code I tried to use.
integer OSBox
sequence WinVer
WinVer = getWinVersion()
OSBox = message_box("OS Type " & WinVer[1] & " " & WinVer[2] & " Build " &
WinVer[3]
, "About Euphoria File Download Database", #40)
The results is a OS Type followed by a square then Service Pack 1 Build (
Once again Thanks In Advance.
Ferlin Scarborough
Learn To Program Games in Free Courses At
http://www.gameuniv.net
My Euphoria Home Page
http://mywebpage.netscape.com/shadetreesoft
2. Re: Need Help With getWinVersion()
- Posted by Pete Lomax <petelomax at blueyonder.co.uk>
Nov 10, 2004
-
Last edited Nov 11, 2004
On Wed, 10 Nov 2004 11:47:21 -0800, Ferlin Scarborough
<guest at RapidEuphoria.com> wrote:
>There is not much in the Win32Lib documentation on getWinVersion(), I seem to
>be having trouble using it properly, could someone tell me how to use it
>please?
The first element of the sequence returned is one of:
global constant
WIN_3_1 = 1,
WIN_95 = 2,
WIN_95_OSR2 = 2.5,
WIN_98 = 3,
WIN_98SE = 3.5,
WIN_ME = 4,
WIN_NT_3_51 = 5,
WIN_NT_4 = 6,
WIN_2000 = 7,
WIN_XP = 8,
WIN_UNKNOWN = 0
The remainder are mostly unintelligible gunk. As documented by M$,
they are "arbitrary additional information", build number, and then
optionally: service pack major, service pack minor, suite mask, and
product type, ie not much use unless you are calling the M$ hotline.
I suspect you just want eg
if WinVer[1]=WIN_98SE then
puts(1,"Windows 98 SE\n")
else....
Regards,
Pete
3. Re: Need Help With getWinVersion()
- Posted by Ferlin Scarborough <ferlin1 at bellsouth.net>
Nov 10, 2004
-
Last edited Nov 11, 2004
Pete Lomax wrote:
>
<snip>
>
> if WinVer[1]=WIN_98SE then
> puts(1,"Windows 98 SE\n")
> else....
>
> Regards,
> Pete
>
Pete,
Thanks works like a charm now.
Later.
Ferlin Scarborough
Learn To Program Games in Free Courses At
http://www.gameuniv.net
My Euphoria Home Page
http://mywebpage.netscape.com/shadetreesoft
