Забудте про GetWindowsDirectory и ещё кое что

Ответы на вопросы, чаще всего задаваемые в форумах VBStreets. Для тех, кому лень искать.
RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Забудте про GetWindowsDirectory и ещё кое что

Сообщение RayShade » 25.05.2004 (Вт) 10:55

В БЕЙСИКе есть одна ОЧЕНЬ полезная, но многими забытая функция 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-функции (по-моему их вообще мало, кто долюбливает :-)) могут пользоваться только этой строчкой!

Вернуться в Популярные вопросы

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList