GetEnvironment()

功能得到操作系统、处理器、屏幕显示等与系统相关的信息。

语法GetEnvironment ( environmentinfo )

参数environmentinfo：Environment对象名，用于保存系统环境信息返回值Integer。函数执行成功时返回1，发生错误时返回-1。如果参数environmentinfo的值为NULL，GetEnvironment()函数返回NULL。用法当开发交叉平台项目时，利用GetEnvironment()函数，应用程序能够得到当前运行的操作系统、使用的CPU类型、操作系统的版本、屏幕的大小以及颜色数等信息，这些信息的具体表示请参阅本书环境对象（Environment Object）的介绍。

示例代码

PB：

string path

environment env

integer rtn

rtn = GetEnvironment(env)

IF rtn <> 1 THEN RETURN

CHOOSE CASE env.OSType

CASE aix!

path = "/export/home/pb_apps/analyze.exe"

CASE Windows!, WindowsNT!

path = "C:\\PB_apps\\analyze.exe"

CASE ELSE

RETURN

END CHOOSE

Run(path)