На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!
msm.ru
Модераторы: SCINER, B.V.
  
    > Как пользоваться функцией Environ
      ExpandedWrap disabled
        Environ("windir") – возвращает каталог Windows
        Environ("temp") - возвращает директорию временных файлов TEMP
        Environ("tmp") - возвращает директорию временных файлов TMP


      Но это ещё не всё

      Добавьте на форму Textbox, установите свойство Multiline = True и введите следующий код:

      ExpandedWrap disabled
          
        Dim i As Integer, EnvString As String
        Private Sub Form_Load()
           i = 1
           Do
              EnvString = Environ(i)
              Text1.Text = Text1.Text + vbCrLf + Environ(i)
              i = i + 1
           Loop Until EnvString = ""
        End Sub
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0954 ]   [ 18 queries used ]   [ Generated: 5.06.20, 22:09 GMT ]