Использование открытых интерфейсов среды программирования Delphi

unit  exmpl_01;
 
{ STANDARD EXPERT  }
 
interface
 
uses
 Dialogs,  ExptIntf;
 
type
 { класс эксперта является потомком базового класса TIExpert } 
 TEMyExpert = class(TIExpert)
  function GetName: string; override;
  function GetStyle: TExpertStyle; override;
  function GetIDString: string; override;
  function GetMenuText: string; override;
  function GetState: TExpertState; override;
  procedure Execute; override; 
 end;
 
procedure Register;

implementation
 
function TEMyExpert.GetName: string;
begin
	{ возвращаем имя эксперта }
	Result := 'Mу Simple Expert l';
end;
 
function TEMyExpert. GetStyle: TExpertStyle;
begin
	{ возвращаем стиль эксперта}
	Result := esStandard;
end;
 
function TEMyExpert.GetHenuText: string;
begin
	{ возвращаем текст пункта мены эксперта }
	Result := 'Simple Expert I';
end;
 
function TEMyExpert.GetState: TExpertState;
begin
	{ возвращаем множество, характеризующее состояние пункта мены эксперта
		(доступность, наличие "галочки"); в данном случае пункт мены доступен a 
		"галочка" отсутствует }
	Result := [esEnabled];
end;
 
function TEMyExpert.GetIDString: string;
begin
	{ возвращаем строку-идентификатор эксперта }
	Result := 'Doomy.SimpleAddInExpert_l'
end;
 
procedure TEMyExpert.Execute;
begin
	{ при выборе пункта мены эксперта отображаем информационное сообщение }
	MessageDlg('Standard Expert started!', mtlnformation, [mbOk], 0);
end;
 
procedure Register;
begin
	{ регистрируем эксперт }
	RegisterLibraryExpert(TEMyExpert.Create);
end;
 
end.