📄 lmain.pas
字号:
unit LMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmMain=class(TForm)
GSocket: TServerSocket;
ExecTimer: TTimer;
Panel1: TPanel;
Memo1: TMemo;
Timer1: TTimer;
StartTimer: TTimer;
WebLogTimer: TTimer;
BtnDump: TSpeedButton;
LogTimer: TTimer;
MonitorGrid: TStringGrid;
Panel2: TPanel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
LbMasCount: TLabel;
CkLogin: TCheckBox;
CbViewLog: TCheckBox;
BtnView: TSpeedButton;
CountLogTimer: TTimer;
BtnShowServerUsers: TSpeedButton;
MonitorTimer: TTimer;
MainMenu: TMainMenu;
MENU_CONTROL: TMenuItem;
MENU_CONTROL_EXIT: TMenuItem;
MENU_VIEW: TMenuItem;
MENU_OPTION: TMenuItem;
MENU_HELP: TMenuItem;
MENU_HELP_ABOUT: TMenuItem;
MENU_OPTION_GENERAL: TMenuItem;
MENU_OPTION_ROUTE: TMenuItem;
MENU_VIEW_SESSION: TMenuItem;
C1: TMenuItem;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure ExecTimerTimer(Sender : TObject);
procedure Memo1DblClick(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure StartTimerTimer(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure BtnViewClick(Sender : TObject);
procedure CountLogTimerTimer(Sender : TObject);
procedure BtnShowServerUsersClick(Sender : TObject);
procedure MonitorTimerTimer(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure GSocketClientConnect(Sender : TObject);
procedure GSocketClientDisconnect(Sender : TObject);
procedure GSocketClientError(Sender : TObject);
procedure GSocketClientRead(Sender : TObject);
procedure Panel2DblClick(Sender : TObject);
procedure CbViewLogClick(Sender : TObject);
procedure MENU_CONTROL_EXITClick(Sender : TObject);
procedure MENU_OPTION_ROUTEClick(Sender : TObject);
procedure MENU_VIEW_SESSIONClick(Sender : TObject);
procedure MENU_HELP_ABOUTClick(Sender : TObject);
procedure MENU_OPTION_GENERALClick(Sender : TObject);
procedure C1Click(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmMain: TFrmMain;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmMain.FormCreate(Sender : TObject);
begin
(*
004843C8 55 push ebp
004843C9 8BEC mov ebp, esp
004843CB 33C9 xor ecx, ecx
004843CD 51 push ecx
004843CE 51 push ecx
004843CF 51 push ecx
004843D0 51 push ecx
004843D1 51 push ecx
004843D2 53 push ebx
004843D3 56 push esi
004843D4 57 push edi
004843D5 8BD8 mov ebx, eax
004843D7 33C0 xor eax, eax
004843D9 55 push ebp
* Possible String Reference to: '闈'
|
004843DA 681E464800 push $0048461E
***** TRY
|
004843DF 64FF30 push dword ptr fs:[eax]
004843E2 648920 mov fs:[eax], esp
004843E5 A1F00E4900 mov eax, dword ptr [$00490EF0]
004843EA 8B00 mov eax, [eax]
004843EC 8998D4000000 mov [eax+$00D4], ebx
004843F2 C780D0000000BC434800 mov dword ptr [eax+$00D0], $004843BC
004843FC A1800F4900 mov eax, dword ptr [$00490F80]
00484401 8945FC mov [ebp-$04], eax
00484404 8B45FC mov eax, [ebp-$04]
* Reference to: ActnMenus.TCustomActionMainMenuBar.CloseMenu(TCustomActionMainMenuBar);
| or: CheckLst.TCheckListBox.CMFontChanged(TCheckListBox;TMessage;TMessage);
| or: ComCtrls.TPageControl.Loaded(TPageControl);
| or: ComCtrls.TCustomStatusBar.CMColorChanged(TCustomStatusBar;TMessage;TMessage);
| or: ComCtrls.TCustomStatusBar.CMSysColorChange(TCustomStatusBar;TMessage;TMessage);
| or: ComCtrls.TCustomStatusBar.CMSysFontChanged(TCustomStatusBar;TMessage;TMessage);
|
00484407 E834500000 call 00489440
0048440C 8D55F8 lea edx, [ebp-$08]
0048440F B801000000 mov eax, $00000001
|
00484414 E8A3EDF7FF call 004031BC
00484419 8B45F8 mov eax, [ebp-$08]
0048441C 33D2 xor edx, edx
|
0048441E E8FDB0FEFF call 0046F520
00484423 8B154C104900 mov edx, [$0049104C]
00484429 8902 mov [edx], eax
0048442B 8D55F4 lea edx, [ebp-$0C]
0048442E B802000000 mov eax, $00000002
|
00484433 E884EDF7FF call 004031BC
00484438 8B45F4 mov eax, [ebp-$0C]
0048443B 83CAFF or edx, -$01
|
0048443E E8DDB0FEFF call 0046F520
00484443 8BF0 mov esi, eax
00484445 8D55F0 lea edx, [ebp-$10]
00484448 B803000000 mov eax, $00000003
|
0048444D E86AEDF7FF call 004031BC
00484452 8B45F0 mov eax, [ebp-$10]
00484455 83CAFF or edx, -$01
|
00484458 E8C3B0FEFF call 0046F520
0048445D 8BF8 mov edi, eax
0048445F 85F6 test esi, esi
00484461 7D04 jnl 00484467
00484463 85FF test edi, edi
00484465 7C12 jl 00484479
00484467 8BD6 mov edx, esi
00484469 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetLeft(TControl;Integer);
|
0048446B E8684CFCFF call 004490D8
00484470 8BD7 mov edx, edi
00484472 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetTop(TControl;Integer);
|
00484474 E8834CFCFF call 004490FC
00484479 8B45FC mov eax, [ebp-$04]
0048447C C6400400 mov byte ptr [eax+$04], $00
00484480 8BC3 mov eax, ebx
* 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;
|
00484482 E8C9BCFCFF call 00450150
00484487 33D2 xor edx, edx
00484489 52 push edx
0048448A 50 push eax
0048448B 8D45EC lea eax, [ebp-$14]
|
0048448E E80D67F8FF call 0040ABA0
00484493 8B55EC mov edx, [ebp-$14]
00484496 66B8E803 mov ax, $03E8
|
0048449A E88DABFEFF call 0046F02C
0048449F A1100C4900 mov eax, dword ptr [$00490C10]
004844A4 33D2 xor edx, edx
004844A6 8910 mov [eax], edx
004844A8 B201 mov dl, $01
004844AA A148964200 mov eax, dword ptr [$00429648]
* Reference to: SyncObjs.TCriticalSection.Create(TCriticalSection;boolean);
|
004844AF E82C53FAFF call 004297E0
004844B4 8B15C40D4900 mov edx, [$00490DC4]
004844BA 8902 mov [edx], eax
004844BC B201 mov dl, $01
004844BE A12C4D4100 mov eax, dword ptr [$00414D2C]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
004844C3 E860FAF7FF call 00403F28
004844C8 8B153C0F4900 mov edx, [$00490F3C]
004844CE 8902 mov [edx], eax
004844D0 A13C0E4900 mov eax, dword ptr [$00490E3C]
004844D5 C70001000000 mov dword ptr [eax], $00000001
004844DB A1140D4900 mov eax, dword ptr [$00490D14]
004844E0 C70001000000 mov dword ptr [eax], $00000001
004844E6 8B8304030000 mov eax, [ebx+$0304]
004844EC 8B404C mov eax, [eax+$4C]
004844EF 8B15700E4900 mov edx, [$00490E70]
004844F5 8902 mov [edx], eax
004844F7 B201 mov dl, $01
004844F9 A110494100 mov eax, dword ptr [$00414910]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
004844FE E825FAF7FF call 00403F28
00484503 8B55FC mov edx, [ebp-$04]
00484506 89824E020000 mov [edx+$024E], eax
0048450C B201 mov dl, $01
0048450E A1A8AD4600 mov eax, dword ptr [$0046ADA8]
|
00484513 E8F468FEFF call 0046AE0C
00484518 8B55FC mov edx, [ebp-$04]
0048451B 898252020000 mov [edx+$0252], eax
00484521 B201 mov dl, $01
00484523 A12C4D4100 mov eax, dword ptr [$00414D2C]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
00484528 E8FBF9F7FF call 00403F28
0048452D 8B55FC mov edx, [ebp-$04]
00484530 898256020000 mov [edx+$0256], eax
00484536 B201 mov dl, $01
00484538 A194AC4600 mov eax, dword ptr [$0046AC94]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
0048453D E8E6F9F7FF call 00403F28
00484542 8B55FC mov edx, [ebp-$04]
00484545 89825A020000 mov [edx+$025A], eax
0048454B B201 mov dl, $01
0048454D A194AC4600 mov eax, dword ptr [$0046AC94]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
00484552 E8D1F9F7FF call 00403F28
00484557 8B55FC mov edx, [ebp-$04]
0048455A 89825E020000 mov [edx+$025E], eax
00484560 B101 mov cl, $01
00484562 B201 mov dl, $01
00484564 A13CA44800 mov eax, dword ptr [$0048A43C]
|
00484569 E8365F0000 call 0048A4A4
0048456E 898374030000 mov [ebx+$0374], eax
00484574 8B45FC mov eax, [ebp-$04]
* Reference to : TFrmMain._PROC_00484098()
|
00484577 E81CFBFFFF call 00484098
* Possible String Reference to: '服务器名'
|
0048457C 6834464800 push $00484634
00484581 33C9 xor ecx, ecx
00484583 33D2 xor edx, edx
00484585 8B831C030000 mov eax, [ebx+$031C]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0048458B E80C81FFFF call 0047C69C
* Possible String Reference to: '用户数'
|
00484590 6848464800 push $00484648
00484595 33C9 xor ecx, ecx
00484597 BA01000000 mov edx, $00000001
0048459C 8B831C030000 mov eax, [ebx+$031C]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004845A2 E8F580FFFF call 0047C69C
* Possible String Reference to: '状态'
|
004845A7 6858464800 push $00484658
004845AC 33C9 xor ecx, ecx
004845AE BA02000000 mov edx, $00000002
004845B3 8B831C030000 mov eax, [ebx+$031C]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004845B9 E8DE80FFFF call 0047C69C
* Possible String Reference to: '服务器名'
|
004845BE 6834464800 push $00484634
004845C3 33C9 xor ecx, ecx
004845C5 BA03000000 mov edx, $00000003
004845CA 8B831C030000 mov eax, [ebx+$031C]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -