delphi 取运行目录

在Delphi中，可以使用以下两种方法来获取程序的运行目录：

1. 使用GetCurrentDir函数：

var
  runDir: string;begin
  runDir := GetCurrentDir;
  ShowMessage('运行目录：' + runDir);
end;

2. 使用Application.ExeName和ExtractFilePath函数：

var
  runDir: string;
begin
  runDir := ExtractFilePath(Application.ExeName);
  ShowMessage('运行目录：' + runDir);
end;

这两种方法都可以获取程序的运行目录，你可以根据自己的需要选择其中一种方法来使用。