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

{ tntatest }

constructor tntatest.create;

begin

 idehandle:=(borlandideservices as iotaservices).getparenthandle;

 //我们用iotaservices接口的getparenthandle方法取得了ide的handle

end;

procedure tntatest.addmenu;

var

 menuitem:array [0..2] of tmenuitem;

 i:integer;