untopenalldatamodule.pas

简单好用的Delphi专家一个简单好用的Delphi专家 安装后Delphi将增加两个小功能: 1.在窗体/DataModule上可以按Ctrl-F进行查找定位组件, 在一个窗体/DataM

unit unTOpenAllDataModule;

interface

uses unTBaseExpert, ToolsAPI, Windows, ShellAPI;

type
  TOpenAllDataModule = class(TBaseExpert)
    private
    public
      { IOTAWizard }
      function GetIDString(): String; override;
      function GetName(): String; override;
      function GetState(): TWizardState; override;
      procedure Execute(); override;
      { IOTAMenuWizard }
      function GetMenuText(): String; override;
  end;

  procedure Register;

implementation

uses SysUtils, StrUtils;

procedure Register;
begin
  ToolsAPI.RegisterPackageWizard(TOpenAllDataModule.Create());
end;

{ TOpenAllDataModule }

procedure TOpenAllDataModule.Execute;
var
  iModule : Integer;
  iModuleSvr: IOTAModuleServices;
  sFileName: String;
begin
  inherited;

  //
  iModuleSvr:= (BorlandIDEServices As IOTAModuleServices);
  IF iModuleSvr<>nil THEN
  BEGIN
    //筂菌┮Τ家遏
    For iModule:= 0 To iModuleSvr.ModuleCount-1 Do
    Begin
      //iModuleSvr.NewModule;
      sFileName:= iModuleSvr.Modules[iModule].FileName;
      If SameText(ExtractFileExt(sFileName), '.pas')
        And ( Pos('xx', sFileName)>0 )
      Then
        ShellExecute( 0 ,
                      'open' ,
                      PChar(sFileName),
                      nil,
                      PChar( ExtractFilePath(sFileName) ),
                      SW_SHOW );
    End;
  END;
end;

function TOpenAllDataModule.GetIDString: String;
begin
  result:= 'FlysnowExpert.OpenAllDataModuleWizard';
end;

function TOpenAllDataModule.GetMenuText: String;
begin
  result:= 'Open All DataModule';
end;

function TOpenAllDataModule.GetName: String;
begin
  result:= 'FlysnowExpert_OpenAllDataModuleWizard';
end;

function TOpenAllDataModule.GetState: TWizardState;
begin
  result:= [wsEnabled];
end;

end.