>#DEFINE DLLVER_PLATFORM_WINDOWS 1 >#DEFINE DLLVER_PLATFORM_NT 2 > >DECLARE INTEGER DllGetVersion IN shell32 STRING @pdvi > >LOCAL lcBuffer >lcBuffer = Chr(20) + Repli(Chr(0), 19) > >IF DllGetVersion (@lcBuffer) = 0 > ? "*** Shell32.dll" > ? "Major version:", buf2dword(SUBSTR(lcBuffer, 5,4)) > ? "Minor version:", buf2dword(SUBSTR(lcBuffer, 9,4)) > ? "Build number: ", buf2dword(SUBSTR(lcBuffer, 13,4)) > ? "Platform: ", Iif(buf2dword(SUBSTR(lcBuffer, 17,4))=1,; > "Windows", "WinNT") >ENDIF > >FUNCTION buf2dword(lcBuffer) >RETURN Asc(SUBSTR(lcBuffer, 1,1)) + ; > BitLShift(Asc(SUBSTR(lcBuffer, 2,1)), 8) +; > BitLShift(Asc(SUBSTR(lcBuffer, 3,1)), 16) +; > BitLShift(Asc(SUBSTR(lcBuffer, 4,1)), 24) >>