Environ

[Ramzes]

Я вот тут недавно пролистывал свой доки и нашел очень интересную штуку, чесно признаться я про нее не знал!!! А вы?

В Бэйсике есть одна ОЧЕНЬ полезная, но многими забытая функция Environ! Она возвращает имена и содержание всех переменных среды операционной системы!!! Так, например, чтобы получить директорию Windows, совсем не надо прибегать к API-функции GetWindowsDirectory!!!!!! А получить её можно так:

ABC = Environ ("windir")

И ВСЁ!
Но и это ещё не всё! Также можно получить следующие перменные:

ABC = Environ ("TMP") 'директория временных файлов TEMP
ABC = Environ ("BLASTER") 'координаты звуковой карты
ABC = Environ ("PATH") 'пути, объявленные в autoexec.bat

НО И ЭТО ВСЁ ЕЩЁ НЕ ВСЁ!!!!
Чтобы получить имя и значение перменной, в скобках вместо строки надо поставить номер переменной (или индекс?).

Вставьте следуюшую процедуру в окно Code, запустите проект, кликните на форме увидите список всех переменных и их значений!

Private Sub Form_Click()
'берём перменную и присваеваем ей единицу
m = 1
'запускаем цикл, который увеличивает переменную m каждый
'раз на единицу и подсовывает её функции Environ
Do
'присваеваем перменной EnvString возвращаемую перменную,
'соответсвующую номеру m
EnvString = Environ(m)
'печатаем перменную, соответсвующую номеру m
Print Environ(m)
'перменную m увеличиваем на один
m = m + 1
'если перменная EnvString всё ещё не пустая - крутим дальше...
Loop Until EnvString = ""
End Sub

[tyomitch]

А мы её помним ещё с QBasic-а

[gaidar]

Где-то на VBStreets висит, с дааавних времен еще

[Amed]

Мне почему-то именно эта статья запомнилась лучше всего =)

Не содержание, а общий смысл =)

[Samovar]

Спасибо что напомнил.

[GM]

Есть одна забавная штука. Зайдите в FAR, введите set windir=d:\temp, и запустите с под FAR'a какую нибудь программу, теперь ваша прога будет думать что Windows находится на диске d:\temp. . А вообще то полный список можна узнать с помощью комманды set.