getenvva.pas

Пример программы для функции GetEnvVar.

Код примера
 {GetEnvVa.PAS}
 
 { Пример программы для функции GetEnvVar }
 
 Uses WinDOS;
 
 Var EnvironmentVar : PChar;
 
 Begin
  GetMem(EnvironmentVar, 255);
  EnvironmentVar:=GetEnvVar('PATH');
  WriteLn('DOS - переменная PATH : ');
  WriteLn(EnvironmentVar);
 End.

Скачать getenvva.pas