volser
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В Бэйсике есть одна ОЧЕНЬ полезная, но многими забытая функция 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
|
