Переменные окружения

Как получить переменные окружения типа PATH и PROMPT?

2017-11-27T16:07:48+07:00

Вариант 1:

Для этого используется API функция GetEnvironmentVariable.

GetEnvironmentVariable возвращает значения:

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

- Если указанная переменная окружения для текущего процесса не найдена, то возвращаемое значение равно нулю.

Подробнее...

Как раскрыть строки переменных окружения

2017-11-27T16:12:21+07:00

Code:

ExpandEnvironmentStrings( LPCTSTR lpSrc, LPTSTR lpDst, DWORD nSize );

Автор: Nomadic

Как установить переменные окружения?

2017-11-27T16:09:37+07:00

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

Подробнее...

Получение переменных среды

2017-11-27T16:11:34+07:00

Code:

procedure GetEnvironmentStrings(ss: TStrings);

{Переменные среды}

var

ptr: PChar;

s: string;

Done: boolean;

begin

ss.Clear;

s := '';

Done := FALSE;

ptr := windows.GetEnvironmentStrings;

while Done = false do begin

if ptr^ = #0 then begin

inc(ptr);

if ptr^ = #0 then Done := TRUE

else ss.Add(s);

s := ptr^;

end else s := s + ptr^;

inc(ptr);

end;

Подробнее...