VS:GetOSVersion: Difference between revisions
Jump to navigation
Jump to search
m (1 revision) |
No edit summary |
||
(One intermediate revision by one other user not shown) | |||
Line 66: | Line 66: | ||
END; | END; | ||
RUN(ShowVersionInfo);</code> | RUN(ShowVersionInfo);</code> | ||
Python: | |||
<code lang="py"> | |||
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) | |||
</code> | |||
</sample> | </sample> | ||
Latest revision as of 18:07, 11 January 2014
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
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
major LONGINT Major revision number minor LONGINT Minor revision number incr LONGINT Increment revision number
Example
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