VS:GetOSVersion/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

動作しているOSのバージョンを返します。

PROCEDURE GetOSVersion(
            VAR major   :LONGINT;
            VAR minor   :LONGINT;
            VAR incr    :LONGINT);

def vs.GetOSVersion():
    return (major, minor, incr)

Parameters

major		LONGINT		メジャー
minor		LONGINT		マイナー
incr		LONGINT		増値

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);

Version

利用可能バージョン: VectorWorks10.0