1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
bez shrnutí editace
Vrací aktuální adresář určené diskové jednotky.
;Deklarace
procedure GetDir(D: Byte; var S: String);
kde D je:
{| class="wikitable"
! width=10% | 0 !! Aktuální jednotka
|-----------------------
| 1 || Mechanika A
|-----------------------
| 2 || Mechanika B
|-----------------------
| 3 || Disk C
|}
atd.
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Neprovádí žádnou kontrolu chyb. Jestliže jednotka určená parametrem D je neplatná, S vrátí X:\, jako by šlo o hlavní adresář této neplatné jednotky.
:[[GetCurDir]] vykonává stejnou funkci jako [[GetDir]], ale místo řetězce pascalského stylu používá jako argument nulou zakončené řetězce.
;Viz také
:[[ChDir]]
:[[MkDir]]
:[[RmDir]]
Vzorový příklad
{GetDir.PAS}
{Vzorový příklad pro proceduru GetDir.}
{ Pro Windows: }
{ uses WinCrt; }
var
s : String;
begin
GetDir(0,s); { 0 = aktuálni disk }
Writeln('Aktuální disk a adresář: ', s);
end.
[[Category:System]]
[[Category:Procedúry System]]
;Deklarace
procedure GetDir(D: Byte; var S: String);
kde D je:
{| class="wikitable"
! width=10% | 0 !! Aktuální jednotka
|-----------------------
| 1 || Mechanika A
|-----------------------
| 2 || Mechanika B
|-----------------------
| 3 || Disk C
|}
atd.
;Režim
:Windows, Reálný, Chráněný
;Poznámky
:Neprovádí žádnou kontrolu chyb. Jestliže jednotka určená parametrem D je neplatná, S vrátí X:\, jako by šlo o hlavní adresář této neplatné jednotky.
:[[GetCurDir]] vykonává stejnou funkci jako [[GetDir]], ale místo řetězce pascalského stylu používá jako argument nulou zakončené řetězce.
;Viz také
:[[ChDir]]
:[[MkDir]]
:[[RmDir]]
Vzorový příklad
{GetDir.PAS}
{Vzorový příklad pro proceduru GetDir.}
{ Pro Windows: }
{ uses WinCrt; }
var
s : String;
begin
GetDir(0,s); { 0 = aktuálni disk }
Writeln('Aktuální disk a adresář: ', s);
end.
[[Category:System]]
[[Category:Procedúry System]]
