#DEFINE VER_PLATFORM_WIN32S 0 #DEFINE VER_PLATFORM_WIN32_WINDOWS 1 #DEFINE VER_PLATFORM_WIN32_NT 2 DECLARE RtlMoveMemory IN WIN32API ; INTEGER @DestNumeric, ; STRING @pVoidSource, ; INTEGER nLength declare short GetVersionEx in win32API ; string @ lpVersionInfo lpVersionInfo = chr(128+5*4)+replicate(chr(0),128+5*4-1) ? GetVersionEx(@lpVersionInfo) ? 'Major version :', DWord2Str(lpVersionInfo, 5) ? 'Minor version :', DWord2Str(lpVersionInfo, 9) ? 'Build number :', DWord2Str(lpVersionInfo, 13) ? 'Platform id :', DWord2Str(lpVersionInfo, 17) function DWord2Str lparameters tcStr, tnOffsett local lnValue lnValue=0 RtlMoveMemory(@lnValue, substr(tcStr,tnOffsett,4), 4) return lnValueCetin