lazarus获取linux系统文件当前路径

Lazarus 是一个开源的集成开发环境（IDE），用于使用 Object Pascal 语言进行快速应用程序开发，特别是基于 Free Pascal 编译器的。在 Linux 系统中，您可以通过编程方式获取当前文件的路径，这通常涉及到使用系统调用或标准库函数。

在 Lazarus 中，您可以使用 Free Pascal 提供的库函数来获取当前路径。例如，您可以使用 `GetDir()` 函数来获取当前的工作目录。下面是一个简单的示例代码，展示了如何在 Lazarus 中使用 Object Pascal 获取当前目录路径：

program GetCurDir;

{$mode objfpc}{$H+}

uses
  SysUtils, Classes;

begin
  // 输出当前工作目录
  Writeln('当前工作目录是: ', GetCurrentDir());
end.

运行这个程序将在控制台输出当前的工作目录路径。

如果您需要获取可执行文件所在的路径，可以使用 `ParamStr(0)` 获取程序的执行路径，然后使用 `ExtractFilePath()` 来提取目录部分。