gxt.pas

一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.

0062E0B7   50                     push    eax

* Reference to field TFrmGxt.OFFS_0514
|
0062E0B8   8D8614050000           lea     eax, [esi+$0514]
0062E0BE   50                     push    eax

* Reference to field TFrmGxt.OFFS_04FC : String
|
0062E0BF   8B86FC040000           mov     eax, [esi+$04FC]
0062E0C5   50                     push    eax

* Reference to field TFrmGxt.OFFS_04F3 : Byte
|
0062E0C6   8A8EF3040000           mov     cl, byte ptr [esi+$04F3]

* Reference to field TFrmGxt.OFFS_0530 : Byte
|
0062E0CC   8A9630050000           mov     dl, byte ptr [esi+$0530]

* Reference to field TFrmGxt.OFFS_04E8
|
0062E0D2   8B86E8040000           mov     eax, [esi+$04E8]

* Reference to: Unit_007524C4.Proc_00757D80
|
0062E0D8   E8A39C1200             call    00757D80
0062E0DD   E9B4000000             jmp     0062E196

* Reference to field TFrmGxt.OFFS_0530 : Byte
|
0062E0E2   C686300500000B         mov     byte ptr [esi+$0530], $0B

* Reference to field TFrmGxt.OFFS_04F2 : Byte
|
0062E0E9   C686F20400000B         mov     byte ptr [esi+$04F2], $0B

* Reference to field TFrmGxt.OFFS_04E4
|
0062E0F0   8B86E4040000           mov     eax, [esi+$04E4]
0062E0F6   50                     push    eax

* Reference to field TFrmGxt.OFFS_0524
|
0062E0F7   8B8624050000           mov     eax, [esi+$0524]
0062E0FD   50                     push    eax

* Reference to field TFrmGxt.OFFS_0528
|
0062E0FE   8B8628050000           mov     eax, [esi+$0528]
0062E104   50                     push    eax

* Reference to field TFrmGxt.OFFS_04E0 : TList
|
0062E105   8B86E0040000           mov     eax, [esi+$04E0]

* Reference to field TList.Count : Integer
|
0062E10B   8B4008                 mov     eax, [eax+$08]
0062E10E   50                     push    eax

* Reference to field TFrmGxt.OFFS_0504
|
0062E10F   8D8604050000           lea     eax, [esi+$0504]
0062E115   50                     push    eax

* Reference to field TFrmGxt.OFFS_0514
|
0062E116   8D8614050000           lea     eax, [esi+$0514]
0062E11C   50                     push    eax

* Reference to field TFrmGxt.OFFS_04FC : String
|
0062E11D   8B86FC040000           mov     eax, [esi+$04FC]
0062E123   50                     push    eax

* Reference to field TFrmGxt.OFFS_04F3 : Byte
|
0062E124   8A8EF3040000           mov     cl, byte ptr [esi+$04F3]

* Reference to field TFrmGxt.OFFS_0530 : Byte
|
0062E12A   8A9630050000           mov     dl, byte ptr [esi+$0530]

* Reference to field TFrmGxt.OFFS_04E8
|
0062E130   8B86E8040000           mov     eax, [esi+$04E8]

* Reference to: Unit_007524C4.Proc_00757D80
|
0062E136   E8459C1200             call    00757D80
0062E13B   EB59                   jmp     0062E196

* Reference to field TFrmGxt.OFFS_0530 : Byte
|
0062E13D   C686300500000A         mov     byte ptr [esi+$0530], $0A

* Reference to field TFrmGxt.OFFS_04F2 : Byte
|
0062E144   C686F20400000A         mov     byte ptr [esi+$04F2], $0A

* Reference to field TFrmGxt.OFFS_04E4
|
0062E14B   8B86E4040000           mov     eax, [esi+$04E4]
0062E151   50                     push    eax

* Reference to field TFrmGxt.OFFS_0524
|
0062E152   8B8624050000           mov     eax, [esi+$0524]
0062E158   50                     push    eax

* Reference to field TFrmGxt.OFFS_0528
|
0062E159   8B8628050000           mov     eax, [esi+$0528]
0062E15F   50                     push    eax

* Reference to field TFrmGxt.OFFS_04E0 : TList
|
0062E160   8B86E0040000           mov     eax, [esi+$04E0]

* Reference to field TList.Count : Integer
|
0062E166   8B4008                 mov     eax, [eax+$08]
0062E169   50                     push    eax

* Reference to field TFrmGxt.OFFS_0504
|
0062E16A   8D8604050000           lea     eax, [esi+$0504]
0062E170   50                     push    eax

* Reference to field TFrmGxt.OFFS_0514
|
0062E171   8D8614050000           lea     eax, [esi+$0514]
0062E177   50                     push    eax

* Reference to field TFrmGxt.OFFS_04FC : String
|
0062E178   8B86FC040000           mov     eax, [esi+$04FC]
0062E17E   50                     push    eax

* Reference to field TFrmGxt.OFFS_04F3 : Byte
|
0062E17F   8A8EF3040000           mov     cl, byte ptr [esi+$04F3]

* Reference to field TFrmGxt.OFFS_0530 : Byte
|
0062E185   8A9630050000           mov     dl, byte ptr [esi+$0530]

* Reference to field TFrmGxt.OFFS_04E8
|
0062E18B   8B86E8040000           mov     eax, [esi+$04E8]

* Reference to: Unit_007524C4.Proc_00757D80
|
0062E191   E8EA9B1200             call    00757D80
0062E196   5E                     pop     esi
0062E197   5B                     pop     ebx
0062E198   5D                     pop     ebp
0062E199   C20400                 ret     $0004

*)
end;

procedure TFrmGxt.FormCreate(Sender : TObject);
begin
(*
0062C3F8   53                     push    ebx
0062C3F9   8BD8                   mov     ebx, eax
0062C3FB   B20C                   mov     dl, $0C
0062C3FD   8BC3                   mov     eax, ebx

* Reference to: HJForm.Proc_00750F8C
|
0062C3FF   E8884B1200             call    00750F8C
0062C404   B202                   mov     dl, $02
0062C406   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.SetWindowState(TCustomForm;TWindowState);
|
0062C408   E8C37BE2FF             call    00453FD0
0062C40D   33C0                   xor     eax, eax

* Reference to field TFrmGxt.OFFS_0500
|
0062C40F   898300050000           mov     [ebx+$0500], eax
0062C415   A1BCCD7700             mov     eax, dword ptr [$0077CDBC]
0062C41A   8A00                   mov     al, byte ptr [eax]

* Reference to field TFrmGxt.OFFS_0530 : Byte
|
0062C41C   888330050000           mov     [ebx+$0530], al

* Reference to field TFrmGxt.OFFS_04F2 : Byte
|
0062C422   C683F20400000B         mov     byte ptr [ebx+$04F2], $0B

* Reference to field TFrmGxt.OFFS_04F0 : Byte
|
0062C429   C683F00400000F         mov     byte ptr [ebx+$04F0], $0F

* Reference to field TFrmGxt.OFFS_04F1 : Byte
|
0062C430   C683F10400000E         mov     byte ptr [ebx+$04F1], $0E

* Reference to field TFrmGxt.OFFS_04F4 : Byte
|
0062C437   C683F404000001         mov     byte ptr [ebx+$04F4], $01
0062C43E   A170D17700             mov     eax, dword ptr [$0077D170]
0062C443   8A00                   mov     al, byte ptr [eax]

* Reference to field TFrmGxt.OFFS_04F3 : Byte
|
0062C445   8883F3040000           mov     [ebx+$04F3], al
0062C44B   B201                   mov     dl, $01

* Reference to class TList
|
0062C44D   A150234100             mov     eax, dword ptr [$00412350]

* Reference to: system.TObject.Create(TObject;Boolean);
|
0062C452   E8456EDDFF             call    0040329C

* Reference to field TFrmGxt.OFFS_04F8 : TList
|
0062C457   8983F8040000           mov     [ebx+$04F8], eax
0062C45D   B201                   mov     dl, $01

* Reference to class TList
|
0062C45F   A150234100             mov     eax, dword ptr [$00412350]

* Reference to: system.TObject.Create(TObject;Boolean);
|
0062C464   E8336EDDFF             call    0040329C

* Reference to field TFrmGxt.OFFS_04E0 : TList
|
0062C469   8983E0040000           mov     [ebx+$04E0], eax
0062C46F   B201                   mov     dl, $01

* Reference to class TObjectList
|
0062C471   A19C634200             mov     eax, dword ptr [$0042639C]

* Reference to: Unit_0042639C.Proc_004264CC
|
0062C476   E851A0DFFF             call    004264CC

* Reference to field TFrmGxt.OFFS_04EC
|
0062C47B   8983EC040000           mov     [ebx+$04EC], eax

* Reference to field TFrmGxt.OFFS_04EC
|
0062C481   8D93EC040000           lea     edx, [ebx+$04EC]
0062C487   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt._PROC_0062E434()
|
0062C489   E8A61F0000             call    0062E434
0062C48E   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt._PROC_0062C530()
|
0062C490   E89B000000             call    0062C530
0062C495   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt.Proc_0062C620()
|
0062C497   E884010000             call    0062C620

* Reference to field TFrmGxt.OFFS_04E0 : TList
|
0062C49C   8B83E0040000           mov     eax, [ebx+$04E0]

* Reference to : TFrmGxt._PROC_0062EA28()
|
0062C4A2   E881250000             call    0062EA28

* Reference to field TFrmGxt.OFFS_04E4
|
0062C4A7   8D8BE4040000           lea     ecx, [ebx+$04E4]

* Reference to field TFrmGxt.OFFS_04E0 : TList
|
0062C4AD   8B93E0040000           mov     edx, [ebx+$04E0]
0062C4B3   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt._PROC_0062E6FC()
|
0062C4B5   E842220000             call    0062E6FC
0062C4BA   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt.Proc_0062DC38()
|
0062C4BC   E877170000             call    0062DC38
0062C4C1   BA01000000             mov     edx, $00000001
0062C4C6   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt._PROC_0062CB84()
|
0062C4C8   E8B7060000             call    0062CB84

* Reference to field TFrmGxt.OFFS_04F8 : TList
|
0062C4CD   8B93F8040000           mov     edx, [ebx+$04F8]
0062C4D3   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt._PROC_0062EB54()
|
0062C4D5   E87A260000             call    0062EB54
0062C4DA   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt._PROC_0062CBCC()
|
0062C4DC   E8EB060000             call    0062CBCC
0062C4E1   5B                     pop     ebx
0062C4E2   C3                     ret

*)
end;

procedure TFrmGxt.FormClose(Sender : TObject);
begin
(*
0062C4E4   53                     push    ebx
0062C4E5   56                     push    esi
0062C4E6   8BF1                   mov     esi, ecx
0062C4E8   8BD8                   mov     ebx, eax

* Reference to field TFrmGxt.OFFS_04E0 : TList
|
0062C4EA   8B83E0040000           mov     eax, [ebx+$04E0]

* Reference to: system.TObject.Free(TObject);
|
0062C4F0   E8D76DDDFF             call    004032CC
0062C4F5   8BC3                   mov     eax, ebx

* Reference to : TFrmGxt._PROC_0062C800()
|
0062C4F7   E804030000             call    0062C800

* Reference to field TFrmGxt.OFFS_04F8 : TList
|
0062C4FC   8B83F8040000           mov     eax, [ebx+$04F8]

* Reference to: system.TObject.Free(TObject);
|
0062C502   E8C56DDDFF             call    004032CC

* Reference to field TFrmGxt.OFFS_04E8
|
0062C507   8B83E8040000           mov     eax, [ebx+$04E8]

* Reference to: system.TObject.Free(TObject);
|
0062C50D   E8BA6DDDFF             call    004032CC
0062C512   C60602                 mov     byte ptr [esi], $02

* Reference to pointer to GlobalVar_0078CDE4
|
0062C515   A1D8D37700             mov     eax, dword ptr [$0077D3D8]
0062C51A   8B00                   mov     eax, [eax]

* Reference to: system.TObject.Free(TObject);
|
0062C51C   E8AB6DDDFF             call    004032CC

* Reference to pointer to GlobalVar_0078CDE4
|
0062C521   A1D8D37700             mov     eax, dword ptr [$0077D3D8]
0062C526   33D2                   xor     edx, edx
0062C528   8910                   mov     [eax], edx
0062C52A   5E                     pop     esi
0062C52B   5B                     pop     ebx
0062C52C   C3                     ret

*)
end;

procedure TFrmGxt.mRTBkxsXY(Sender : TObject);
begin
(*
0062D0C8   55                     push    ebp
0062D0C9   8BEC                   mov     ebp, esp
0062D0CB   83C4F0                 add     esp, -$10
0062D0CE   53                     push    ebx
0062D0CF   56                     push    esi
0062D0D0   57                     push    edi
0062D0D1   33C9                   xor     ecx, ecx
0062D0D3   894DF0                 mov     [ebp-$10], ecx
0062D0D6   8BD8                   mov     ebx, eax
0062D0D8   33C0                   xor     eax, eax
0062D0DA   55                     push    ebp

* Possible String Reference to: '閟h