SetEnviron
设置系统环境变量
result = SetEnviron( varexpression )
varexpression
如果成功返回0（0），否则返回0。
修改系统环境变量。除了系统上的默认变量之外，还有几个可用于编辑的变量。一个例子是fbgfx，您可以在其中选择FreeBASIC图形库将使用的图形驱动程序的形式。
语法
用法
result = SetEnviron( varexpression )
参数
varexpression
以下（或等效）形式的环境变量的名称和设置：varname = varstring。
（varname是环境变量的名称，varstring是要设置的文本值）
（varname是环境变量的名称，varstring是要设置的文本值）
返回值
如果成功返回0（0），否则返回0。
说明
修改系统环境变量。除了系统上的默认变量之外，还有几个可用于编辑的变量。一个例子是fbgfx，您可以在其中选择FreeBASIC图形库将使用的图形驱动程序的形式。
例子
'e.g.将系统变量“path”设置为“c：”：
Shell "设置路径" '显示路径的值
SetEnviron "路径= C："
Shell "设置路径" '显示路径的新值
Shell "设置路径" '显示路径的值
SetEnviron "路径= C："
Shell "设置路径" '显示路径的新值
''仅WINDOWS示例！ - 我们只是设置图形方法来使用
''GDI而不是DirectX。
''您可能会注意到FPS有所不同。
SetEnviron("fbgfx=GDI")
''桌面宽/高
Dim As Integer ScrW, ScrH, BPP
ScreenInfo ScrW, ScrH, BPP
''在显示器的宽度/高度创建一个屏幕。
''通常这会很慢，但是GDI在这方面是相当快的
''的东西
ScreenRes ScrW, ScrH, BPP
''开始我们的定时器/
Dim As Double T = Timer
''锁定我们的页面
ScreenLock
Do
''从上一帧起打印时间
Locate 1, 1
Print "FPS:" & 1 / ( Timer - T )
T = Timer
''翻转我们的屏幕
ScreenUnlock
ScreenLock
''对我们的屏幕进行图形更改。
Cls
Loop Until Len(Inkey)
''解锁我们的网页
ScreenUnlock
''GDI而不是DirectX。
''您可能会注意到FPS有所不同。
SetEnviron("fbgfx=GDI")
''桌面宽/高
Dim As Integer ScrW, ScrH, BPP
ScreenInfo ScrW, ScrH, BPP
''在显示器的宽度/高度创建一个屏幕。
''通常这会很慢，但是GDI在这方面是相当快的
''的东西
ScreenRes ScrW, ScrH, BPP
''开始我们的定时器/
Dim As Double T = Timer
''锁定我们的页面
ScreenLock
Do
''从上一帧起打印时间
Locate 1, 1
Print "FPS:" & 1 / ( Timer - T )
T = Timer
''翻转我们的屏幕
ScreenUnlock
ScreenLock
''对我们的屏幕进行图形更改。
Cls
Loop Until Len(Inkey)
''解锁我们的网页
ScreenUnlock
与QB差别
- 在QB中，SetEnviron被称为关于.
参考