GetEnvVa.PAS

Language:
Русский
English

  {GetEnvVa.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetEnvVar function.}

  uses WinCrt, WinDOS;

 var
   EnvironmentVar: PChar;

 begin
   GetMem(EnvironmentVar, 255);
   EnvironmentVar := GetEnvVar('PATH');
   Writeln('The PATH is currently: ');
   Writeln(EnvironmentVar);
 end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //