?? viewsession.pas
字號:
unit ViewSession;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmViewSession=class(TForm)
ButtonRefGrid: TButton;
PanelStatus: TPanel;
GridSession: TStringGrid;
procedure FormCreate(Sender : TObject);
procedure ButtonRefGridClick(Sender : TObject);
procedure _PROC_0053EED1(Sender : TObject);
procedure _PROC_0053EEF0(Sender : TObject);
procedure _PROC_0053F20C(Sender : TObject);
procedure _PROC_0053F23C(Sender : TObject);
procedure _PROC_0053F245(Sender : TObject);
procedure _PROC_0053F2CE(Sender : TObject);
procedure _PROC_0053F342(Sender : TObject);
procedure _PROC_0053F608(Sender : TObject);
procedure _PROC_0053F714(Sender : TObject);
procedure _PROC_0053F91B(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmViewSession: TfrmViewSession;
{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmViewSession.FormCreate(Sender : TObject);
begin
(*
0053EDB4 55 push ebp
0053EDB5 8BEC mov ebp, esp
0053EDB7 83C4F8 add esp, -$08
0053EDBA 8955F8 mov [ebp-$08], edx
0053EDBD 8945FC mov [ebp-$04], eax
* Possible String Reference to: '序號'
|
0053EDC0 6868EE5300 push $0053EE68
0053EDC5 33C9 xor ecx, ecx
0053EDC7 33D2 xor edx, edx
0053EDC9 8B45FC mov eax, [ebp-$04]
0053EDCC 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EDD2 E89180FDFF call 00516E68
* Possible String Reference to: '登錄帳號'
|
0053EDD7 6878EE5300 push $0053EE78
0053EDDC 33C9 xor ecx, ecx
0053EDDE BA01000000 mov edx, $00000001
0053EDE3 8B45FC mov eax, [ebp-$04]
0053EDE6 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EDEC E87780FDFF call 00516E68
* Possible String Reference to: '登錄地址'
|
0053EDF1 688CEE5300 push $0053EE8C
0053EDF6 33C9 xor ecx, ecx
0053EDF8 BA02000000 mov edx, $00000002
0053EDFD 8B45FC mov eax, [ebp-$04]
0053EE00 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EE06 E85D80FDFF call 00516E68
* Possible String Reference to: '會話ID號'
|
0053EE0B 68A0EE5300 push $0053EEA0
0053EE10 33C9 xor ecx, ecx
0053EE12 BA03000000 mov edx, $00000003
0053EE17 8B45FC mov eax, [ebp-$04]
0053EE1A 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EE20 E84380FDFF call 00516E68
* Possible String Reference to: '充值'
|
0053EE25 68B4EE5300 push $0053EEB4
0053EE2A 33C9 xor ecx, ecx
0053EE2C BA04000000 mov edx, $00000004
0053EE31 8B45FC mov eax, [ebp-$04]
0053EE34 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EE3A E82980FDFF call 00516E68
* Possible String Reference to: '充值模式'
|
0053EE3F 68C4EE5300 push $0053EEC4
0053EE44 33C9 xor ecx, ecx
0053EE46 BA05000000 mov edx, $00000005
0053EE4B 8B45FC mov eax, [ebp-$04]
0053EE4E 8B8000030000 mov eax, [eax+$0300]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0053EE54 E80F80FDFF call 00516E68
0053EE59 59 pop ecx
0053EE5A 59 pop ecx
0053EE5B 5D pop ebp
0053EE5C C3 ret
*)
end;
procedure TfrmViewSession.ButtonRefGridClick(Sender : TObject);
begin
(*
0053F1F4 55 push ebp
0053F1F5 8BEC mov ebp, esp
0053F1F7 83C4F8 add esp, -$08
0053F1FA 8955F8 mov [ebp-$08], edx
0053F1FD 8945FC mov [ebp-$04], eax
0053F200 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmViewSession._PROC_0053EEF0()
|
0053F203 E8E8FCFFFF call 0053EEF0
0053F208 59 pop ecx
0053F209 59 pop ecx
0053F20A 5D pop ebp
0053F20B C3 ret
*)
end;
procedure TfrmViewSession._PROC_0053EED1(Sender : TObject);
begin
(*
0053EED1 8BEC mov ebp, esp
0053EED3 51 push ecx
0053EED4 8945FC mov [ebp-$04], eax
0053EED7 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmViewSession._PROC_0053EEF0()
|
0053EEDA E811000000 call 0053EEF0
0053EEDF 8B45FC mov eax, [ebp-$04]
0053EEE2 8B10 mov edx, [eax]
0053EEE4 FF92EC000000 call dword ptr [edx+$00EC]
0053EEEA 59 pop ecx
0053EEEB 5D pop ebp
0053EEEC C3 ret
*)
end;
procedure TfrmViewSession._PROC_0053EEF0(Sender : TObject);
begin
(*
0053EEF0 55 push ebp
0053EEF1 8BEC mov ebp, esp
0053EEF3 B905000000 mov ecx, $00000005
0053EEF8 6A00 push $00
0053EEFA 6A00 push $00
0053EEFC 49 dec ecx
0053EEFD 75F9 jnz 0053EEF8
0053EEFF 8945FC mov [ebp-$04], eax
0053EF02 33C0 xor eax, eax
0053EF04 55 push ebp
* Possible String Reference to: '槨W?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -