VS:GetVersionEx/ja

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

Description

VectorWorksのバージョンとビルド番号とOSの種類を返します。

PROCEDURE GetVersionEx(
            VAR major         :INTEGER;
            VAR minor         :INTEGER;
            VAR maintenance   :INTEGER;
            VAR platform      :INTEGER;
            VAR buildNum      :LONGINT);

def vs.GetVersionEx():
    return (major, minor, maintenance, platform, buildNum)

Parameters

major		INTEGER		メジャー
minor		INTEGER		マイナー
maintenance		INTEGER		増値
platform		INTEGER		OSの種類
buildNum		LONGINT		ビルド番号

Example

PROCEDURE Example;
VAR 
	osMajor, osMinor, osIncr :LONGINT; 
	appMajor, appMinor, appMaint, platform :INTEGER;
	buildNum :LONGINT;
	platformStr :STRING;
BEGIN
	GetVersionEx(appMajor, appMinor, appMaint, platform, buildNum);
	GetOSVersion(osMajor, osMinor, osIncr);
	IF (platform = 1) 
		THEN platformStr := 'MacOS'
		ELSE platformStr := 'Windows';
	Message('Vectorworks ', appMajor, '.', appMinor, '.', appMaint, ' build ', buildNum, ' running on ', platformStr, ' ', osMajor, '.', osMinor, '.', osIncr);
END;
RUN(Example);

Version

利用可能バージョン: Vectorworks 2010