4D Japan Knowledge Base

Windows VistaとPLATFORM PROPERTIES

4D 2004.6はWindows Vistaに対応しています。当然のことながらPLATFORM PROPERTIESでWindows Vista上で動作しているかを調べることができます。

Windows上で次のコードを実行して試してください。

PLATFORM PROPERTIES($vlPlatform;$vlSystem;$vlMachine)
$vsPlatformOS:=""
If ($vlSystem<0)
	$winMajVers:=((2^31)+$vlSystem)%256
	$winMinVers:=(((2^31)+$vlSystem)//256)%256
	If ($winMinVers=0)
		$vsPlatformOS:="WindowsTM 95"
	Else 
		$vsPlatformOS:="WindowsTM 98"
	End if 
Else 
	$winMajVers:=$vlSystem%256
	$winMinVers:=($vlSystem//256)%256
	Case of 
			$winMajVers=4
			$vsPlatformOS:="WindowsTM NT"
		\ ($winMajVers=5)
			If ($winMinVers=0)
				$vsPlatformOS:="WindowsTM 2000"
			Else 
				$vsPlatformOS:="WindowsTM XP"
			End if 
		\ ($winMajVers=6)
			$vsPlatformOS:="WindowsTM Vista"
	End case 
End if 
$vsPlatformOS:=$vsPlatformOS+" version "+String($winMajVers)+"."+String($winMinVers)
ALERT($vsPlatformOS)

この詳細は次のURLにコード付きで説明されています。
http://www.4d.com/4ddoc2004/CMU/CMU00365.HTM