1 578
editací
Změny
Vytvorená stránka „Vrací aktuální adresář určené diskové jednotky. ;Deklarace function GetCurDir(Dir: PChar; Drive: Byte): PChar ;Režim :Windows ;Poznámky kde {| | 0 || Aktu...“
Vrací aktuální adresář určené diskové jednotky.
;Deklarace
function GetCurDir(Dir: PChar; Drive: Byte): PChar
;Režim
:Windows
;Poznámky
kde
{|
| 0 || Aktuální jednotka
| 1 || Mechanika A
| 2 || Mechanika B
| 3 || Disk C
|}
atd.
;Viz také
:[[SetCurDir]]
:[[CreateDir]]
:[[RemoveDir]]
Vzorový příklad
{GetCurDr.PAS}
{Vzorový příklad pro funkci GetCurDir.}
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses WinDos;
const
CDrive:Byte = 3;
var
CurDir: PChar;
begin
GetMem(CurDir, 80);
GetCurDir(CurDir, CDrive);
Writeln('Aktuální adresář na disku C je ',
CurDir,'.');
end.
[[Category:WinDos]]
;Deklarace
function GetCurDir(Dir: PChar; Drive: Byte): PChar
;Režim
:Windows
;Poznámky
kde
{|
| 0 || Aktuální jednotka
| 1 || Mechanika A
| 2 || Mechanika B
| 3 || Disk C
|}
atd.
;Viz také
:[[SetCurDir]]
:[[CreateDir]]
:[[RemoveDir]]
Vzorový příklad
{GetCurDr.PAS}
{Vzorový příklad pro funkci GetCurDir.}
{ Pro Windows: }
{ uses WinDos, WinCrt; }
uses WinDos;
const
CDrive:Byte = 3;
var
CurDir: PChar;
begin
GetMem(CurDir, 80);
GetCurDir(CurDir, CDrive);
Writeln('Aktuální adresář na disku C je ',
CurDir,'.');
end.
[[Category:WinDos]]