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

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
;
end
;

Другое по теме:

• Выставить системные переменные среды
• Как получить переменные окружения типа PATH и PROMPT
• Как раскрыть строки переменных окружения