viewkernelinfo.pas

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

unit ViewKernelInfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmViewKernelInfo=class(TForm)
    Timer: TTimer;
    SysInfo_PageControl: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EditLoadHumanDBCount: TEdit;
    EditLoadHumanDBErrorCoun: TEdit;
    EditSaveHumanDBCount: TEdit;
    EditHumanDBQueryID: TEdit;
    GroupBox4: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    EditItemNumber: TEdit;
    EditItemNumberEx: TEdit;
    TabSheet3: TTabSheet;
    TabSheet5: TTabSheet;
    GroupBox7: TGroupBox;
    GridThread: TStringGrid;
    ListViewGlobalVal: TListView;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    EditWinLotteryCount: TEdit;
    EditNoWinLotteryCount: TEdit;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    EditWinLotteryLevel1: TEdit;
    EditWinLotteryLevel2: TEdit;
    EditWinLotteryLevel3: TEdit;
    EditWinLotteryLevel4: TEdit;
    EditWinLotteryLevel5: TEdit;
    EditWinLotteryLevel6: TEdit;
    ButtonRefGlobalVal: TButton;
    MainMenu: TMainMenu;
    VIEW_IINFO: TMenuItem;
    VIEW_IINFO_CHGREFINTER: TMenuItem;
    VIEW_IINFO_CHGREFINTER_H: TMenuItem;
    VIEW_IINFO_CHGREFINTER_N: TMenuItem;
    VIEW_IINFO_CHGREFINTER_L: TMenuItem;
    ListViewGlobaStrVal: TListView;
    ButtonClearSval: TButton;
    ButtonClearGval: TButton;
    A1: TMenuItem;
    procedure TimerTimer(Sender : TObject);
    procedure ButtonRefGlobalValClick(Sender : TObject);
    procedure VIEW_IINFO_CHGREFINTER_HClick(Sender : TObject);
    procedure VIEW_IINFO_CHGREFINTER_NClick(Sender : TObject);
    procedure VIEW_IINFO_CHGREFINTER_LClick(Sender : TObject);
    procedure ButtonClearGvalClick(Sender : TObject);
    procedure ButtonClearSvalClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure A1Click(Sender : TObject);
    procedure _PROC_00554680(Sender : TObject);
    procedure _PROC_00554994(Sender : TObject);
    procedure _PROC_00554CFD(Sender : TObject);
    procedure _PROC_00554E26(Sender : TObject);
    procedure _PROC_00554F02(Sender : TObject);
    procedure _PROC_0055517E(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmViewKernelInfo: TfrmViewKernelInfo;

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

implementation

{$R *.DFM}

procedure TfrmViewKernelInfo.TimerTimer(Sender : TObject);
begin
(*
005543E8   55                     push    ebp
005543E9   8BEC                   mov     ebp, esp
005543EB   B909000000             mov     ecx, $00000009
005543F0   6A00                   push    $00
005543F2   6A00                   push    $00
005543F4   49                     dec     ecx
005543F5   75F9                   jnz     005543F0
005543F7   8955F0                 mov     [ebp-$10], edx
005543FA   8945FC                 mov     [ebp-$04], eax
005543FD   33C0                   xor     eax, eax
005543FF   55                     push    ebp
00554400   6874465500             push    $00554674

***** TRY
|
00554405   64FF30                 push    dword ptr fs:[eax]
00554408   648920                 mov     fs:[eax], esp
0055440B   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
00554410   8945F8                 mov     [ebp-$08], eax
00554413   8D55EC                 lea     edx, [ebp-$14]
00554416   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
0055441B   8B80F3160000           mov     eax, [eax+$16F3]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00554421   E85270EBFF             call    0040B478
00554426   8B55EC                 mov     edx, [ebp-$14]
00554429   8B45FC                 mov     eax, [ebp-$04]
0055442C   8B8018030000           mov     eax, [eax+$0318]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00554432   E8414CF1FF             call    00469078
00554437   8D55E8                 lea     edx, [ebp-$18]
0055443A   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
0055443F   8B80EF160000           mov     eax, [eax+$16EF]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00554445   E82E70EBFF             call    0040B478
0055444A   8B55E8                 mov     edx, [ebp-$18]
0055444D   8B45FC                 mov     eax, [ebp-$04]
00554450   8B801C030000           mov     eax, [eax+$031C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00554456   E81D4CF1FF             call    00469078
0055445B   8D55E4                 lea     edx, [ebp-$1C]
0055445E   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
00554463   8B80F7160000           mov     eax, [eax+$16F7]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00554469   E80A70EBFF             call    0040B478
0055446E   8B55E4                 mov     edx, [ebp-$1C]
00554471   8B45FC                 mov     eax, [ebp-$04]
00554474   8B8020030000           mov     eax, [eax+$0320]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0055447A   E8F94BF1FF             call    00469078
0055447F   8D55E0                 lea     edx, [ebp-$20]
00554482   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
00554487   8B80FB160000           mov     eax, [eax+$16FB]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
0055448D   E8E66FEBFF             call    0040B478
00554492   8B55E0                 mov     edx, [ebp-$20]
00554495   8B45FC                 mov     eax, [ebp-$04]
00554498   8B8024030000           mov     eax, [eax+$0324]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0055449E   E8D54BF1FF             call    00469078
005544A3   8D55DC                 lea     edx, [ebp-$24]
005544A6   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
005544AB   8B80BF110000           mov     eax, [eax+$11BF]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
005544B1   E8C26FEBFF             call    0040B478
005544B6   8B55DC                 mov     edx, [ebp-$24]
005544B9   8B45FC                 mov     eax, [ebp-$04]
005544BC   8B8034030000           mov     eax, [eax+$0334]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
005544C2   E8B14BF1FF             call    00469078
005544C7   8D55D8                 lea     edx, [ebp-$28]
005544CA   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
005544CF   8B80C3110000           mov     eax, [eax+$11C3]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
005544D5   E89E6FEBFF             call    0040B478
005544DA   8B55D8                 mov     edx, [ebp-$28]
005544DD   8B45FC                 mov     eax, [ebp-$04]
005544E0   8B8038030000           mov     eax, [eax+$0338]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
005544E6   E88D4BF1FF             call    00469078
005544EB   8D55D4                 lea     edx, [ebp-$2C]
005544EE   A1A4B56500             mov     eax, dword ptr [$0065B5A4]
005544F3   8B807F0E0000           mov     eax, [eax+$0E7F]