createchr.pas

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

unit CreateChr;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmCreateChr=class(TForm)
    EdUserId: TEdit;
    EdChrName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtnOK: TBitBtn;
    BitBtnCancel: TBitBtn;
    Label3: TLabel;
    EditSelectID: TEdit;
    procedure FormShow(Sender : TObject);
    procedure _PROC_004971E1(Sender : TObject);
    procedure _PROC_004971EC(Sender : TObject);
    procedure _PROC_00497201(Sender : TObject);
    procedure _PROC_0049733C(Sender : TObject);
    procedure _PROC_0049734F(Sender : TObject);
    procedure _PROC_0049738C(Sender : TObject);
    procedure _PROC_00497394(Sender : TObject);
    procedure _PROC_0049741A(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmCreateChr: TFrmCreateChr;

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

implementation

{$R *.DFM}

procedure TFrmCreateChr.FormShow(Sender : TObject);
begin
(*
004971CC   8B80F8020000           mov     eax, [eax+$02F8]
004971D2   8B10                   mov     edx, [eax]
004971D4   FF92C4000000           call    dword ptr [edx+$00C4]
004971DA   C3                     ret

*)
end;

procedure TFrmCreateChr._PROC_004971E1(Sender : TObject);
begin
(*
004971E1   1803                   sbb     [ebx], al
004971E3   0000                   add     [eax], al

*)
end;

procedure TFrmCreateChr._PROC_004971EC(Sender : TObject);
begin
(*
004971EC   1C03                   sbb     al, $03
004971EE   0000                   add     [eax], al

*)
end;

procedure TFrmCreateChr._PROC_00497201(Sender : TObject);
begin
(*
00497201   8BEC                   mov     ebp, esp
00497203   33C9                   xor     ecx, ecx
00497205   51                     push    ecx
00497206   51                     push    ecx
00497207   51                     push    ecx
00497208   51                     push    ecx
00497209   51                     push    ecx
0049720A   51                     push    ecx
0049720B   53                     push    ebx
0049720C   56                     push    esi
0049720D   57                     push    edi
0049720E   8BF0                   mov     esi, eax
00497210   33C0                   xor     eax, eax
00497212   55                     push    ebp
00497213   682C734900             push    $0049732C

***** TRY
|
00497218   64FF30                 push    dword ptr fs:[eax]
0049721B   648920                 mov     fs:[eax], esp
0049721E   33DB                   xor     ebx, ebx
00497220   8B9618030000           mov     edx, [esi+$0318]
00497226   8B86F8020000           mov     eax, [esi+$02F8]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0049722C   E83B9FFCFF             call    0046116C
00497231   8B961C030000           mov     edx, [esi+$031C]
00497237   8B86FC020000           mov     eax, [esi+$02FC]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0049723D   E82A9FFCFF             call    0046116C
00497242   8BC6                   mov     eax, esi
00497244   8B10                   mov     edx, [eax]
00497246   FF92EC000000           call    dword ptr [edx+$00EC]
0049724C   48                     dec     eax
0049724D   0F859B000000           jnz     004972EE
00497253   8D55F8                 lea     edx, [ebp-$08]
00497256   8B86F8020000           mov     eax, [esi+$02F8]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0049725C   E8DB9EFCFF             call    0046113C
00497261   8B45F8                 mov     eax, [ebp-$08]
00497264   8D55FC                 lea     edx, [ebp-$04]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00497267   E8DC39F7FF             call    0040AC48
0049726C   8B55FC                 mov     edx, [ebp-$04]
0049726F   8D8618030000           lea     eax, [esi+$0318]

* Reference to: System.@LStrAsg(void;void;void;void);
|
00497275   E8D2D7F6FF             call    00404A4C
0049727A   8D55F0                 lea     edx, [ebp-$10]
0049727D   8B86FC020000           mov     eax, [esi+$02FC]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00497283   E8B49EFCFF             call    0046113C
00497288   8B45F0                 mov     eax, [ebp-$10]
0049728B   8D55F4                 lea     edx, [ebp-$0C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0049728E   E8B539F7FF             call    0040AC48
00497293   8B55F4                 mov     edx, [ebp-$0C]
00497296   8D861C030000           lea     eax, [esi+$031C]

* Reference to: System.@LStrAsg(void;void;void;void);
|
0049729C   E8ABD7F6FF             call    00404A4C
004972A1   8D55E8                 lea     edx, [ebp-$18]
004972A4   8B8614030000           mov     eax, [esi+$0314]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
004972AA   E88D9EFCFF             call    0046113C
004972AF   8B45E8                 mov     eax, [ebp-$18]
004972B2   8D55EC                 lea     edx, [ebp-$14]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
004972B5   E88E39F7FF             call    0040AC48
004972BA   8B45EC                 mov     eax, [ebp-$14]
004972BD   83CAFF                 or      edx, -$01

|
004972C0   E8CFF4FFFF             call    00496794
004972C5   8BF8                   mov     edi, eax
004972C7   89BE20030000           mov     [esi+$0320], edi
004972CD   85FF                   test    edi, edi
004972CF   7D1B                   jnl     004972EC
004972D1   6A30                   push    $30

* Possible String Reference to: '确认信息'
|
004972D3   683C734900             push    $0049733C

* Possible String Reference to: '选择ID输入不正确。'
|
004972D8   6848734900             push    $00497348
004972DD   8BC6                   mov     eax, esi

* Reference to: Controls.TWinControl.GetHandle(TWinControl):HWND;
|           or: QComCtrls.TTrackBar.GetHandle(TTrackBar):QClxSliderH;
|           or: QComCtrls.TCustomViewControl.GetHandle(TCustomViewControl):QListViewH;
|           or: QComCtrls.TCustomViewControl.ViewportHandle(TCustomViewControl):QWidgetH;
|           or: QComCtrls.TCustomHeaderControl.GetHandle(TCustomHeaderControl):QHeaderH;
|           or: QComCtrls.TCustomSpinEdit.GetHandle(TCustomSpinEdit):QClxSpinBoxH;
|
004972DF   E84006FDFF             call    00467924
004972E4   50                     push    eax
*)
end;

procedure TFrmCreateChr._PROC_0049733C(Sender : TObject);
begin
(*
0049733C   C8B7                   enter   , $B7
0049733E   C8CF                   enter   , $CF
00497340   D0C5                   rol     ch, 1
00497342   CF                     iret
00497343   A200000000             mov     byte ptr [$00000000], al
00497348   D1A1D4F14944           shl     dword ptr [ecx+$4449F1D4], 1
0049734E   CA                     ret     

*)
end;

procedure TFrmCreateChr._PROC_0049734F(Sender : TObject);
begin
(*
0049734F   E4C8                   in      al, $C8

|
00497351   EBB2                   jmp     00497305
00497353   BBD5FDC8B7             mov     ebx, $B7C8FDD5
00497358   A1A3000055             mov     eax, dword ptr [$550000A3]
0049735D   8BEC                   mov     ebp, esp
0049735F   33C0                   xor     eax, eax
00497361   55                     push    ebp

* Possible String Reference to: '槭霄