fpcdocs/sysutex/ex28.pp


1
2
3
4
5
6
7
8
9

Program Example28;

{ This program demonstrates the GetCurrentDir function }

Uses sysutils;

Begin
  Writeln ('Current Directory is : ',GetCurrentDir);
End.