在Delphi中，可以使用GetCurrentDir函数来获取当前路径。GetCurrentDir函数的定义如下：
function GetCurrentDir: string;
使用方法如下：
var currentPath: string; begin currentPath := GetCurrentDir; ShowMessage(‘当前路径：’ + currentPath); end;
以上代码会弹出一个消息框显示当前路径。
辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
推荐阅读： Delphi中的面向对象编程有哪些特点
云服务器
物理服务器
虚拟主机
跨境电商服务器