SetEnviron
 
Устанавливает переменную системного окружения

Синтаксис

Declare Function SetEnviron ( ByRef varexpression As String ) As Integer

Использование

result = SetEnviron( varexpression )

Параметры

varexpression
Имя и установка переменной окружения в следующей (или эквивалентной) форме: varname=varstring.
(varname - это имя переменной среды, а varstring является ее текстовым значением для установки)

Возвращаемое значение

Возвращает ноль (0) в случае успеха, или отличное от нуля в противном случае.

Описание

Изменяет системные переменные окружения. Есть несколько переменных, доступных для редактирования, кроме используемых по умолчанию в вашей системе. Примером этого может быть fbgfx, где вы можете выбрать форму графического драйвера FreeBASIC , которую графическая библиотека будет использовать.

Пример

'для примера установим системную переменную "path" в "c:":

Shell "set path" 'показывает значение пути
SetEnviron "path=c:"
Shell "set path" 'показывает новое значение пути


  '' ПРИМЕР ТОЛЬКО ДЛЯ 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


Отличие от QB

  • В QB, SetEnviron называлась Environ.

См. также