Skip to content

Latest commit

 

History

History
86 lines (74 loc) · 2.34 KB

GetOSVersion.md

File metadata and controls

86 lines (74 loc) · 2.34 KB

GetOSVersion

Description

Returns the version of the current operating system.

PROCEDURE GetOSVersion(
				VAR major : LONGINT;
				VAR minor : LONGINT;
				VAR incr  : LONGINT);
def vs.GetOSVersion():
    return (major, minor, incr)

Parameters

Name Type Description
major LONGINT Major revision number
minor LONGINT Minor revision number
incr LONGINT Increment revision number

Examples

PROCEDURE ShowVersionInfo;
VAR
osMajor, osMinor, osIncr :LONGINT;
vwMajor, vwMinor, vwMaint, platform: INTEGER;
str :STRING;
BEGIN
str := '';
GetOSVersion(osMajor, osMinor, osIncr);
GetVersion(vwMajor, vwMinor, vwMaint, platform);
If platform = 1 then BEGIN
str := Concat(str, 'Platform: Macintosh', chr(13));
IF osMajor = 0 THEN osMajor := 10;
str := Concat(str, 'OS Version: ', osMajor, '.', osMinor, '.', osIncr, chr(13));
end else if platform = 2 then BEGIN
str := Concat(str, 'Platform: Windows', chr(13));
IF (osMajor = 4) & (osMinor = 10) THEN str := Concat(str, 'OS Version: 98 SE', chr(13)) ELSE 
IF (osMajor = 5) & (osMinor =  1) THEN str := Concat(str, 'OS Version: XP',    chr(13)) ELSE 
str := Concat(str, 'OS Version: ', osMajor, '.', osMinor, '.', osIncr, chr(13));
END;
str := Concat(str, 'VW Version: ', vwMajor, '.', vwMinor, '.', vwMaint);
AlrtDialog(str);
END;
RUN(ShowVersionInfo);

Python:

import vs

verStr = ''
osVersion = vs.GetOSVersion()
version = vs.GetVersion()

osMajor = osVersion[0]
osMinor = osVersion[1]
osIncr = osVersion[2]
vwMajor = version[0]
vwMinor = version[1]
vwMaint = version[2]
platform = version[3]

if platform == 1 :
	verStr = vs.Concat(verStr, 'Platform: Macintosh', chr(13))
	if (osMajor == 0) : osMajor == 10
	verStr = vs.Concat(verStr, 'OS Version: ', osMajor, '.', osMinor, '.', osIncr, chr(13))
	
elif platform == 2 :
	verStr = vs.Concat(verStr, 'Platform: Windows', chr(13))
	if (osMajor == 4) & (osMinor == 10) : verStr = vs.Concat(verStr, 'OS Version: 98 SE', chr(13)) 
	if (osMajor == 5) & (osMinor ==  1) : verStr = vs.Concat(verStr, 'OS Version: XP',    chr(13)) 
	verStr = vs.Concat(verStr, 'OS Version: ', osMajor, '.', osMinor, '.', osIncr, chr(13))

verStr = vs.Concat(verStr, 'VW Version: ', vwMajor, '.', vwMinor, '.', vwMaint)
vs.AlrtDialog(verStr)

Version

Availability: from VectorWorks10.0

Category