frmcpyrcd.pas

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

unit frmcpyrcd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmCopyRcd=class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EdWithID: TEdit;
    procedure FormShow(Sender : TObject);
    procedure _PROC_0049E961(Sender : TObject);
    procedure _PROC_0049EA94(Sender : TObject);
    procedure _PROC_0049EAC4(Sender : TObject);
    procedure _PROC_0049EACC(Sender : TObject);
    procedure _PROC_0049EB52(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmCopyRcd: TFrmCopyRcd;

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

implementation

{$R *.DFM}

procedure TFrmCopyRcd.FormShow(Sender : TObject);
begin
(*
0049E950   8B80F8020000           mov     eax, [eax+$02F8]
0049E956   8B10                   mov     edx, [eax]
0049E958   FF92C4000000           call    dword ptr [edx+$00C4]
0049E95E   C3                     ret

*)
end;

procedure TFrmCopyRcd._PROC_0049E961(Sender : TObject);
begin
(*
0049E961   8BEC                   mov     ebp, esp
0049E963   33C9                   xor     ecx, ecx
0049E965   51                     push    ecx
0049E966   51                     push    ecx
0049E967   51                     push    ecx
0049E968   51                     push    ecx
0049E969   51                     push    ecx
0049E96A   51                     push    ecx
0049E96B   53                     push    ebx
0049E96C   8BD8                   mov     ebx, eax
0049E96E   33C0                   xor     eax, eax
0049E970   55                     push    ebp

* Possible String Reference to: '槠X