GetEnvironment()

GetEnvironment()

　　功能得到作業系統、處理器、螢幕顯示等與系統相關的資訊。

　　文法GetEnvironment ( environmentinfo )

　　參數environmentinfo：Environment對象名，用於儲存系統內容資訊傳回值Integer。函數執行成功時返回1，發生錯誤時返回-1。如果參數environmentinfo的值為 NULL，GetEnvironment()函數返回NULL。用法當開發交叉平台項目時，利用GetEnvironment()函數，應用程式能夠得到當前啟動並執行作業系統、使用的CPU類型、作業系統的版本、螢幕的大小以及顏色數等資訊，這些資訊的具體表示請參閱本書環境對象（Environment Object）的介紹。

 

例：

environment lenv_env

if GetEnvironment(lenv_env) <> 1 then
 MessageBox("提示資訊","擷取系統資訊出錯,程式將終止!",StopSign!)
 FileClose(ll_file)
 halt close
end if

if lenv_env.osType <> WindowsNT! then
 MessageBox("提示資訊","請在Windows NT上運行本系統",Exclamation!)
 FileClose(ll_file)
 halt close
end if
if lenv_env.ScreenHeight < 768 or lenv_env.ScreenWidth < 1024 then
 MessageBox("提示資訊","請在至少1024*768的解析度下使用本系統!",Exclamation!)
 FileClose(ll_file)
 halt close
end if