Delphi application.service 获取目录路径

结合 ExtractFilePath 函数获取程序所在目录（末尾带反斜杠）‌

// 使用 ParamStr(0) + ExpandFileName
var
  FullPath: string;
begin
  FullPath := ExpandFileName(ParamStr(0));
  ShowMessage('程序路径：' + FullPath);
end;

注意事项： ‌

服务环境特殊性‌：服务程序的工作目录可能与实际程序路径不同，建议始终通过 ParamStr(0) 或 ExpandFileName 获取绝对路径‌。 ‌

路径处理函数‌：

ExtractFileDir(ParamStr(0))：获取目录路径（不带末尾反斜杠）‌