unit CCTestWiz;

interface

uses
  ToolsAPI;

type
  TCCTest = class(TNotifierObject, IOTAWizard, IOTAMenuWizard)
  public
    function GetIDString: string;
    function GetName: string;
    function GetState: TWizardState;
    procedure Execute;
    function GetMenuText: string;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterPackageWizard(TCCTest.Create);
end;

{ TCCTest }

procedure TCCTest.Execute;
var
  CodeInsightServices: IOTACodeInsightServices;
begin
  CodeInsightServices := (BorlandIDEServices as IOTACodeInsightServices);
  // 之后再用代码提示导致 IDE 出错
  CodeInsightServices.SetQueryContext(nil, nil);
end;

function TCCTest.GetIDString: string;
begin
  Result := 'CCTest';
end;

function TCCTest.GetMenuText: string;
begin
  Result := 'CCTest';
end;

function TCCTest.GetName: string;
begin
  Result := 'CCTest';
end;

function TCCTest.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;

end.