Otevřít hlavní menu

GetEnv

Verze z 2. 10. 2012, 15:21, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (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…)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)

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.