Функция GetEnvironmentVariable

Declare Function GetEnvironmentVariable Lib "kernel32.dll" Alias "GetEnvironmentVariableA" ( _
    ByVal lpName As String,  _
    ByVal lpBuffer As String,  _
    ByVal nSize As Long) As Long

GetEnvironmentVariable получает значение переменной окружения для текущего процесса.

Возвращаемое значение

В успешном случае возвращается длина значения переменной окружения, записанного в буфер. Если переменная окружения с заданным именем не существует, то возвращается 0. Если значение переменной не помещается в буфере, функция возвращает общую длину строки, которая может использоваться для выделения буфера достаточной длины

Параметры

lpName

Имя переменной окружения. Если переменная с данным именем не существует, то система создаст ее

lpBuffer

Буфер для приема строки

nSize

Длина буфера lpBuffer

Пример

' Получим значение для переменной "Русский_Проект"

Dim dlina As Long
Dim envar As String
envar = Space(256) ' длина строки, копируемой в буфер
dlina = GetEnvironmentVariable("Русский_Проект", envar, Len(envar))
' Удаляем завершающий нулевой символ и выводим результат
Print Left(envar, dlina)

Смотри также

SetEnvironmentVariable

Категория

Процессы и потоки