📄 qkdzh.pas
字号:
* Reference to: comctrls.TTreeNode.SetStateIndex(TTreeNode;Integer);
|
0074BE4F E800A2D2FF call 00476054
0074BE54 B80C000000 mov eax, $0000000C
* Reference to: Unit_00409434.Proc_00409FF8
|
0074BE59 E89AE1CBFF call 00409FF8
0074BE5E 8A5510 mov dl, byte ptr [ebp+$10]
0074BE61 8810 mov [eax], dl
0074BE63 8B550C mov edx, [ebp+$0C]
0074BE66 895004 mov [eax+$04], edx
0074BE69 8B5508 mov edx, [ebp+$08]
0074BE6C 895008 mov [eax+$08], edx
0074BE6F 8B13 mov edx, [ebx]
0074BE71 92 xchg eax, edx
* Reference to: comctrls.TTreeNode.SetData(TTreeNode;Pointer);
|
0074BE72 E815A0D2FF call 00475E8C
0074BE77 5E pop esi
0074BE78 5B pop ebx
0074BE79 5D pop ebp
0074BE7A C20C00 ret $000C
*)
end;
procedure TfrmQJT._PROC_0074BE80(Sender : TObject);
begin
(*
* Reference to control TfrmQJT.TreeInd : TTreeView
|
0074BE80 8D90E0020000 lea edx, [eax+$02E0]
0074BE86 A1F0CF7700 mov eax, dword ptr [$0077CFF0]
0074BE8B 8B00 mov eax, [eax]
* Reference to: Unit_00707E58.Proc_00708604
|
0074BE8D E872C7FBFF call 00708604
0074BE92 C3 ret
*)
end;
procedure TfrmQJT._PROC_0074BE94(Sender : TObject);
begin
(*
0074BE94 55 push ebp
0074BE95 8BEC mov ebp, esp
0074BE97 83C4D0 add esp, -$30
0074BE9A 53 push ebx
0074BE9B 56 push esi
0074BE9C 57 push edi
0074BE9D 33D2 xor edx, edx
0074BE9F 8955E0 mov [ebp-$20], edx
0074BEA2 8955E4 mov [ebp-$1C], edx
0074BEA5 8945FC mov [ebp-$04], eax
0074BEA8 33C0 xor eax, eax
0074BEAA 55 push ebp
0074BEAB 68EAC07400 push $0074C0EA
***** TRY
|
0074BEB0 64FF30 push dword ptr fs:[eax]
0074BEB3 648920 mov fs:[eax], esp
0074BEB6 6A00 push $00
0074BEB8 6A00 push $00
0074BEBA 6A0B push $0B
0074BEBC 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074BEBF 8B80E4020000 mov eax, [eax+$02E4]
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0074BEC5 E8BE3ECFFF call 0043FD88
0074BECA 50 push eax
* Reference to: user32.SendMessageA()
|
0074BECB E808CECBFF call 00408CD8
* Reference to THJ32Main instance
|
0074BED0 A158D37700 mov eax, dword ptr [$0077D358]
0074BED5 8B00 mov eax, [eax]
* Reference to control THJ32Main.ImageList1 : TImageList
|
0074BED7 8B9070060000 mov edx, [eax+$0670]
0074BEDD 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074BEE0 8B80E4020000 mov eax, [eax+$02E4]
* Reference to: comctrls.TCustomTreeView.SetImages(TCustomTreeView;TCustomImageList);
|
0074BEE6 E8E5D1D2FF call 004790D0
0074BEEB C645FB00 mov byte ptr [ebp-$05], $00
0074BEEF A144D47700 mov eax, dword ptr [$0077D444]
0074BEF4 8945E8 mov [ebp-$18], eax
0074BEF7 8B3D04CC7700 mov edi, [$0077CC04]
0074BEFD 8B45E8 mov eax, [ebp-$18]
0074BF00 8B08 mov ecx, [eax]
0074BF02 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074BF05 8B80E4020000 mov eax, [eax+$02E4]
* Reference to field TTreeView.Items : TTreeNodes
|
0074BF0B 8B8054020000 mov eax, [eax+$0254]
0074BF11 33D2 xor edx, edx
* Reference to: comctrls.TTreeNodes.AddChildFirst(TTreeNodes;TTreeNode;AnsiString):TTreeNode;
|
0074BF13 E840AED2FF call 00476D58
0074BF18 8945F4 mov [ebp-$0C], eax
0074BF1B 6A03 push $03
0074BF1D 33C0 xor eax, eax
0074BF1F 8A45FB mov al, byte ptr [ebp-$05]
0074BF22 50 push eax
0074BF23 6A00 push $00
0074BF25 8D55F4 lea edx, [ebp-$0C]
0074BF28 B90A000000 mov ecx, $0000000A
0074BF2D 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmQJT._PROC_0074BE30()
|
0074BF30 E8FBFEFFFF call 0074BE30
0074BF35 33DB xor ebx, ebx
0074BF37 8B35BCCB7700 mov esi, [$0077CBBC]
0074BF3D 84DB test bl, bl
0074BF3F 7462 jz 0074BFA3
0074BF41 80FB07 cmp bl, $07
0074BF44 745D jz 0074BFA3
0074BF46 807DFB00 cmp byte ptr [ebp-$05], $00
0074BF4A 7505 jnz 0074BF51
0074BF4C 80FB04 cmp bl, $04
0074BF4F 7452 jz 0074BFA3
0074BF51 807DFB02 cmp byte ptr [ebp-$05], $02
0074BF55 7505 jnz 0074BF5C
0074BF57 80FB02 cmp bl, $02
0074BF5A 7450 jz 0074BFAC
0074BF5C 80FB08 cmp bl, $08
0074BF5F 744B jz 0074BFAC
0074BF61 8B17 mov edx, [edi]
0074BF63 8D45E4 lea eax, [ebp-$1C]
0074BF66 8B0E mov ecx, [esi]
* Reference to: system.@LStrCat3;
|
0074BF68 E86F84CBFF call 004043DC
0074BF6D 8B4DE4 mov ecx, [ebp-$1C]
0074BF70 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074BF73 8B80E4020000 mov eax, [eax+$02E4]
* Reference to field TTreeView.Items : TTreeNodes
|
0074BF79 8B8054020000 mov eax, [eax+$0254]
0074BF7F 8B55F4 mov edx, [ebp-$0C]
* Reference to: comctrls.TTreeNodes.AddChildFirst(TTreeNodes;TTreeNode;AnsiString):TTreeNode;
|
0074BF82 E8D1ADD2FF call 00476D58
0074BF87 8945F0 mov [ebp-$10], eax
0074BF8A 6A04 push $04
0074BF8C 33C0 xor eax, eax
0074BF8E 8AC3 mov al, bl
0074BF90 50 push eax
0074BF91 6A00 push $00
0074BF93 8D55F0 lea edx, [ebp-$10]
0074BF96 B909000000 mov ecx, $00000009
0074BF9B 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmQJT._PROC_0074BE30()
|
0074BF9E E88DFEFFFF call 0074BE30
0074BFA3 43 inc ebx
0074BFA4 83C604 add esi, +$04
0074BFA7 80FB0E cmp bl, $0E
0074BFAA 7591 jnz 0074BF3D
0074BFAC FE45FB inc byte ptr [ebp-$05]
0074BFAF 83C704 add edi, +$04
0074BFB2 8345E804 add dword ptr [ebp-$18], +$04
0074BFB6 807DFB03 cmp byte ptr [ebp-$05], $03
0074BFBA 0F853DFFFFFF jnz 0074BEFD
0074BFC0 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074BFC3 8B80E4020000 mov eax, [eax+$02E4]
* Reference to field TTreeView.Items : TTreeNodes
|
0074BFC9 8B8054020000 mov eax, [eax+$0254]
* Possible String Reference to: '板块行情'
|
0074BFCF B900C17400 mov ecx, $0074C100
0074BFD4 33D2 xor edx, edx
* Reference to: comctrls.TTreeNodes.AddChildFirst(TTreeNodes;TTreeNode;AnsiString):TTreeNode;
|
0074BFD6 E87DADD2FF call 00476D58
0074BFDB 8945F4 mov [ebp-$0C], eax
0074BFDE 6A03 push $03
0074BFE0 6A00 push $00
0074BFE2 6A00 push $00
0074BFE4 8D55F4 lea edx, [ebp-$0C]
0074BFE7 B93B000000 mov ecx, $0000003B
0074BFEC 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmQJT._PROC_0074BE30()
|
0074BFEF E83CFEFFFF call 0074BE30
* Reference to pointer to GlobalVar_0078CF20
|
0074BFF4 A1D4CE7700 mov eax, dword ptr [$0077CED4]
0074BFF9 8B00 mov eax, [eax]
* Reference to field GlobalVar_0078CF20.OFFS_01DC
|
0074BFFB 8BB0DC010000 mov esi, [eax+$01DC]
* Reference to pointer to GlobalVar_0078CF20
|
0074C001 A1D4CE7700 mov eax, dword ptr [$0077CED4]
0074C006 8B00 mov eax, [eax]
0074C008 0FB780E0010000 movzx eax, word ptr [eax+$01E0]
0074C00F 2BF0 sub esi, eax
0074C011 4E dec esi
0074C012 85F6 test esi, esi
0074C014 7C6A jl 0074C080
0074C016 46 inc esi
0074C017 33DB xor ebx, ebx
0074C019 8D04DB lea eax, [ebx+ebx*8]
* Reference to pointer to GlobalVar_0078CF20
|
0074C01C 8B15D4CE7700 mov edx, [$0077CED4]
0074C022 8B12 mov edx, [edx]
0074C024 8D548210 lea edx, [edx+eax*4+$10]
0074C028 8D45D0 lea eax, [ebp-$30]
* Reference to: system.@PStrCpy;
|
0074C02B E8386DCBFF call 00402D68
0074C030 BA0CC17400 mov edx, $0074C10C
0074C035 8D45D0 lea eax, [ebp-$30]
0074C038 B10E mov cl, $0E
* Reference to: system.@PStrNCat;
|
0074C03A E8F96CCBFF call 00402D38
0074C03F 8D55D0 lea edx, [ebp-$30]
0074C042 8D45E0 lea eax, [ebp-$20]
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0074C045 E8CE82CBFF call 00404318
0074C04A 8B4DE0 mov ecx, [ebp-$20]
0074C04D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074C050 8B80E4020000 mov eax, [eax+$02E4]
* Reference to field TTreeView.Items : TTreeNodes
|
0074C056 8B8054020000 mov eax, [eax+$0254]
0074C05C 8B55F4 mov edx, [ebp-$0C]
* Reference to: comctrls.TTreeNodes.AddChildFirst(TTreeNodes;TTreeNode;AnsiString):TTreeNode;
|
0074C05F E8F4ACD2FF call 00476D58
0074C064 8945EC mov [ebp-$14], eax
0074C067 6A06 push $06
0074C069 53 push ebx
0074C06A 6A00 push $00
0074C06C 8D55EC lea edx, [ebp-$14]
0074C06F B908000000 mov ecx, $00000008
0074C074 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmQJT._PROC_0074BE30()
|
0074C077 E8B4FDFFFF call 0074BE30
0074C07C 43 inc ebx
0074C07D 4E dec esi
0074C07E 7599 jnz 0074C019
0074C080 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074C083 8B80E4020000 mov eax, [eax+$02E4]
* Reference to field TTreeView.Items : TTreeNodes
|
0074C089 8B8054020000 mov eax, [eax+$0254]
* Possible String Reference to: '自选板块'
|
0074C08F B91CC17400 mov ecx, $0074C11C
0074C094 8B55F4 mov edx, [ebp-$0C]
* Reference to: comctrls.TTreeNodes.AddChildFirst(TTreeNodes;TTreeNode;AnsiString):TTreeNode;
|
0074C097 E8BCACD2FF call 00476D58
0074C09C 8945EC mov [ebp-$14], eax
0074C09F 6A07 push $07
0074C0A1 6A00 push $00
0074C0A3 6A00 push $00
0074C0A5 8D55EC lea edx, [ebp-$14]
0074C0A8 B908000000 mov ecx, $00000008
0074C0AD 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmQJT._PROC_0074BE30()
|
0074C0B0 E87BFDFFFF call 0074BE30
0074C0B5 6A00 push $00
0074C0B7 6A01 push $01
0074C0B9 6A0B push $0B
0074C0BB 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074C0BE 8B80E4020000 mov eax, [eax+$02E4]
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0074C0C4 E8BF3CCFFF call 0043FD88
0074C0C9 50 push eax
* Reference to: user32.SendMessageA()
|
0074C0CA E809CCCBFF call 00408CD8
0074C0CF 33C0 xor eax, eax
0074C0D1 5A pop edx
0074C0D2 59 pop ecx
0074C0D3 59 pop ecx
0074C0D4 648910 mov fs:[eax], edx
****** FINALLY
|
0074C0D7 68F1C07400 push $0074C0F1
0074C0DC 8D45E0 lea eax, [ebp-$20]
0074C0DF BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
0074C0E4 E82F80CBFF call 00404118
0074C0E9 C3 ret
* Reference to: system.@HandleFinally;
|
0074C0EA E93D79CBFF jmp 00403A2C
0074C0EF EBEB jmp 0074C0DC
****** END
|
0074C0F1 5F pop edi
0074C0F2 5E pop esi
0074C0F3 5B pop ebx
0074C0F4 8BE5 mov esp, ebp
0074C0F6 5D pop ebp
0074C0F7 C3 ret
*)
end;
procedure TfrmQJT._PROC_0074C129(Sender : TObject);
begin
(*
0074C129 8BEC mov ebp, esp
0074C12B 51 push ecx
0074C12C 53 push ebx
0074C12D 8BDA mov ebx, edx
0074C12F 8945FC mov [ebp-$04], eax
0074C132 8B45FC mov eax, [ebp-$04]
* Reference to: system.@LStrAddRef;
|
0074C135 E80A84CBFF call 00404544
0074C13A 33C0 xor eax, eax
0074C13C 55 push ebp
* Possible String Reference to: '閺x⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -