Code:

function InitExpert(ToolServices: TIToolServices; RegisterProc:

TExpertRegisterProc; var Terminate: TExpertTerminateProc): Boolean; export;

stdcall;

Code:

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

*

* App. Name : DelphiPlug

* Autor     : Daniel Wischnewski

* Copyright : Copyright © 2000-2003 by gate(n)etwork GmbH. All Right Reserved.

* Urheber   : Daniel Wischnewski

*

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

library DelphiPlug;

{ Important note about DLL memory management: ShareMem must be the

first unit in your library's USES clause AND your project's (select

Project-View Source) USES clause if your DLL exports any procedures or

functions that pass strings as parameters or function results. This

applies to all strings passed to and from your DLL--even those that

are nested in records and classes. ShareMem is the interface unit to

the BORLNDMM.DLL shared memory manager, which must be deployed along

with your DLL. To avoid using BORLNDMM.DLL, pass string information

using PChar or ShortString parameters. }

uses

ShareMem,

ExptIntf,

uPlugIn in 'uPlugIn.pas';

{$R *.res}

exports

InitExpert name ExpertEntryPoint;

begin

end.

The Unit Source Code (uPlugIn.pas)

{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

*

* Unit Name : uPlugIn

* Autor     : Daniel Wischnewski

* Copyright : Copyright © 2000-2003 by gate(n)etwork GmbH. All Right Reserved.

* Urheber   : Daniel Wischnewski

*

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}

unit uPlugIn;

interface

uses

ToolIntf, EditIntf, ExptIntf, VirtIntf, Windows, Messages;

const

MIdx_Main = $0001;

MIdx_ShowItems = $0002;

MIdx_RunCommand = $0003;

type

TDelphiPlug = class(TIExpert)

private

protected

public

   // abstract methods to be overriden

   { Expert UI strings }

   function GetName: string; override; stdcall;

   function GetAuthor: string; override; stdcall;

   function GetComment: string; override; stdcall;

   function GetPage: string; override; stdcall;

{$IFDEF MSWINDOWS}

   function GetGlyph: HICON; override; stdcall;

{$ENDIF}

{$IFDEF LINUX}

   function GetGlyph: Cardinal; override; stdcall;

{$ENDIF}

   function GetStyle: TExpertStyle; override; stdcall;

   function GetState: TExpertState; override; stdcall;

   function GetIDString: string; override; stdcall;

   function GetMenuText: string; override; stdcall;

   { Launch the Expert }

   procedure Execute; override; stdcall;

end;

function InitExpert(ToolServices: TIToolServices; RegisterProc:

TExpertRegisterProc; var Terminate: TExpertTerminateProc): Boolean; export;

stdcall;

implementation

uses

SysUtils, ShellAPI;

function InitExpert(ToolServices: TIToolServices; RegisterProc:

TExpertRegisterProc; var Terminate: TExpertTerminateProc): Boolean; export;

stdcall;

var

DelphiPlug: TDelphiPlug;

begin

Result := True;

try

   // assign tools services

   ExptIntf.ToolServices := ToolServices;

   // create the Delphi-Plug

   DelphiPlug := TDelphiPlug.Create;

   // register with Delphi

   RegisterProc(DelphiPlug);

except

   // kill assistant

   ToolServices.RaiseException(ReleaseException);

end;

end;

{ TDelphiPlug }

procedure TDelphiPlug.Execute;

begin

// en:

//   Execute will be called, whenever the user clicks on the menu entry in the

//   help menu

MessageBox(ToolServices.GetParentHandle, 'How may I help you?', 'Hmm',

   MB_ICONQUESTION + MB_OK);

end;

function TDelphiPlug.GetAuthor: string;

begin

// en:

//   returns the name of the author of the plugin

Result := 'sakura (Daniel Wischnewski)';

end;

function TDelphiPlug.GetComment: string;

begin

// en:

//   I got no idea where this comment will be displayed, ever.

Result := 'A simple Delphi-PlugIn example.';

end;

{$IFDEF MSWINDOWS}

function TDelphiPlug.GetGlyph: HICON;

begin

// en:

//   an icon handle for the entry in the help menu

Result := NOERROR;

end;

{$ENDIF}

{$IFDEF LINUX}

function TDelphiPlug.GetGlyph: Cardinal;

begin

// en:

//   an icon handle for the entry in the help menu

Result := NOERROR;

end;

{$ENDIF}

function TDelphiPlug.GetIDString: string;

begin

// en:

//   id of the expert

Result := 'DelphiPlugSampleI';

end;

function TDelphiPlug.GetMenuText: string;

begin

// en:

//   this text will be schon in the help menu. each time the menu drops down,

//   this method will be called.

//   NOTE:

//     the method GetState must return esStandard, otherwise the help menu

//     entry will not be generated and shown

Result := 'You will find me in the help menu';

end;

function TDelphiPlug.GetName: string;

begin

// en:

//   this name must be unique

Result := 'sakura_DelphiPlugSample';

end;

function TDelphiPlug.GetPage: string;

begin

// en:

//   interesting to experts expanding the default dialogs of the Delphi-IDE

Result := '';

end;

function TDelphiPlug.GetState: TExpertState;

begin

// en:

//   returns a set of states

//   possible values: esEnabled, esChecked

Result := [esEnabled];

end;

function TDelphiPlug.GetStyle: TExpertStyle;

begin

// en:

//   returns the type of expert

Result := esStandard;

end;

end.