plugins.pas

用Delphi实现Dll插件的方式

unit Plugins;
{版权所有 枫叶在线 HTTP://WWW.SKYGZ.COM [e-mail] 风铃夜思雨}
interface

uses windows;

type
  PPluginModule = ^TPluginModule;
  TPluginModule = record
    Description: PChar;
    DllHandle: function(): Hwnd; cdecl;
    DllInstance: function(): THandle; cdecl;
    DllPath: function(): PChar; cdecl;
    ExeInfo: procedure(This_Handle: Hwnd; This_ExePath: PChar); cdecl;
    About: procedure(This_Module: PPluginModule); cdecl;
    Config: procedure(This_Module: PPluginModule); cdecl;
    Initialize: function(This_Module: PPluginModule): Integer; cdecl;
    Terminate: function(This_Module: PPluginModule): Integer; cdecl;
    Start: function(This_Module: PPluginModule): Integer; cdecl;
    Stop: function(This_Module: PPluginModule): Integer; cdecl;
  end;

  PPluginInfo = ^TPluginInfo;
  TPluginInfo = record
    Version: PChar;
    Description: PChar;
    Module: function: PPluginModule; cdecl;
  end;
  PluginInfoType = function: PPluginInfo;

implementation

end.