The environment env

The integer RTN

RTN=GetEnvironment (env)

IF RTN & lt; & gt; 1 THEN RETURN
Debugbreak ()
//CHOOSE CASE env. OSType
//
//CASE aix!
//
//...
//
//CASE Windows! , WindowsNT!
//
//...
//
//CASE ELSE
//
//RETURN
//
//END CHOOSE

CodePudding user response:

How to display win2000 xp win203 versions of Windows 7?
I use GetEnvironment (env)
Tried it on xp and Windows 7 are WindowsNT!

Is there any way to distinguish? Thank you

CodePudding user response:

The environment object has these properties:
OSFixesRevision
OSMajorRevision
OSMinorRevision

Check the F1

CodePudding user response:

Is there any way to distinguish

CodePudding user response:

The

reference 3 floor hzzz_lgh3399 response:

is there any way to distinguish?

See OSMajorRevision, to judge the Windows version

CodePudding user response:

2 and 4 floor

CodePudding user response:

2 floor says is very clear that not even post code

CodePudding user response:

/* judgment WindowsOS version type */
The Function uLong GetVersionExA (Ref s_osversioninfo lpVersionInfo) Library "kernel32. DLL
"
Global type s_osversioninfo from structure
Ulong dwOSVersionInfoSize
Ulong dwmajorversion
Ulong dwminorversion
Ulong dwbuildnumber
Ulong dwplatformid
Character szcsdverion [128]
End type


//====================================================================
//name: of_OsVersion ()
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//description: judgment WindowsOS version type
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//parameters: (None)
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//return: string
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//author: date of Mr. Chen: 2008.01.03
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
//modify history:
//
//====================================================================

S_OsVersionInfo lstr_VersionInfo
String ls_OsVersion, ls_Pack
The Integer li_i

Lstr_VersionInfo. Dwosversioninfosize=148

GetVersionExA (lstr_VersionInfo)

CHOOSE a CASE lstr_VersionInfo. Dwmajorversion
CASE 3
IF lstr_VersionInfo. Dwminorversion=51 THEN
Ls_OsVersion="Microsoft WinNT3.51"
END the IF
CASE 4
CHOOSE a CASE lstr_VersionInfo. Dwminorversion
CASE 10
Ls_OsVersion="Microsoft Windows 98"
CASE 90
Ls_OsVersion="Microsoft Windows Me"
CASE 0
Ls_OsVersion="Microsoft WinNT4 OR Windows 95"
The END CHOOSE
CASE 5
CHOOSE a CASE lstr_VersionInfo. Dwminorversion
CASE 0
Ls_OsVersion="Microsoft Windows 2000"
CASE 1
Ls_OsVersion="Microsoft Windows XP"
CASE 2
Ls_OsVersion="Microsoft Windows Server 2003
"The END CHOOSE
CASE 6
CHOOSE a CASE lstr_VersionInfo. Dwminorversion
CASE 1
Ls_OsVersion="Microsoft Windows 7"
The END CHOOSE
The END CHOOSE

FOR li_i=1 TO 128
Ls_Pack=ls_Pack + lstr_VersionInfo. Szcsdverion [li_i]
NEXT

Ls_OsVersion=of_GB2BIG (" operating system: "+ +" "+ ls_Pack ls_OsVersion)

RETURN ls_OsVersion