Delphi Open Tools API - Simple Wizard

之前向大家简单的介绍了Open Tools API，现在我们就要亲自动手编写一个简单的Wizard，来体验Open Tools API的魅力所在。

在Delphi6中，不再推荐大家使用ExptIntf单元中的TIExpert类做为我们自己编写的Wizard的基类，而是改用TInterfacedObject做为其基类，并实现ToolsAPI单元中的一个或我个接口。

编写一个Wizard必须要实现ToolsAPI单元中的IOTAWizard接口和IOTAWizard的父接口INotifier（尽管Delphi不会调用INotifier接口中的任何方法）。如果你想编写一个Menu Wizard，必须实现IOTAWizard、INotifier和IOTAMenuWizard接口中的方法；如果想编写一个Form Wizard或是Project Wizard，必须实现IOTAWizard、INotifier和IOTARepositoryWizard接口中的方法（在ToolsAPI单元中为IOTARepositoryWizard接口另定义了两个别名IOTAFormWizard和IOTAProjectWizard，分别针对Form Wizard和Project Wizard）。

在Delphi6中，Wizard的注册方式做了相应的变化，在Package中实现的Wizard不再是调用ExptIntf单元中的RegisterLibraryExpert方法，而是改为调用RegisterPackgeWizard方法。如果你编写的Wizard是在DLL中实现的，则不需要调用此方法，而是使用ToolsAPI单元中的IOTAWizardServices接口来注册和移除自己编写的Wizard。

unitSimpleWizard;

interface

usesToolsAPI,Dialogs;

type
TMSimpleWizard=class(TInterfacedObject,IOTANotifier,IOTAWizard)
public
...{IOTANotifier}
procedureAfterSave;
procedureBeforeSave;
procedureDestroyed;
procedureModified;

...{IOTAWizard}
functionGetIDString:string;
functionGetName:string;
functionGetState:TWizardState;
procedureExecute;
end;

implementation

functionTMSimpleWizard.AfterSave;
begin
//DoNothing
end;

functionTMSimpleWizard.BeforeSave;
begin
//DoNothing
end;

procedureTMSimpleWizard.Destroyed;
begin
//DoNothing
end;

procedureTMSimpleWizard.Execute;
begin
ShowMessage('ThisWizardistryingtodosomethinguseful.');
end;

functionTMSimpleWizard.GetIDString:String;
begin
Result:='ChirsMao.SimpleWizard';
end;

functionTMSimpleWizard.GetName:String;
begin
Result:='SimpleWizard';
end;

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

procedureTMSimpleWizard.Modified;
begin
//DoNothing
end;

在DLL中实现Wizard，必须在Uses从句中第一个引用ShareMem单元。并且要在DLL的Terminate方法中手工移除掉注册到IDE中的Wizard。

LibrarySiampleWizardDLL;

usesShareMem,ToolsAPI,SiampleWizard;

var
Index:Integer=-1;//全局变量，保存Wizard添加到IDE中的索引号

procedureTerminate;
var
Services:IOTAWizardServices;
begin
Services:=BorlandIDEServicesasIOTAWizardServices;
Services.RemoveWizard(Index);
end;

functionInitialize(constServices:IBorlandIDEServices;RegisterProc:TWizardRegisterProc;varTerminateProc:TWizardTerminateProc):Boolean;stdcall;
var
WizardServices:IOTAWizardServices;
begin
//如果你使用了VCL*.BPL，否则需要保存这个接口变量
BorlandIDEServices:=Services;
WizardServices:=BorlandIDEServicesasIOTAWizardServices;
WizardServices.AddWizard(TSimpleWizard.Create);
TerminateProc:=Terminate;
Result:=True;
end;

Exports
InitializeasWizardEntryPoint;

end.

版权声明：本文为博主原创文章，未经博主允许不得转载。