grobalsession.pas

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

unit GrobalSession;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmGrobalSession=class(TForm)
    ButtonRefGrid: TButton;
    PanelStatus: TPanel;
    GridSession: TStringGrid;
    procedure FormCreate(Sender : TObject);
    procedure ButtonRefGridClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmGrobalSession: TfrmGrobalSession;

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

implementation

{$R *.DFM}

procedure TfrmGrobalSession.FormCreate(Sender : TObject);
begin
(*
0047FB7C   53                     push    ebx
0047FB7D   8BD8                   mov     ebx, eax

* Possible String Reference to: '序号'
|
0047FB7F   6810FC4700             push    $0047FC10
0047FB84   33C9                   xor     ecx, ecx
0047FB86   33D2                   xor     edx, edx
0047FB88   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047FB8E   E809CBFFFF             call    0047C69C

* Possible String Reference to: '登录帐号'
|
0047FB93   6820FC4700             push    $0047FC20
0047FB98   33C9                   xor     ecx, ecx
0047FB9A   BA01000000             mov     edx, $00000001
0047FB9F   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047FBA5   E8F2CAFFFF             call    0047C69C

* Possible String Reference to: '登录地址'
|
0047FBAA   6834FC4700             push    $0047FC34
0047FBAF   33C9                   xor     ecx, ecx
0047FBB1   BA02000000             mov     edx, $00000002
0047FBB6   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047FBBC   E8DBCAFFFF             call    0047C69C

* Possible String Reference to: '服务器名'
|
0047FBC1   6848FC4700             push    $0047FC48
0047FBC6   33C9                   xor     ecx, ecx
0047FBC8   BA03000000             mov     edx, $00000003
0047FBCD   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047FBD3   E8C4CAFFFF             call    0047C69C

* Possible String Reference to: '会话ID'
|
0047FBD8   685CFC4700             push    $0047FC5C
0047FBDD   33C9                   xor     ecx, ecx
0047FBDF   BA04000000             mov     edx, $00000004
0047FBE4   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047FBEA   E8ADCAFFFF             call    0047C69C

* Possible String Reference to: '是否充值'
|
0047FBEF   686CFC4700             push    $0047FC6C
0047FBF4   33C9                   xor     ecx, ecx
0047FBF6   BA05000000             mov     edx, $00000005
0047FBFB   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0047FC01   E896CAFFFF             call    0047C69C
0047FC06   5B                     pop     ebx
0047FC07   C3                     ret

*)
end;

procedure TfrmGrobalSession.ButtonRefGridClick(Sender : TObject);
begin
(*

|
0047FF4C   E83FFDFFFF             call    0047FC90
0047FF51   C3                     ret

*)
end;

end.