在Lazarus的ComponentEditor中获取项目源目录的等效方法

在Lazarus（LCL对应的IDE）中，要实现类似Delphi里通过ToolsAPI获取活动项目目录的功能，需要用到Lazarus自带的IDE接口单元：

• 核心依赖单元：LazIDEIntf 和 ProjectIntf
• 直接获取活动项目目录的示例代码：

uses LazIDEIntf, ProjectIntf;

function GetActiveProjectSourceDir: string;
var
  CurrActiveProject: TProject;
begin
  Result := '';
  // 获取当前IDE的活动项目实例
  CurrActiveProject := GetIDE.GetActiveProject;
  if Assigned(CurrActiveProject) then
    // 提取项目文件所在的目录路径
    Result := ExtractFilePath(CurrActiveProject.FileName);
end;

注意事项 #

• 这段代码仅适用于Lazarus IDE内部运行的场景（比如你的自定义ComponentEditor），编译后的独立应用无法调用这些IDE接口，和你描述的需求完全匹配。
• 如果当前没有活动项目（比如IDE刚打开还没加载项目），会返回空字符串，使用时建议做非空判断。

内容的提问来源于stack exchange，提问作者Adrian Maire