if CheckWin32Version(5) then CallMyWin2000OrGreaterFunctionHere;
I am now using this function instead and everything works fine:
function FixedCheckWin32Version(AMajor: Integer; AMinor: Integer = 0): Boolean; begin Result := (AMajor < Win32MajorVersion) or ((AMajor = Win32MajorVersion) and (AMinor <= Win32MinorVersion)); end;
Just a side-note: This was fixed in Delphi 7 and above. Of course, if you're using D6, you'll need to use this.
Disclaimer The opinions expressed herein are my own personal opinions and do not represent my employer's view in any way.