ifggzs.pas

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

* Reference to: system.TObject.Free(TObject);
|
0061A647   E8808CDEFF             call    004032CC

* Reference to field TFrmInfoGgZs.OFFS_0370
|
0061A64C   8B8370030000           mov     eax, [ebx+$0370]

* Reference to: system.TObject.Free(TObject);
|
0061A652   E8758CDEFF             call    004032CC

* Reference to field TFrmInfoGgZs.OFFS_0378
|
0061A657   8B8378030000           mov     eax, [ebx+$0378]

* Reference to: system.TObject.Free(TObject);
|
0061A65D   E86A8CDEFF             call    004032CC
0061A662   8B0424                 mov     eax, [esp]
0061A665   C60002                 mov     byte ptr [eax], $02
0061A668   5A                     pop     edx
0061A669   5E                     pop     esi
0061A66A   5B                     pop     ebx
0061A66B   C3                     ret

*)
end;

procedure TFrmInfoGgZs.mSellBuyDblClick(Sender : TObject);
begin
(*

* Reference to : TFrmInfoGgZs._PROC_0061AE44()
|
0061AE3C   E803000000             call    0061AE44
0061AE41   C3                     ret

*)
end;

procedure TFrmInfoGgZs.PaintBox1Paint(Sender : TObject);
begin
(*

* Reference to field TFrmInfoGgZs.OFFS_031C : Byte
|
0061BA40   80B81C03000000         cmp     byte ptr [eax+$031C], $00
0061BA47   7430                   jz      0061BA79

* Reference to field TFrmInfoGgZs.OFFS_031D : Byte
|
0061BA49   80B81D03000000         cmp     byte ptr [eax+$031D], $00
0061BA50   750D                   jnz     0061BA5F

* Reference to field TFrmInfoGgZs.OFFS_0308
|
0061BA52   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Unit_0061EA74.Proc_0061EDA0
|
0061BA58   E843330000             call    0061EDA0
0061BA5D   EB25                   jmp     0061BA84

* Reference to control StopButton : N.A.
|
0061BA5F   8B90E0020000           mov     edx, [eax+$02E0]

* Reference to field N.A..OFFS_0120
|
0061BA65   8B9220010000           mov     edx, [edx+$0120]
0061BA6B   33C9                   xor     ecx, ecx
0061BA6D   8B8020030000           mov     eax, [eax+$0320]

* Reference to: Unit_0061C03C.Proc_0061D934
|
0061BA73   E8BC1E0000             call    0061D934
0061BA78   C3                     ret

0061BA79   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Unit_0061EA74.Proc_0061EDA0
|
0061BA7F   E81C330000             call    0061EDA0
0061BA84   C3                     ret

*)
end;

procedure TFrmInfoGgZs.PaintBox1MouseDown(Sender : TObject);
begin
(*
0061BAF4   55                     push    ebp
0061BAF5   8BEC                   mov     ebp, esp
0061BAF7   8B4D08                 mov     ecx, [ebp+$08]
0061BAFA   8B550C                 mov     edx, [ebp+$0C]

* Reference to field TFrmInfoGgZs.OFFS_031C : Byte
|
0061BAFD   80B81C03000000         cmp     byte ptr [eax+$031C], $00
0061BB04   7423                   jz      0061BB29

* Reference to field TFrmInfoGgZs.OFFS_031D : Byte
|
0061BB06   80B81D03000000         cmp     byte ptr [eax+$031D], $00
0061BB0D   740D                   jz      0061BB1C

* Reference to field TFrmInfoGgZs.OFFS_0320
|
0061BB0F   8B8020030000           mov     eax, [eax+$0320]

* Reference to: Unit_0061C03C.Proc_0061E948
|
0061BB15   E82E2E0000             call    0061E948
0061BB1A   EB18                   jmp     0061BB34
0061BB1C   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Unit_0061EA74.Proc_0061F91C
|
0061BB22   E8F53D0000             call    0061F91C
0061BB27   EB0B                   jmp     0061BB34
0061BB29   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Unit_0061EA74.Proc_0061F91C
|
0061BB2F   E8E83D0000             call    0061F91C
0061BB34   5D                     pop     ebp
0061BB35   C20C00                 ret     $000C

*)
end;

procedure TFrmInfoGgZs.TabSet1Change(Sender : TObject);
begin
(*
0061BB44   55                     push    ebp
0061BB45   8BEC                   mov     ebp, esp
0061BB47   83C4F4                 add     esp, -$0C
0061BB4A   53                     push    ebx
0061BB4B   56                     push    esi
0061BB4C   57                     push    edi
0061BB4D   33DB                   xor     ebx, ebx
0061BB4F   895DF4                 mov     [ebp-$0C], ebx
0061BB52   894DFC                 mov     [ebp-$04], ecx
0061BB55   8BF0                   mov     esi, eax
0061BB57   33C0                   xor     eax, eax
0061BB59   55                     push    ebp
0061BB5A   6813BC6100             push    $0061BC13

***** TRY
|
0061BB5F   64FF30                 push    dword ptr fs:[eax]
0061BB62   648920                 mov     fs:[eax], esp
0061BB65   C645FB00               mov     byte ptr [ebp-$05], $00
0061BB69   BB9CA37700             mov     ebx, $0077A39C
0061BB6E   8D4DF4                 lea     ecx, [ebp-$0C]

* Reference to control TFrmInfoGgZs.TabSet1 : TTabSet
|
0061BB71   8B86E4020000           mov     eax, [esi+$02E4]

* Reference to field TTabSet.Tabs : TStrings
|
0061BB77   8B8000020000           mov     eax, [eax+$0200]
0061BB7D   8B55FC                 mov     edx, [ebp-$04]
0061BB80   8B38                   mov     edi, [eax]

* Reference to method TStrings.Strings  [ Index()
|
0061BB82   FF570C                 call    dword ptr [edi+$0C]
0061BB85   8B45F4                 mov     eax, [ebp-$0C]
0061BB88   8B13                   mov     edx, [ebx]

* Reference to: system.@LStrCmp;
|
0061BB8A   E81189DEFF             call    004044A0
0061BB8F   740C                   jz      0061BB9D
0061BB91   FE45FB                 inc     byte ptr [ebp-$05]
0061BB94   83C304                 add     ebx, +$04
0061BB97   807DFB06               cmp     byte ptr [ebp-$05], $06
0061BB9B   75D1                   jnz     0061BB6E
0061BB9D   8A45FB                 mov     al, byte ptr [ebp-$05]

* Reference to field TFrmInfoGgZs.OFFS_030C : Byte
|
0061BBA0   88860C030000           mov     [esi+$030C], al

* Reference to field TFrmInfoGgZs.OFFS_031C : Byte
|
0061BBA6   80BE1C03000000         cmp     byte ptr [esi+$031C], $00
0061BBAD   7412                   jz      0061BBC1

* Reference to field TFrmInfoGgZs.OFFS_030C : Byte
|
0061BBAF   80BE0C03000004         cmp     byte ptr [esi+$030C], $04
0061BBB6   7509                   jnz     0061BBC1
0061BBB8   8BC6                   mov     eax, esi

* Reference to : TFrmInfoGgZs._PROC_0061AE44()
|
0061BBBA   E885F2FFFF             call    0061AE44
0061BBBF   EB3C                   jmp     0061BBFD

* Reference to field TFrmInfoGgZs.OFFS_031D : Byte
|
0061BBC1   C6861D03000000         mov     byte ptr [esi+$031D], $00

* Reference to field TFrmInfoGgZs.OFFS_031C : Byte
|
0061BBC8   80BE1C03000000         cmp     byte ptr [esi+$031C], $00
0061BBCF   7518                   jnz     0061BBE9

* Reference to field TFrmInfoGgZs.OFFS_030C : Byte
|
0061BBD1   80BE0C03000003         cmp     byte ptr [esi+$030C], $03
0061BBD8   750F                   jnz     0061BBE9
0061BBDA   B201                   mov     dl, $01

* Reference to field TFrmInfoGgZs.OFFS_0308
|
0061BBDC   8B8608030000           mov     eax, [esi+$0308]

* Reference to: Unit_0061EA74.Proc_0061ECD0
|
0061BBE2   E8E9300000             call    0061ECD0
0061BBE7   EB0D                   jmp     0061BBF6
0061BBE9   33D2                   xor     edx, edx

* Reference to field TFrmInfoGgZs.OFFS_0308
|
0061BBEB   8B8608030000           mov     eax, [esi+$0308]

* Reference to: Unit_0061EA74.Proc_0061ECD0
|
0061BBF1   E8DA300000             call    0061ECD0
0061BBF6   8BC6                   mov     eax, esi

* Reference to : TFrmInfoGgZs.Proc_0061B37C()
|
0061BBF8   E87FF7FFFF             call    0061B37C
0061BBFD   33C0                   xor     eax, eax
0061BBFF   5A                     pop     edx
0061BC00   59                     pop     ecx
0061BC01   59                     pop     ecx
0061BC02   648910                 mov     fs:[eax], edx

****** FINALLY
|
0061BC05   681ABC6100             push    $0061BC1A
0061BC0A   8D45F4                 lea     eax, [ebp-$0C]

* Reference to: system.@LStrClr(String;String);
|
0061BC0D   E8E284DEFF             call    004040F4
0061BC12   C3                     ret


* Reference to: system.@HandleFinally;
|
0061BC13   E9147EDEFF             jmp     00403A2C
0061BC18   EBF0                   jmp     0061BC0A

****** END
|
0061BC1A   5F                     pop     edi
0061BC1B   5E                     pop     esi
0061BC1C   5B                     pop     ebx
0061BC1D   8BE5                   mov     esp, ebp
0061BC1F   5D                     pop     ebp
0061BC20   C20400                 ret     $0004

*)
end;

procedure TFrmInfoGgZs.PaintBox1MouseMove(Sender : TObject);
begin
(*
0061BC9C   55                     push    ebp
0061BC9D   8BEC                   mov     ebp, esp

* Reference to field TFrmInfoGgZs.OFFS_031C : Byte
|
0061BC9F   80B81C03000000         cmp     byte ptr [eax+$031C], $00
0061BCA6   741C                   jz      0061BCC4

* Reference to field TFrmInfoGgZs.OFFS_031D : Byte
|
0061BCA8   80B81D03000000         cmp     byte ptr [eax+$031D], $00
0061BCAF   7524                   jnz     0061BCD5
0061BCB1   8B4D08                 mov     ecx, [ebp+$08]
0061BCB4   8B550C                 mov     edx, [ebp+$0C]

* Reference to field TFrmInfoGgZs.OFFS_0308
|
0061BCB7   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Unit_0061EA74.Proc_0061FADC
|
0061BCBD   E81A3E0000             call    0061FADC
0061BCC2   EB11                   jmp     0061BCD5
0061BCC4   8B4D08                 mov     ecx, [ebp+$08]
0061BCC7   8B550C                 mov     edx, [ebp+$0C]
0061BCCA   8B8008030000           mov     eax, [eax+$0308]

* Reference to: Unit_0061EA74.Proc_0061FADC
|
0061BCD0   E8073E0000             call    0061FADC
0061BCD5   5D                     pop     ebp
0061BCD6   C20800                 ret     $0008

*)
end;

procedure TFrmInfoGgZs._PROC_0061A46F(Sender : TObject);
begin
(*
0061A46F   F0                     lock
0061A470   0200                   add     al, byte ptr [eax]
0061A472   00E8                   add     al, ch
0061A474   C4EB                   les     ebp, bx
0061A476   E1FF                   loope   -$01
0061A478   B205                   mov     dl, $05

* Reference to control Panel2 : N.A.
|
0061A47A   8B83E8020000           mov     eax, [ebx+$02E8]

* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
0061A480   E8B7EBE1FF             call    0043903C
0061A485   B205                   mov     dl, $05

* Reference to control FoundFiles : N.A.
|
0061A487   8B83EC020000           mov     eax, [ebx+$02EC]

* Reference to: controls.TControl.SetAlign(TControl;TAlign);
|
0061A48D   E8AAEBE1FF             call    0043903C
0061A492   5B                     pop     ebx
0061A493   C3                     ret

*)
end;

procedure TFrmInfoGgZs._PROC_0061A66C(Sender : TObject);
begin
(*
0061A66C   53                     push    ebx
0061A66D   56                     push    esi
0061A66E   8BF2                   mov     esi, edx
0061A670   8BD8                   mov     ebx, eax

* Reference to field TFrmInfoGgZs.OFFS_02F8
|
0061A672   89B3F8020000           mov     [ebx+$02F8], esi

* Reference to field TFrmInfoGgZs.OFFS_037C : Byte
|
0061A678   C6837C03000001         mov     byte ptr [ebx+$037C], $01
0061A67F   8BCB                   mov     ecx, ebx
0061A681   8BD6                   mov     edx, esi

* Reference to field TFrmInfoGgZs.OFFS_0320
|
0061A683   8B8320030000           mov     eax, [ebx+$0320]

* Reference to: Unit_0061C03C.Proc_0061C244
|
0061A689   E8B61B0000             call    0061C244
0061A68E   80BE2103000000         cmp     byte ptr [esi+$0321], $00
0061A695   7518                   jnz     0061A6AF

* Reference to field TFrmInfoGgZs.OFFS_031C : Byte
|
0061A697   C6831C03000001         mov     byte ptr [ebx+$031C], $01

* Reference to field TFrmInfoGgZs.OFFS_0368
|
0061A69E   8B9368030000           mov     edx, [ebx+$0368]

* Reference to field TFrmInfoGgZs.OFFS_0308