Question

How to get the folder containing the current program in Pascal

Answer 1

program FolderCurrentProgram;

uses
  SysUtils;

var
  dir: String;
  
begin
  dir := extractfilepath(paramstr(0));
  
  Writeln(dir);
end.

   
     
(*
run:
 
/box/
     
*)

 

70+ SQL courses for beginners and professionals

Answer 2

program FolderCurrentProgram;

uses
  SysUtils;

var
  dir: String;
  
begin
  dir := GetCurrentDir;
  
  Writeln(dir);
end.

   
     
(*
run:

/box
     
*)

 

70+ SQL courses for beginners and professionals