1 578
editací
Změny
Založena nová stránka: Vrátí hodnotu určené proměnné prostředí. ;Deklarace function GetEnv(EnvVar: string): string; ;Režim :Reálný, Chráněný ;Poznámky :GetEnv vrátí ho…
Vrátí hodnotu určené proměnné prostředí.
;Deklarace
function GetEnv(EnvVar: string): string;
;Režim
:Reálný, Chráněný
;Poznámky
:[[GetEnv]] vrátí hodnotu určené [[proměnné prostředí]] (enviroment). Jméno proměnné může být zadáno velkými nebo malými písmeny, nesmí však obsahovat znak rovnítko ('='). Pokud zadaná proměnná neexistuje, [[GetEnv]] vrátí prázdný řetězec.
;Viz také
:[[EnvCount]]
:[[EnvStr]]
Vzorový příklad
{Getenv.PAS}
{Vzorový příklad pro funkci GetEnv.}
{$M 8192,0,0}
uses Dos;
var Command: string[79];
begin
Write('Zadejte příkaz DOSu: ');
Readln(Command);
if Command <> '' then
Command := '/C ' + Command;
SwapVectors;
Exec(GetEnv('COMSPEC'), Command);
SwapVectors;
if DosError <> 0 then
Writeln('Nelze spustit COMMAND.COM');
end.
[[Category:DOS]]
[[Category:Funkce DOS]]
;Deklarace
function GetEnv(EnvVar: string): string;
;Režim
:Reálný, Chráněný
;Poznámky
:[[GetEnv]] vrátí hodnotu určené [[proměnné prostředí]] (enviroment). Jméno proměnné může být zadáno velkými nebo malými písmeny, nesmí však obsahovat znak rovnítko ('='). Pokud zadaná proměnná neexistuje, [[GetEnv]] vrátí prázdný řetězec.
;Viz také
:[[EnvCount]]
:[[EnvStr]]
Vzorový příklad
{Getenv.PAS}
{Vzorový příklad pro funkci GetEnv.}
{$M 8192,0,0}
uses Dos;
var Command: string[79];
begin
Write('Zadejte příkaz DOSu: ');
Readln(Command);
if Command <> '' then
Command := '/C ' + Command;
SwapVectors;
Exec(GetEnv('COMSPEC'), Command);
SwapVectors;
if DosError <> 0 then
Writeln('Nelze spustit COMMAND.COM');
end.
[[Category:DOS]]
[[Category:Funkce DOS]]