Contact: aviboots(AT)netvision.net.il
39,845 questions
51,766 answers
573 users
program WorkingDirectory; uses SysUtils; var dir: String; begin dir := expandfilename('.'); Writeln(dir); end. (* run: /box *)