| |
Использование функции Environ |
|
| |
В Бэйсике есть одна ОЧЕНЬ полезная, но многими
забытая функция Environ! Она возвращает имена и
содержание всех переменных среды операционной
системы!!! Так, например, чтобы получить
директорию Windows, совсем не надо прибегать к
API-функции GetWindowsDirectory!!!!!! А получить её можно так:
A = Environ ("windir")
Но и это ещё не всё! Также можно получить
следующие перменные:
A = Environ ("TMP") 'директория временных файлов TEMP
A = Environ ("BLASTER") 'координаты звуковой карты
A = Environ ("PATH") 'пути, объявленные в autoexec.bat
НО И ЭТО ВСЁ ЕЩЁ НЕ ВСЁ!!!
'Добавьте на форму элементы TextBox (установите
свойство Multiline=True) и CommandButton. Скопируйте следующий
код, запустите программу, нажмите на кнопку...Private Sub Command1_Click()
m = 1
Do
EnvString = Environ(m)
Text1.Text = Text1.Text & vbNewLine & Environ(m)
m = m + 1
Loop Until EnvString = ""
End Sub
|
|
| |
|
|
|
|