| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Фун-я Environ |
| Автор: Farhod 23.4.2002, 11:36 |
| Для чего используется фун-я Environ |
| Автор: sharig 29.5.2002, 00:16 |
| А ты вот тут посмотри http://vbnet.ru/faq/showtopic.asp?id=121 |
| Автор: Сardinal 29.5.2002, 06:47 | ||
Environ ({envstring | number}) - Возвращает строку, ассоциированную с переменной окружения ОС. Пример: Form1.Caption = Environ ("WINDIR")'Возвратит путь к директории Windows В этом примере в Text1 отобразятся все переменные окружения (по строчкам) Dim c As String For a = 1 To 20 c = Environ(a) If c <> "" Then Text1.Text = Text1.Text & c & vbCrLf Else Exit For End If Next a |
| Автор: Сardinal 29.5.2002, 06:53 | ||
Еще вот что у меня есть по Environ: 10. В Бэйсике есть одна ОЧЕНЬ полезная, но многими забытая функция 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 ТЕПЕРЬ ВСЁ! ;-)) И теперь все, кто недолюбливает API-функции (по-моему их вообще мало, кто долюбливает :-)) могут пользоваться только этой строчкой! |