OpenEuphoria

RE: Windows ME registry key

• Posted by Ted Fines <fines at macalester.edu> Sep 16, 2003
• 471 views

Program to show Windows version (XP/2000/98).  Enjoy!
-- requires reg.ew, go to <http://www16.brinkster.com/davitf/>, and look 
for the 'Registry Wrappers' section.

include reg.ew
include get.e

sequence myregkey,myregval,defaultvalue
object regresult
integer i

myregkey = "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows 
NT\\CurrentVersion"
myregval = "CurrentVersion"
defaultvalue= "-1"

-- win xp/2000
regresult = regQueryValue(myregkey,myregval,defaultvalue)
if not equal(regresult,defaultvalue) then
    puts(1,"Windows Version is " & regresult & "\n")
else
-- win98
    myregkey = 
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion"
    myregval = "VersionNumber"
    regresult = regQueryValue(myregkey,myregval,defaultvalue)
    if not equal(regresult,defaultvalue) then
        puts(1,"Windows Version is " & regresult & "\n")
    else
        puts(1,"I don't know what version of Windows you have.\n")
    end if
end if
i = wait_key()

--On Tuesday, September 16, 2003 3:44 PM +0000 Al Getz <Xaxo at aol.com> wrote:

>
>
> Derek Parnell wrote:
>>
>>
>> ----- Original Message -----
>> From: "Ted Fines" <fines at macalester.edu>
>> To: "EUforum" <EUforum at topica.com>
>> Sent: Tuesday, September 16, 2003 10:48 PM
>> Subject: Windows ME registry key
>>
>>
>> > Could someone with Windows ME please email me the registry key that
>> > shows
>> > the Windows ME version number?
>> >
>> > On Windows 95/98,
>> > the key is:
>> > HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
>> > the value is:
>> > VersionNumber
>> > the data is:
>> > 4.10.<something>
>> >
>> > On Windows XP/2000,
>> > the key is:
>> > HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion
>> > the value is:
>> > CurrentVersion
>> > the data is
>> > "5.1" or "5.0" (5.1=xp, 5.0=2000)
>> >
>> > I need to know what the key and value is for Win ME, but I don't own
>> > it.
>> >
>>
>> [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion]
>> "RegisteredOwner"="Derek Parnell"
>> "SubVersionNumber"=" "
>> "Plus! VersionNumber"="IE 5 6.0.2800.1106"
>> "ProductName"="Microsoft Windows ME"
>> "Version"="Windows Millennium Edition"
>> "VersionNumber"="4.90.3000"
>>
>>
> Hello Derek,
>
> That's very good to know.
> Is there any easier way to get the version number?
> This would simplify some of my code too if
>
> 1.
> i could get the version type (98, ME, 2000, XP)
>
> and
> 2.
> that version number would always be in the same place
> or else at least be possible to further query for it.
>
> Take care for now,
> Al
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>