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

📄 wtsetup.pas

📁 一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.
💻 PAS
📖 第 1 页 / 共 2 页
字号:
|
006A62C3   BA6C656A00             mov     edx, $006A656C
006A62C8   8B38                   mov     edi, [eax]
006A62CA   FF17                   call    dword ptr [edi]
006A62CC   8B55D0                 mov     edx, [ebp-$30]
006A62CF   8D045B                 lea     eax, [ebx+ebx*2]

* Reference to field TfrmWTSetup.OFFS_02F8
|
006A62D2   8B8EF8020000           mov     ecx, [esi+$02F8]
006A62D8   8D44C1F8               lea     eax, [ecx+eax*8-$08]

* Reference to: system.@LStrAsg;
|
006A62DC   E867DED5FF             call    00404148
006A62E1   8D045B                 lea     eax, [ebx+ebx*2]

* Reference to field TfrmWTSetup.OFFS_02F8
|
006A62E4   8B96F8020000           mov     edx, [esi+$02F8]
006A62EA   8B44C2F8               mov     eax, [edx+eax*8-$08]
006A62EE   50                     push    eax
006A62EF   8D45C8                 lea     eax, [ebp-$38]
006A62F2   50                     push    eax
006A62F3   8D4DC4                 lea     ecx, [ebp-$3C]
006A62F6   8BD3                   mov     edx, ebx
006A62F8   4A                     dec     edx
006A62F9   8B45F8                 mov     eax, [ebp-$08]
006A62FC   8B38                   mov     edi, [eax]

* Reference to method TStringList.Get(Integer)
|
006A62FE   FF570C                 call    dword ptr [edi+$0C]
006A6301   8B55C4                 mov     edx, [ebp-$3C]

* Reference to pointer to GlobalVar_0078CF04
|
006A6304   A1F8CF7700             mov     eax, dword ptr [$0077CFF8]
006A6309   8B00                   mov     eax, [eax]

* Possible String Reference to: 'ExeFileName'
|
006A630B   B9AC656A00             mov     ecx, $006A65AC
006A6310   8B38                   mov     edi, [eax]
006A6312   FF17                   call    dword ptr [edi]
006A6314   8B55C8                 mov     edx, [ebp-$38]
006A6317   8D045B                 lea     eax, [ebx+ebx*2]

* Reference to field TfrmWTSetup.OFFS_02F8
|
006A631A   8B8EF8020000           mov     ecx, [esi+$02F8]
006A6320   8D44C1F8               lea     eax, [ecx+eax*8-$08]

* Reference to: system.@LStrAsg;
|
006A6324   E81FDED5FF             call    00404148
006A6329   6A00                   push    $00
006A632B   8D4DC0                 lea     ecx, [ebp-$40]
006A632E   8BD3                   mov     edx, ebx
006A6330   4A                     dec     edx
006A6331   8B45F8                 mov     eax, [ebp-$08]
006A6334   8B38                   mov     edi, [eax]

* Reference to method TStringList.Get(Integer)
|
006A6336   FF570C                 call    dword ptr [edi+$0C]
006A6339   8B55C0                 mov     edx, [ebp-$40]

* Reference to pointer to GlobalVar_0078CF04
|
006A633C   A1F8CF7700             mov     eax, dword ptr [$0077CFF8]
006A6341   8B00                   mov     eax, [eax]

* Possible String Reference to: 'DownLoad'
|
006A6343   B9C0656A00             mov     ecx, $006A65C0
006A6348   8B38                   mov     edi, [eax]

* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_10
|
006A634A   FF5710                 call    dword ptr [edi+$10]
006A634D   8D145B                 lea     edx, [ebx+ebx*2]

* Reference to field TfrmWTSetup.OFFS_02F8
|
006A6350   8B8EF8020000           mov     ecx, [esi+$02F8]
006A6356   8844D1F4               mov     [ecx+edx*8-$0C], al
006A635A   8D4DBC                 lea     ecx, [ebp-$44]
006A635D   8BD3                   mov     edx, ebx
006A635F   4A                     dec     edx
006A6360   8B45F8                 mov     eax, [ebp-$08]
006A6363   8B38                   mov     edi, [eax]

* Reference to method TStringList.Get(Integer)
|
006A6365   FF570C                 call    dword ptr [edi+$0C]
006A6368   8B55BC                 mov     edx, [ebp-$44]
006A636B   8D4DF0                 lea     ecx, [ebp-$10]
006A636E   8B45F4                 mov     eax, [ebp-$0C]
006A6371   8B38                   mov     edi, [eax]

* Reference to method TStringList.Find(string,Integer)
|
006A6373   FF5778                 call    dword ptr [edi+$78]
006A6376   84C0                   test    al, al
006A6378   7410                   jz      006A638A
006A637A   8D045B                 lea     eax, [ebx+ebx*2]

* Reference to field TfrmWTSetup.OFFS_02F8
|
006A637D   8B96F8020000           mov     edx, [esi+$02F8]
006A6383   C644C2FC00             mov     byte ptr [edx+eax*8-$04], $00
006A6388   EB0E                   jmp     006A6398
006A638A   8D045B                 lea     eax, [ebx+ebx*2]

* Reference to field TfrmWTSetup.OFFS_02F8
|
006A638D   8B96F8020000           mov     edx, [esi+$02F8]
006A6393   C644C2FC01             mov     byte ptr [edx+eax*8-$04], $01
006A6398   8D55B8                 lea     edx, [ebp-$48]
006A639B   8BC3                   mov     eax, ebx

* Reference to: Unit_00409434.Proc_0040A564
|
006A639D   E8C241D6FF             call    0040A564
006A63A2   8B45B8                 mov     eax, [ebp-$48]
006A63A5   50                     push    eax
006A63A6   8BCB                   mov     ecx, ebx
006A63A8   33D2                   xor     edx, edx

* Reference to control TfrmWTSetup.SG1 : TStringGrid
|
006A63AA   8B86D4020000           mov     eax, [esi+$02D4]

* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
006A63B0   E8B7D9E4FF             call    004F3D6C
006A63B5   8D045B                 lea     eax, [ebx+ebx*2]

* Reference to field TfrmWTSetup.OFFS_02F8
|
006A63B8   8B96F8020000           mov     edx, [esi+$02F8]
006A63BE   8B44C2F0               mov     eax, [edx+eax*8-$10]
006A63C2   50                     push    eax
006A63C3   8BCB                   mov     ecx, ebx
006A63C5   BA01000000             mov     edx, $00000001

* Reference to control TfrmWTSetup.SG1 : TStringGrid
|
006A63CA   8B86D4020000           mov     eax, [esi+$02D4]

* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
006A63D0   E897D9E4FF             call    004F3D6C
006A63D5   837DEC00               cmp     dword ptr [ebp-$14], +$00
006A63D9   741D                   jz      006A63F8
006A63DB   8B45EC                 mov     eax, [ebp-$14]
006A63DE   8D145B                 lea     edx, [ebx+ebx*2]

* Reference to field TfrmWTSetup.OFFS_02F8
|
006A63E1   8B8EF8020000           mov     ecx, [esi+$02F8]
006A63E7   8B54D1F0               mov     edx, [ecx+edx*8-$10]

* Reference to: system.@LStrCmp;
|
006A63EB   E8B0E0D5FF             call    004044A0
006A63F0   7506                   jnz     006A63F8

* Reference to field TfrmWTSetup.OFFS_02FC
|
006A63F2   899EFC020000           mov     [esi+$02FC], ebx
006A63F8   8D4DB4                 lea     ecx, [ebp-$4C]
006A63FB   8BD3                   mov     edx, ebx
006A63FD   4A                     dec     edx
006A63FE   8B45F8                 mov     eax, [ebp-$08]
006A6401   8B38                   mov     edi, [eax]

* Reference to method TStringList.Get(Integer)
|
006A6403   FF570C                 call    dword ptr [edi+$0C]
006A6406   8B55B4                 mov     edx, [ebp-$4C]

* Reference to pointer to GlobalVar_0078CF04
|
006A6409   A1F8CF7700             mov     eax, dword ptr [$0077CFF8]
006A640E   8B00                   mov     eax, [eax]
006A6410   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_44
|
006A6412   FF5144                 call    dword ptr [ecx+$44]
006A6415   43                     inc     ebx
006A6416   FF4DE8                 dec     dword ptr [ebp-$18]
006A6419   0F85EBFDFFFF           jnz     006A620A
006A641F   8B45F8                 mov     eax, [ebp-$08]

* Reference to: system.TObject.Free(TObject);
|
006A6422   E8A5CED5FF             call    004032CC

* Reference to field TfrmWTSetup.OFFS_02FC
|
006A6427   8B86FC020000           mov     eax, [esi+$02FC]
006A642D   85C0                   test    eax, eax
006A642F   741F                   jz      006A6450
006A6431   3B45FC                 cmp     eax, [ebp-$04]
006A6434   7F1A                   jnle    006A6450
006A6436   8BD0                   mov     edx, eax

* Reference to control TfrmWTSetup.SG1 : TStringGrid
|
006A6438   8B86D4020000           mov     eax, [esi+$02D4]

* Reference to: grids.TCustomGrid.SetRow(TCustomGrid;Longint);
|
006A643E   E88DB7E4FF             call    004F1BD0

* Reference to field TfrmWTSetup.OFFS_02FC
|
006A6443   8B96FC020000           mov     edx, [esi+$02FC]
006A6449   8BC6                   mov     eax, esi

* Reference to : TfrmWTSetup._PROC_006A7644()
|
006A644B   E8F4110000             call    006A7644
006A6450   837DFC00               cmp     dword ptr [ebp-$04], +$00
006A6454   751A                   jnz     006A6470
006A6456   33D2                   xor     edx, edx

* Reference to control TfrmWTSetup.BitBtn1 : TBitBtn
|
006A6458   8B86E4020000           mov     eax, [esi+$02E4]
006A645E   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TBitBtn.OFFS_5C
|
006A6460   FF515C                 call    dword ptr [ecx+$5C]
006A6463   33D2                   xor     edx, edx

* Reference to control TfrmWTSetup.Button5 : TBitBtn
|
006A6465   8B86E0020000           mov     eax, [esi+$02E0]
006A646B   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TBitBtn.OFFS_5C
|
006A646D   FF515C                 call    dword ptr [ecx+$5C]

* Reference to control TfrmWTSetup.SG1 : TStringGrid
|
006A6470   8B86D4020000           mov     eax, [esi+$02D4]

* Reference to field TStringGrid.Row : Longint
|
006A6476   8B9014020000           mov     edx, [eax+$0214]
006A647C   8BC6                   mov     eax, esi

* Reference to : TfrmWTSetup._PROC_006A7644()
|
006A647E   E8C1110000             call    006A7644
006A6483   6A00                   push    $00

* Reference to pointer to GlobalVar_0078CF04
|
006A6485   A1F8CF7700             mov     eax, dword ptr [$0077CFF8]
006A648A   8B00                   mov     eax, [eax]

* Possible String Reference to: 'UsrType'
|
006A648C   B9D4656A00             mov     ecx, $006A65D4

* Possible String Reference to: 'setting'
|
006A6491   BAE4656A00             mov     edx, $006A65E4
006A6496   8B18                   mov     ebx, [eax]

* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_08
|
006A6498   FF5308                 call    dword ptr [ebx+$08]
006A649B   B90A000000             mov     ecx, $0000000A
006A64A0   99                     cdq
006A64A1   F7F9                   idiv    ecx 
006A64A3   48                     dec     eax
006A64A4   741D                   jz      006A64C3
006A64A6   6A00                   push    $00

* Reference to pointer to GlobalVar_0078CF04
|
006A64A8   A1F8CF7700             mov     eax, dword ptr [$0077CFF8]
006A64AD   8B00                   mov     eax, [eax]

* Possible String Reference to: 'UsrType'
|
006A64AF   B9D4656A00             mov     ecx, $006A65D4

* Possible String Reference to: 'setting'
|
006A64B4   BAE4656A00             mov     edx, $006A65E4
006A64B9   8B18                   mov     ebx, [eax]

* Possible reference to virtual method TGlobalVar_0078CF04.OFFS_08
|
006A64BB   FF5308                 call    dword ptr [ebx+$08]
006A64BE   83F815                 cmp     eax, +$15
006A64C1   7527                   jnz     006A64EA
006A64C3   33D2                   xor     edx, edx

* Reference to control TfrmWTSetup.Button3 : TBitBtn
|
006A64C5   8B86D8020000           mov     eax, [esi+$02D8]

* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006A64CB   E89834D9FF             call    00439968
006A64D0   33D2                   xor     edx, edx

* Reference to control TfrmWTSetup.Button4 : TBitBtn
|
006A64D2   8B86DC020000           mov     eax, [esi+$02DC]

* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006A64D8   E88B34D9FF             call    00439968
006A64DD   33D2                   xor     edx, edx

* Reference to control TfrmWTSetup.Button5 : TBitBtn
|
006A64DF   8B86E0020000           mov     eax, [esi+$02E0]

* Reference to: controls.TControl.SetVisible(TControl;Boolean);
|
006A64E5   E87E34D9FF             call    00439968
006A64EA   33C0                   xor     eax, eax
006A64EC   5A                     pop     edx
006A64ED   59                     pop     ecx
006A64EE   59                     pop     ecx
006A64EF   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '_^[嬪]

⌨️ 快捷键说明

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