Правила форума
GetEnvVa.PASЯзык:
Русский
English
{ Пример программы для функции GetEnvVar }
uses WinDOS;
var
EnvironmentVar : PChar;
begin
EnvironmentVar := GetEnvVar('PATH');
WriteLn('DOS - переменная PATH : ');
WriteLn(EnvironmentVar);
end.
var
EnvironmentVar : PChar;
begin
EnvironmentVar := GetEnvVar('PATH');
WriteLn('DOS - переменная PATH : ');
WriteLn(EnvironmentVar);
end.
::
::
::
