在Delphi中，可以使用GetCurrentDir函数来获取当前路径。GetCurrentDir函数的定义如下：
function GetCurrentDir: string;
使用方法如下：
var currentPath: string; begin currentPath := GetCurrentDir; ShowMessage(‘当前路径：’ + currentPath); end;
以上代码会弹出一个消息框显示当前路径。
