Skip to content

    GetDir

    Return the current directory.

    Declaration

    Source position: systemh.inc line 1568

    procedure GetDir(drivenr: Byte; var dir: shortstring);  overload; overload;

    procedure GetDir(drivenr: Byte; var dir: RawByteString);  overload; overload;

    procedure GetDir(drivenr: Byte; var dir: unicodestring);  overload; overload;

    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 Linux and Unix systems, drivenr is ignored, as there is only one directory tree.

    Errors

    An error is returned under dos, if the drive requested isn't ready.

    See also

    Name Description
    Chdir Change current working directory.

    Example

    Program Example29;

{ Program to demonstrate the GetDir function. }

Var S : String;

begin
  GetDir (0,S);
  Writeln ('Current directory is : ',S);
end.