⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 labeltab.pas

📁 一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.
💻 PAS
📖 第 1 页 / 共 2 页
字号:
|
00749924   E8FF54CDFF             call    0041EE28
00749929   682000CC00             push    $00CC0020

* Reference to pointer to GlobalVar_007991D8
|
0074992E   A1A0D37700             mov     eax, dword ptr [$0077D3A0]
00749933   8B00                   mov     eax, [eax]

* Reference to field GlobalVar_007991D8.OFFS_0058
|
00749935   8B4058                 mov     eax, [eax+$58]
00749938   50                     push    eax
00749939   6A00                   push    $00

* Reference to field TfrmLabelTab.OFFS_02D8
|
0074993B   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
00749941   E806A9CDFF             call    0042424C

* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00749946   E8FD5ACDFF             call    0041F448
0074994B   50                     push    eax

* Reference to field TfrmLabelTab.OFFS_02DC
|
0074994C   8B83DC020000           mov     eax, [ebx+$02DC]
00749952   8B10                   mov     edx, [eax]
00749954   FF5220                 call    dword ptr [edx+$20]
00749957   50                     push    eax

* Reference to field TfrmLabelTab.OFFS_02DC
|
00749958   8B83DC020000           mov     eax, [ebx+$02DC]
0074995E   8B10                   mov     edx, [eax]
00749960   FF522C                 call    dword ptr [edx+$2C]
00749963   50                     push    eax

* Reference to pointer to GlobalVar_007991D8
|
00749964   A1A0D37700             mov     eax, dword ptr [$0077D3A0]
00749969   8B00                   mov     eax, [eax]

* Reference to field GlobalVar_007991D8.OFFS_0058
|
0074996B   8B4058                 mov     eax, [eax+$58]
0074996E   50                     push    eax
0074996F   6A00                   push    $00

* Reference to field TfrmLabelTab.OFFS_02DC
|
00749971   8B83DC020000           mov     eax, [ebx+$02DC]

* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
00749977   E8D0A8CDFF             call    0042424C

* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
0074997C   E8C75ACDFF             call    0041F448
00749981   50                     push    eax

* Reference to: gdi32.BitBlt()
|
00749982   E839EACBFF             call    004083C0
00749987   33C0                   xor     eax, eax

* Reference to field TfrmLabelTab.OFFS_02D4
|
00749989   8983D4020000           mov     [ebx+$02D4], eax
0074998F   83C414                 add     esp, +$14
00749992   5D                     pop     ebp
00749993   5F                     pop     edi
00749994   5E                     pop     esi
00749995   5B                     pop     ebx
00749996   C3                     ret

*)
end;

procedure TfrmLabelTab.FormShow(Sender : TObject);
begin
(*
007499A8   C3                     ret

*)
end;

procedure TfrmLabelTab.FormDestroy(Sender : TObject);
begin
(*
007499AC   53                     push    ebx
007499AD   56                     push    esi
007499AE   8BF0                   mov     esi, eax
007499B0   33DB                   xor     ebx, ebx
007499B2   8B849EE4020000         mov     eax, [esi+ebx*4+$02E4]
007499B9   85C0                   test    eax, eax
007499BB   7405                   jz      007499C2

* Reference to: system.TObject.Free(TObject);
|
007499BD   E80A99CBFF             call    004032CC
007499C2   43                     inc     ebx
007499C3   83FB03                 cmp     ebx, +$03
007499C6   75EA                   jnz     007499B2

* Reference to field TfrmLabelTab.OFFS_02D4
|
007499C8   8B86D4020000           mov     eax, [esi+$02D4]
007499CE   50                     push    eax

* Reference to: gdi32.DeleteObject()
|
007499CF   E8D4EACBFF             call    004084A8

* Reference to field TfrmLabelTab.OFFS_02D8
|
007499D4   8B86D8020000           mov     eax, [esi+$02D8]

* Reference to: system.TObject.Free(TObject);
|
007499DA   E8ED98CBFF             call    004032CC
007499DF   5E                     pop     esi
007499E0   5B                     pop     ebx
007499E1   C3                     ret

*)
end;

procedure TfrmLabelTab.FormPaint(Sender : TObject);
begin
(*
007499E4   53                     push    ebx
007499E5   8BD8                   mov     ebx, eax
007499E7   682000CC00             push    $00CC0020
007499EC   6A00                   push    $00
007499EE   6A00                   push    $00

* Reference to field TfrmLabelTab.OFFS_02D8
|
007499F0   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to: graphics.TBitmap.GetCanvas(TBitmap):TCanvas;
|
007499F6   E851A8CDFF             call    0042424C

* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
007499FB   E8485ACDFF             call    0041F448
00749A00   50                     push    eax

* Reference to pointer to GlobalVar_007991D8
|
00749A01   A1A0D37700             mov     eax, dword ptr [$0077D3A0]
00749A06   8B00                   mov     eax, [eax]

* Reference to field GlobalVar_007991D8.OFFS_0050
|
00749A08   8B4050                 mov     eax, [eax+$50]
00749A0B   50                     push    eax
00749A0C   6A12                   push    $12
00749A0E   6A00                   push    $00
00749A10   6A00                   push    $00
00749A12   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00749A14   E807A1D0FF             call    00453B20

* Reference to: graphics.TCanvas.GetHandle(TCanvas):HDC;
|
00749A19   E82A5ACDFF             call    0041F448
00749A1E   50                     push    eax

* Reference to: gdi32.BitBlt()
|
00749A1F   E89CE9CBFF             call    004083C0
00749A24   5B                     pop     ebx
00749A25   C3                     ret

*)
end;

procedure TfrmLabelTab.FormMouseMove(Sender : TObject);
begin
(*
00749A28   55                     push    ebp
00749A29   8BEC                   mov     ebp, esp
00749A2B   33C0                   xor     eax, eax
00749A2D   55                     push    ebp
00749A2E   68479A7400             push    $00749A47

***** TRY
|
00749A33   64FF30                 push    dword ptr fs:[eax]
00749A36   648920                 mov     fs:[eax], esp
00749A39   33C0                   xor     eax, eax
00749A3B   5A                     pop     edx
00749A3C   59                     pop     ecx
00749A3D   59                     pop     ecx
00749A3E   648910                 mov     fs:[eax], edx

****** FINALLY
|
00749A41   684E9A7400             push    $00749A4E
00749A46   C3                     ret


* Reference to: system.@HandleFinally;
|
00749A47   E9E09FCBFF             jmp     00403A2C
00749A4C   EBF8                   jmp     00749A46

****** END
|
00749A4E   5D                     pop     ebp
00749A4F   C20800                 ret     $0008

*)
end;

procedure TfrmLabelTab.FormMouseDown(Sender : TObject);
begin
(*
00749A54   55                     push    ebp
00749A55   8BEC                   mov     ebp, esp
00749A57   6A00                   push    $00
00749A59   53                     push    ebx
00749A5A   8B5508                 mov     edx, [ebp+$08]
00749A5D   33C0                   xor     eax, eax
00749A5F   55                     push    ebp
00749A60   68B99A7400             push    $00749AB9

***** TRY
|
00749A65   64FF30                 push    dword ptr fs:[eax]
00749A68   648920                 mov     fs:[eax], esp
00749A6B   33DB                   xor     ebx, ebx
00749A6D   33C0                   xor     eax, eax

* Reference to pointer to GlobalVar_007991D8
|
00749A6F   8B0DA0D37700           mov     ecx, [$0077D3A0]
00749A75   8B09                   mov     ecx, [ecx]
00749A77   3B548158               cmp     edx, [ecx+eax*4+$58]
00749A7B   7F04                   jnle    00749A81
00749A7D   8BD8                   mov     ebx, eax
00749A7F   EB06                   jmp     00749A87
00749A81   40                     inc     eax
00749A82   83F803                 cmp     eax, +$03
00749A85   75E8                   jnz     00749A6F
00749A87   8D45FC                 lea     eax, [ebp-$04]

* Reference to pointer to GlobalVar_007991D8
|
00749A8A   8B15A0D37700           mov     edx, [$0077D3A0]
00749A90   8B12                   mov     edx, [edx]
00749A92   8B54DA68               mov     edx, [edx+ebx*8+$68]

* Reference to: system.@LStrLAsg;
|
00749A96   E8F1A6CBFF             call    0040418C
00749A9B   8B45FC                 mov     eax, [ebp-$04]

* Reference to: Unit_00651A88.Proc_006543DC
|
00749A9E   E839A9F0FF             call    006543DC
00749AA3   33C0                   xor     eax, eax
00749AA5   5A                     pop     edx
00749AA6   59                     pop     ecx
00749AA7   59                     pop     ecx
00749AA8   648910                 mov     fs:[eax], edx

****** FINALLY
|
00749AAB   68C09A7400             push    $00749AC0
00749AB0   8D45FC                 lea     eax, [ebp-$04]

* Reference to: system.@LStrClr(String;String);
|
00749AB3   E83CA6CBFF             call    004040F4
00749AB8   C3                     ret


* Reference to: system.@HandleFinally;
|
00749AB9   E96E9FCBFF             jmp     00403A2C
00749ABE   EBF0                   jmp     00749AB0

****** END
|
00749AC0   5B                     pop     ebx
00749AC1   59                     pop     ecx
00749AC2   5D                     pop     ebp
00749AC3   C20C00                 ret     $000C

*)
end;

procedure TfrmLabelTab.LabelClick(Sender : TObject);
begin
(*
00749AC8   55                     push    ebp
00749AC9   8BEC                   mov     ebp, esp
00749ACB   6A00                   push    $00
00749ACD   53                     push    ebx
00749ACE   8BDA                   mov     ebx, edx
00749AD0   33C0                   xor     eax, eax
00749AD2   55                     push    ebp
00749AD3   68209B7400             push    $00749B20

***** TRY
|
00749AD8   64FF30                 push    dword ptr fs:[eax]
00749ADB   648920                 mov     fs:[eax], esp
00749ADE   8BC3                   mov     eax, ebx

* Reference to class TLabel
|
00749AE0   8B1560984200           mov     edx, [$00429860]

* Reference to: system.@AsClass;
|
00749AE6   E87199CBFF             call    0040345C
00749AEB   8B400C                 mov     eax, [eax+$0C]

* Reference to pointer to GlobalVar_007991D8
|
00749AEE   8B15A0D37700           mov     edx, [$0077D3A0]
00749AF4   8B12                   mov     edx, [edx]
00749AF6   8B54C268               mov     edx, [edx+eax*8+$68]
00749AFA   8D45FC                 lea     eax, [ebp-$04]

* Reference to: system.@LStrLAsg;
|
00749AFD   E88AA6CBFF             call    0040418C
00749B02   8B45FC                 mov     eax, [ebp-$04]

* Reference to: Unit_00651A88.Proc_006543DC
|
00749B05   E8D2A8F0FF             call    006543DC
00749B0A   33C0                   xor     eax, eax
00749B0C   5A                     pop     edx
00749B0D   59                     pop     ecx
00749B0E   59                     pop     ecx
00749B0F   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[Y]脨U嬱3繳hQ泃'
|
00749B12   68279B7400             push    $00749B27
00749B17   8D45FC                 lea     eax, [ebp-$04]

* Reference to: system.@LStrClr(String;String);
|
00749B1A   E8D5A5CBFF             call    004040F4
00749B1F   C3                     ret


* Reference to: system.@HandleFinally;
|
00749B20   E9079FCBFF             jmp     00403A2C
00749B25   EBF0                   jmp     00749B17

****** END
|
00749B27   5B                     pop     ebx
00749B28   59                     pop     ecx
00749B29   5D                     pop     ebp
00749B2A   C3                     ret

*)
end;

procedure TfrmLabelTab._PROC_00749B2C(Sender : TObject);
begin
(*
00749B2C   55                     push    ebp
00749B2D   8BEC                   mov     ebp, esp
00749B2F   33C0                   xor     eax, eax
00749B31   55                     push    ebp

* Possible String Reference to: '橹炈

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -