fdbexpl.pas

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

unit FDBexpl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmFDBExplore=class(TForm)
    ListBox1: TListBox;
    EdFind: TEdit;
    Label1: TLabel;
    BtnAdd: TButton;
    BtnDel: TButton;
    ListBox2: TListBox;
    BtnRebuild: TButton;
    BtnBlankCount: TButton;
    GroupBox1: TGroupBox;
    BtnAutoClean: TButton;
    Timer1: TTimer;
    BtnCopyRcd: TButton;
    BtnCopyNew: TButton;
    CkLv1: TCheckBox;
    CkLv7: TCheckBox;
    CkLv14: TCheckBox;
    ButtonFind: TButton;
    GroupBox2: TGroupBox;
    CheckBoxNoEnoughLevel: TCheckBox;
    CheckBoxDeleted: TCheckBox;
    SpinEditWeek: TSpinEdit;
    SpinEditLevel: TSpinEdit;
    ButtonRepair: TButton;
    ButtonClear: TButton;
    LbProcess: TLabel;
    TimerShowInfo: TTimer;
    SpinEditInterval: TSpinEdit;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
    ProgressBar: TProgressBar;
    LabelProcessPercent: TLabel;
    procedure ListBox1Click(Sender : TObject);
    procedure BtnDelClick(Sender : TObject);
    procedure BtnRebuildClick(Sender : TObject);
    procedure BtnBlankCountClick(Sender : TObject);
    procedure BtnAddClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure BtnAutoCleanClick(Sender : TObject);
    procedure Timer1Timer(Sender : TObject);
    procedure BtnCopyRcdClick(Sender : TObject);
    procedure BtnCopyNewClick(Sender : TObject);
    procedure EdFindKeyPress(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure ButtonFindClick(Sender : TObject);
    procedure ButtonClearClick(Sender : TObject);
    procedure TimerShowInfoTimer(Sender : TObject);
    procedure SpinEditIntervalChange(Sender : TObject);
    procedure ButtonRepairClick(Sender : TObject);
    procedure SpinEdit1Change(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmFDBExplore: TFrmFDBExplore;

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

implementation

{$R *.DFM}

procedure TFrmFDBExplore.ListBox1Click(Sender : TObject);
begin
(*
004A0228   53                     push    ebx
004A0229   8BD8                   mov     ebx, eax
004A022B   8B83F8020000           mov     eax, [ebx+$02F8]
004A0231   8B10                   mov     edx, [eax]
004A0233   FF92CC000000           call    dword ptr [edx+$00CC]
004A0239   8BD0                   mov     edx, eax
004A023B   8B830C030000           mov     eax, [ebx+$030C]
004A0241   8B08                   mov     ecx, [eax]
004A0243   FF91D0000000           call    dword ptr [ecx+$00D0]
004A0249   5B                     pop     ebx
004A024A   C3                     ret

*)
end;

procedure TFrmFDBExplore.BtnDelClick(Sender : TObject);
begin
(*
004A024C   55                     push    ebp
004A024D   8BEC                   mov     ebp, esp
004A024F   6A00                   push    $00
004A0251   6A00                   push    $00
004A0253   53                     push    ebx
004A0254   56                     push    esi
004A0255   8BD8                   mov     ebx, eax
004A0257   33C0                   xor     eax, eax
004A0259   55                     push    ebp
004A025A   683D034A00             push    $004A033D

***** TRY
|
004A025F   64FF30                 push    dword ptr fs:[eax]
004A0262   648920                 mov     fs:[eax], esp
004A0265   8B83F8020000           mov     eax, [ebx+$02F8]
004A026B   8B10                   mov     edx, [eax]
004A026D   FF92CC000000           call    dword ptr [edx+$00CC]
004A0273   40                     inc     eax
004A0274   0F8EA8000000           jle     004A0322
004A027A   8BB3F8020000           mov     esi, [ebx+$02F8]
004A0280   8BC6                   mov     eax, esi
004A0282   8B10                   mov     edx, [eax]
004A0284   FF92CC000000           call    dword ptr [edx+$00CC]
004A028A   8BD0                   mov     edx, eax
004A028C   8B8618020000           mov     eax, [esi+$0218]
004A0292   8B08                   mov     ecx, [eax]
004A0294   FF5118                 call    dword ptr [ecx+$18]
004A0297   8BD8                   mov     ebx, eax
004A0299   6A00                   push    $00

* Possible String Reference to: '是否确认删除人物数据 '
|
004A029B   6854034A00             push    $004A0354
004A02A0   8D55F8                 lea     edx, [ebp-$08]
004A02A3   8BC3                   mov     eax, ebx

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004A02A5   E85AADF6FF             call    0040B004
004A02AA   FF75F8                 push    dword ptr [ebp-$08]

* Possible String Reference to: ' ？'
|
004A02AD   6874034A00             push    $004A0374
004A02B2   8D45FC                 lea     eax, [ebp-$04]
004A02B5   BA03000000             mov     edx, $00000003

* Reference to: System.@LStrCatN;
|
004A02BA   E8B94AF6FF             call    00404D78
004A02BF   8B45FC                 mov     eax, [ebp-$04]
004A02C2   668B0D78034A00         mov     cx, word ptr [$004A0378]
004A02C9   B203                   mov     dl, $03

|
004A02CB   E81076F9FF             call    004378E0
004A02D0   83F806                 cmp     eax, +$06
004A02D3   754D                   jnz     004A0322
004A02D5   33C0                   xor     eax, eax
004A02D7   55                     push    ebp
004A02D8   681B034A00             push    $004A031B

***** TRY
|
004A02DD   64FF30                 push    dword ptr fs:[eax]
004A02E0   648920                 mov     fs:[eax], esp
004A02E3   A170824E00             mov     eax, dword ptr [$004E8270]
004A02E8   8B00                   mov     eax, [eax]

|
004A02EA   E8E5230400             call    004E26D4
004A02EF   84C0                   test    al, al
004A02F1   740E                   jz      004A0301
004A02F3   A170824E00             mov     eax, dword ptr [$004E8270]
004A02F8   8B00                   mov     eax, [eax]
004A02FA   8BD3                   mov     edx, ebx

|
004A02FC   E88B290400             call    004E2C8C
004A0301   33C0                   xor     eax, eax
004A0303   5A                     pop     edx
004A0304   59                     pop     ecx
004A0305   59                     pop     ecx
004A0306   648910                 mov     fs:[eax], edx

****** FINALLY
|
004A0309   6822034A00             push    $004A0322
004A030E   A1C07C4E00             mov     eax, dword ptr [$004E7CC0]
004A0313   8B00                   mov     eax, [eax]

|
004A0315   E842150400             call    004E185C
004A031A   C3                     ret


* Reference to: System.@HandleFinally;
|
004A031B   E93040F6FF             jmp     00404350
004A0320   EBEC                   jmp     004A030E

****** END
|
004A0322   33C0                   xor     eax, eax
004A0324   5A                     pop     edx
004A0325   59                     pop     ecx
004A0326   59                     pop     ecx
004A0327   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '^[YY]