Application System |
代表 System 对象的 Microsoft FrontPage 存取器,提供对操作系统、屏幕分辨率或注册表信息等信息的访问。
使用 System 属性可以返回 System 对象。下列语句返回正在调用的应用程序的名称。
mySysApp = System.Application.Name
使用 Build 和 Version 属性可以返回操作系统的 build 和版本信息。
myVer = System.Version
myBld = System.Build
水平和垂直显示率可用于确定图片能否能显示在客户端计算机上。下列语句返回分辨率设置。
currHorizRes = System.HorizontalResolution
currVertRes = System.Vertical.Resolution
使用 OperatingSystem 属性可以返回当前操作系统的名称,如下列语句所示。
thisOps = System.OperatingSystem
使用 Parent 属性可以返回指定对象的父对象。下列语句返回 System 对象的父对象信息。
Private Sub GetSystemParentInfo()
Dim mySys As System
Dim mySysUserName As String
Set mySys = System
With mySys
mySysUserName = .Parent.UserName
End With
End Sub
使用 LanguageDesignation 属性可以返回操作系统所用语言的三字母缩写。下列语句返回的“enu”是美国英语的语言名称缩写。
currSystemLanguage = System.LanguageDesignation
使用 ProfileString 属性可以返回或设置 Windows 注册表中的条目。如果使用时没带参数,ProfileString 属性默认为下列键值:
HKEY_CURRENT_USERS\Software\Microsoft\FrontPage
ProfileString 属性的参数为:
下列示例返回 CentralProcessor 子键的标识符。
Private Sub GetProfileString()
Dim mySys As System
Dim myRegSec As String
Dim myRegKeyInfo As String
Set mySys = System
myRegSec = _
"HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0"
myRegKeyInfo
= mySys.ProfileString(myRegSec, "Identifier")
End Sub