Delphi EXPERT ToolServices.getCurrentFile失败

Question

获取Delphi XE专家正在使用的当前文件的新方法是什么

以前在Delphi 5-7中我们使用了ToolServices.getCurrentFile

Answer 1

也许已弃用的单位ToolIntf，ExptIntf等不再有效。您可以改用IOTAModuleServices.CurrentModule。这是一个简单的例子：

function GetCurrentEditorFileName: string;
var
  Module: IOTAModule;
  Editor: IOTAEditor;
begin
  Result := '';
  Module := (BorlandIDEServices as IOTAModuleServices).CurrentModule;
  if Assigned(Module) then
  begin
    Editor := Module.CurrentEditor;
    if Assigned(Editor) then
      Result := Editor.FileName;
  end;
end;

Answer 2

另一种方法是将“编辑器中的文件名称”作为参数传递给工具。 $ EDNAME