System 对象

         
Application
System

代表 System 对象的 Microsoft FrontPage 存取器,提供对操作系统、屏幕分辨率或注册表信息等信息的访问。

使用 System 对象

使用 System 属性可以返回 System 对象。下列语句返回正在调用的应用程序的名称。

mySysApp = System.Application.Name

使用 BuildVersion 属性可以返回操作系统的 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