Sign in Join
FPDoc Onlineexperiment

GetDir procedure

In unit System

Return the current directory.

Declaration

pascal
procedure GetDir(drivenr: Byte; var dir: shortstring); 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

Example: ex29

pascal
Program Example29;

{ Program to demonstrate the GetDir function. }

Var S : String;

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

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.