Delphi Open Tools Api实例研究（一）[16]

 curentmoudle:=module.currentmodule;

 //使用iotamoduleservices的currentmodule方法得到当前打开的工程模块

 if curentmoudle=nil then

 begin

  messagebox(idehandle,'当前没有打开项目文件','hktest',mb_iconinformation);

  exit;

 end;

 //遍历已打开工程中所有的文件

 for i:=0 to curentmoudle.modulefilecount-1 do

 begin

  intfeditor:=curentmoudle.modulefileeditors[i];