pluginmanage.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit PlugInManage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TftmPlugInManage=class(TForm)
    ListBoxPlugin: TListBox;
    ButtonPluginConfig: TButton;
    btnUnLoad: TButton;
    btnClose: TButton;
    procedure ListBoxPluginDblClick(Sender : TObject);
    procedure ButtonPluginConfigClick(Sender : TObject);
    procedure ListBoxPluginClick(Sender : TObject);
    procedure btnCloseClick(Sender : TObject);
    procedure _PROC_0055F56C(Sender : TObject);
    procedure _PROC_0055F657(Sender : TObject);
    procedure _PROC_0055F668(Sender : TObject);
    procedure _PROC_0055F6AD(Sender : TObject);
    procedure _PROC_0055F784(Sender : TObject);
    procedure _PROC_0055F847(Sender : TObject);
    procedure _PROC_0055F8C0(Sender : TObject);
    procedure _PROC_0055F8F0(Sender : TObject);
    procedure _PROC_0055F8F8(Sender : TObject);
    procedure _PROC_0055F90B(Sender : TObject);
    procedure _PROC_0055F91B(Sender : TObject);
    procedure _PROC_0055F9F6(Sender : TObject);
    procedure _PROC_0055FAC1(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ftmPlugInManage: TftmPlugInManage;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TftmPlugInManage.ListBoxPluginDblClick(Sender : TObject);
begin
(*
0055F768   55                     push    ebp
0055F769   8BEC                   mov     ebp, esp
0055F76B   83C4F8                 add     esp, -$08
0055F76E   8955F8                 mov     [ebp-$08], edx
0055F771   8945FC                 mov     [ebp-$04], eax
0055F774   8B55F8                 mov     edx, [ebp-$08]
0055F777   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TftmPlugInManage.ButtonPluginConfigClick()
|
0055F77A   E815000000             call    0055F794
0055F77F   59                     pop     ecx
0055F780   59                     pop     ecx
0055F781   5D                     pop     ebp
0055F782   C3                     ret

*)
end;

procedure TftmPlugInManage.ButtonPluginConfigClick(Sender : TObject);
begin
(*
0055F794   55                     push    ebp
0055F795   8BEC                   mov     ebp, esp
0055F797   83C4EC                 add     esp, -$14
0055F79A   33C9                   xor     ecx, ecx
0055F79C   894DF0                 mov     [ebp-$10], ecx
0055F79F   894DEC                 mov     [ebp-$14], ecx
0055F7A2   8955F4                 mov     [ebp-$0C], edx
0055F7A5   8945FC                 mov     [ebp-$04], eax
0055F7A8   33C0                   xor     eax, eax
0055F7AA   55                     push    ebp

* Possible String Reference to: '