Правила форума
GetEnvVa.PASLanguage:
Русский
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.
::
::
::
