intermsgclient.pas

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

unit InterMsgClient;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmMsgClient=class(TForm)
    MsgClient: TFrmMsgClient;
    procedure MsgClientConnect(Sender : TObject);
    procedure MsgClientError(Sender : TObject);
    procedure MsgClientRead(Sender : TObject);
    procedure MsgClientDisconnect(Sender : TObject);
    procedure _PROC_005994C8(Sender : TObject);
    procedure _PROC_00599528(Sender : TObject);
    procedure _PROC_00599530(Sender : TObject);
    procedure _PROC_00599ACC(Sender : TObject);
    procedure _PROC_00599C64(Sender : TObject);
    procedure _PROC_00599C94(Sender : TObject);
    procedure _PROC_00599C9C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmMsgClient: TFrmMsgClient;

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

implementation

{$R *.DFM}

procedure TFrmMsgClient.MsgClientConnect(Sender : TObject);
begin
(*
00599AF0   55                     push    ebp
00599AF1   8BEC                   mov     ebp, esp
00599AF3   83C4E8                 add     esp, -$18
00599AF6   53                     push    ebx
00599AF7   33DB                   xor     ebx, ebx
00599AF9   895DF0                 mov     [ebp-$10], ebx
00599AFC   895DEC                 mov     [ebp-$14], ebx
00599AFF   895DE8                 mov     [ebp-$18], ebx
00599B02   894DF8                 mov     [ebp-$08], ecx
00599B05   8955F4                 mov     [ebp-$0C], edx
00599B08   8945FC                 mov     [ebp-$04], eax
00599B0B   33C0                   xor     eax, eax
00599B0D   55                     push    ebp

* Possible String Reference to: '轫