Přidáno 934 bajtů,
5. 10. 2012, 14:00 Odstraní prázdný podadresář.
;Deklarace
procedure RmDir(S: String);
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Zruší podadresář, jehož cesta je určena parametrem S, pokud podadresář existuje, je prázdný a není současným adresářem. Pokud není splněná některá z uvedených podmínek, vznikne vstupně/výstupní chyba.
:V režimu {[[$I]]-} vrací funkce [[IOResult]] hodnotu 0, pokud operace proběhla úspěšně, jinak vrátí nenulový kód chyby.
;Viz také
:[[ChDir]]
:[[GetDir]]
:[[MkDir]]
:[[RemoveDir]]
Vzorový příklad
{RmDir.PAS}
{Vzorový příklad pro proceduru RmDir.}
{ Pro Windows: }
{ uses WinCrt; }
begin
{$I-}
{ Vezme jméno adresáře z povelového řádku }
RmDir(ParamStr(1));
if IOResult <> 0 then
Writeln('Nemohu zrušit adresář')
else
Writeln('Adresář zrušen');
end.
[[Category:System]]
[[Category:Procedúry System]]