如何创建文件/将文件移动到与程序相同的目录？

Question

我在Macbook上使用了lazarus，并试图创建一个与程序所在目录相同的文件。

我尝试过

AssignFile(ReportData, GetCurrentDir + FILENAME);

但是它返回的权限被拒绝，所以我通过这样做检查了它当前所在的路径

writeln( GetCurrentDir );

原来，它使用我的主文件夹而不是程序的目录。有没有一种方法可以将目录设置为程序所在的目录？因为我要将程序移动到另一台计算机上，并且该目录在其他计算机上不存在。