sg_demo.dpr

枫叶插件管理器 版本：1.0.0.0 说明： 基于API DLL形式的插件管理器

Library Sg_Demo;

Uses
  Windows,
  SysUtils,
  Classes,
  Forms,
  Menus,
  PluginsType In '..\Common\PluginsType.pas';

{$R Sg_Demo.Res}
Var
  ExeApp: TApplication;
  MenuItem: TMenuItem;
  LibHandle: DWORD;
  AddPluginPic: PAddPluginPic_CallBack;

Const
 {$I PluginInfo.inc}
  Info: TPluginInfo = (
    Version: PluginVersion;
    Name: PluginName;
    Description: PluginDescription;
    ModulePath: GetModulePath;
    );

Function GetPluginInfo: PPluginInfo; Stdcall;
Begin
  Result := @Info;
End;

Procedure SetPluginManagerInfo(PMI: PPluginManagerInfo); Stdcall;
Begin
  ExeApp := TApplication(PMI^.App);
  MenuItem := TMenuItem(PMI^.MenuItem);
  LibHandle := PMI^.LibHandle;
  AddPluginPic := PMI^.AddPluginPicCallBack;
End;

Procedure SetAbout(This_Module: PPluginModule); Stdcall;
Begin
  MessageBox(ExeApp.Handle, '关于...', '', MB_ICONINFORMATION);
End;

Procedure SetConfig(This_Module: PPluginModule); Stdcall;
Begin
  MessageBox(ExeApp.Handle, '无配置...', '', MB_ICONINFORMATION);
End;

Function SetInitialize(This_Module: PPluginModule): integer; Stdcall;
Begin
  Result := S_OK;
End;

Function SetTerminate(This_Module: PPluginModule): integer; Stdcall;
Begin
  Result := S_OK;
End;

Function SetStart(This_Module: PPluginModule): integer; Stdcall;
Begin
  MessageBox(ExeApp.Handle, '运行...', '', MB_ICONINFORMATION);
  Result := S_OK;
End;

Function SetStop(This_Module: PPluginModule): integer; Stdcall;
Begin
  Result := S_OK;
End;

Function SetUninstall(This_Module: PPluginModule): integer; Stdcall;
Begin
  Result := S_OK;
End;

Const
  DllModule: TPluginModule = (
    PluginInfo: GetPluginInfo;
    PluginManagerInfo: SetPluginManagerInfo;
    About: SetAbout;
    Config: SetConfig;
    Initialize: SetInitialize;
    Terminate: SetTerminate;
    Start: SetStart;
    Stop: SetStop;
    Uninstall: SetUninstall;
    );

Function Sg_Plugin: PPluginModule; Stdcall; 
Begin
  Result := @DllModule;
End;

Exports
  Sg_Plugin;
Begin
End.