[next] [prev] [prev-tail] [tail] [up]

#### Getdir

Declaration:
  Procedure Getdir (drivenr : byte;var dir : string);
Description:
  Getdir returns in dir the current directory on the drive drivenr, where drivenr is 1 for the first floppy drive, 3 for the first hard disk etc. A value of 0 returns the directory on the current disk. On L I N U X and U N I X systems, drivenr is ignored, as there is only one directory tree.
Errors:
  An error is returned under D O S, if the drive requested isn’t ready.
See also:
  Chdir (463)

Listing: refex/ex29.pp

Program Example29;
{ Program to demonstrate the GetDir function. }
Var S : String;
begin
GetDir (0,S);
Writeln ('Current directory is : ',S);
end.

[next] [prev] [prev-tail] [front] [up]