GetEnvironment()

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

语法GetEnvironment ( environmentinfo )

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

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)