Gustav Brock
gustav at cactus.dk
Mon Nov 3 08:57:07 CST 2003
Hi John
OK, I guess you know what you're doing.
I just recall this old example which blows if the trailing "&" is
omitted:
<code>
Dim WinVer%
Dim LoByte%
Dim HiByte%
WinVer = GetVersion() And &HFFFF&
LoByte = WinVer And &HFF ' major version
HiByte = WinVer \ &HFF ' minor version
IsWin95 = (HiByte / 100 + LoByte) >= 3.95
</code
GerVersion returns something like 83910403 for a Win2000 machine.
/gustav
> I am dealing with longs and am doing bit manipulations of individual bits
> (which is why I want Hex to begin with) so I must have the ability to deal
> with upper bits. However I avoid the sign bit so I don't really care if it
> "makes it negative" as long as it doesn't do so by propagating a 1 through
> all of the upper bits such that all of the upper 16 bits are a 1.