1 578
editací
Změny
Vytvorená stránka „Změní aktuální adresář. ;Deklarace procedure ChDir(S: String); ;Režim :Windows, Reálný, Chráněný ;Poznámky :Aktuální adresář se změní na cestu, ur...“
Změní aktuální adresář.
;Deklarace
procedure ChDir(S: String);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Aktuální adresář se změní na cestu, určenou parametrem S. Pokud je součástí S i písmeno disku, aktuální disk se změní také.
:V režimu {[[$I]]-} vrací funkce [[IOResult]] hodnotu 0 pro úspěšnou operaci, jinak nenulový chybový kód.
;Viz také
:[[GetDir]]
:[[MkDir]]
:[[RmDir]]
Vzorový příklad
{Chdir.PAS}
{Vzorový příklad pro proceduru ChDir .}
{ Pro Windows: }
{ uses WinCrt; }
begin
{$I-}
{ Získání jména adresáře z příkazové řádky }
ChDir(ParamStr(1));
if IOResult <> 0 then
Writeln('Adresář nenalezen');
end.
[[Category:System]]
[[Category:Procedúry System]]
;Deklarace
procedure ChDir(S: String);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Aktuální adresář se změní na cestu, určenou parametrem S. Pokud je součástí S i písmeno disku, aktuální disk se změní také.
:V režimu {[[$I]]-} vrací funkce [[IOResult]] hodnotu 0 pro úspěšnou operaci, jinak nenulový chybový kód.
;Viz také
:[[GetDir]]
:[[MkDir]]
:[[RmDir]]
Vzorový příklad
{Chdir.PAS}
{Vzorový příklad pro proceduru ChDir .}
{ Pro Windows: }
{ uses WinCrt; }
begin
{$I-}
{ Získání jména adresáře z příkazové řádky }
ChDir(ParamStr(1));
if IOResult <> 0 then
Writeln('Adresář nenalezen');
end.
[[Category:System]]
[[Category:Procedúry System]]