Системное программирование в UNIX средствами Free Pascal


         

Аргументом функции getenv является имя


uses dos;
Function GetEnv(EnvVar:String):String;
Аргументом функции getenv является имя искомой переменной. При успешном завершении поиска функция getenv возвращает указатель на строку переменной окружения, в противном случае – пустая строка. Следующий код показывает пример использования этой функции:
(* Найти значение переменной окружения PATH *)
uses dos;
begin
  writeln('PATH=',getenv('PATH'));
end.
Для изменения окружения существует парная процедура putenv. Она вызывается следующим образом:
putenv('НОВАЯ_ПЕРЕМЕННАЯ = значение');
В случае успеха процедура putenv возвращает нулевое значение. Она изменяет переменную окружения, на которую указывает глобальная переменная envp.

Содержание  Назад  Вперед