📄 jphis.pas
字号:
* Reference to field THJ32Main.OFFS_08B5 : Byte
|
006B3CF9 C680B508000001 mov byte ptr [eax+$08B5], $01
006B3D00 EB0E jmp 006B3D10
* Reference to THJ32Main instance
|
006B3D02 A158D37700 mov eax, dword ptr [$0077D358]
006B3D07 8B00 mov eax, [eax]
* Reference to field THJ32Main.OFFS_08B5 : Byte
|
006B3D09 C680B508000000 mov byte ptr [eax+$08B5], $00
* Reference to field TfrmJPHis.OFFS_02F4
|
006B3D10 8B83F4020000 mov eax, [ebx+$02F4]
006B3D16 85C0 test eax, eax
006B3D18 7405 jz 006B3D1F
* Reference to: system.@FreeMem;
|
006B3D1A E861EBD4FF call 00402880
006B3D1F 5B pop ebx
006B3D20 C3 ret
*)
end;
procedure TfrmJPHis.FormCreate(Sender : TObject);
begin
(*
006B3D24 53 push ebx
006B3D25 8BD8 mov ebx, eax
006B3D27 33C0 xor eax, eax
* Reference to field TfrmJPHis.OFFS_02F4
|
006B3D29 8983F4020000 mov [ebx+$02F4], eax
* Reference to THJ32Main instance
|
006B3D2F A158D37700 mov eax, dword ptr [$0077D358]
006B3D34 8B00 mov eax, [eax]
* Reference to field THJ32Main.OFFS_08B4 : Byte
|
006B3D36 80B8B408000000 cmp byte ptr [eax+$08B4], $00
006B3D3D 7512 jnz 006B3D51
006B3D3F B201 mov dl, $01
* Reference to control TfrmJPHis.CheckBox1 : TCheckBox
|
006B3D41 8B83E8020000 mov eax, [ebx+$02E8]
006B3D47 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
006B3D49 FF91B8000000 call dword ptr [ecx+$00B8]
006B3D4F EB10 jmp 006B3D61
006B3D51 33D2 xor edx, edx
* Reference to control TfrmJPHis.CheckBox1 : TCheckBox
|
006B3D53 8B83E8020000 mov eax, [ebx+$02E8]
006B3D59 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
006B3D5B FF91B8000000 call dword ptr [ecx+$00B8]
* Reference to THJ32Main instance
|
006B3D61 A158D37700 mov eax, dword ptr [$0077D358]
006B3D66 8B00 mov eax, [eax]
* Reference to field THJ32Main.OFFS_08B5 : Byte
|
006B3D68 80B8B508000000 cmp byte ptr [eax+$08B5], $00
006B3D6F 7412 jz 006B3D83
006B3D71 B201 mov dl, $01
* Reference to control TfrmJPHis.CheckBox2 : TCheckBox
|
006B3D73 8B83EC020000 mov eax, [ebx+$02EC]
006B3D79 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
006B3D7B FF91B8000000 call dword ptr [ecx+$00B8]
006B3D81 5B pop ebx
006B3D82 C3 ret
006B3D83 33D2 xor edx, edx
* Reference to control FoundFiles : N.A.
|
006B3D85 8B83EC020000 mov eax, [ebx+$02EC]
006B3D8B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B8
|
006B3D8D FF91B8000000 call dword ptr [ecx+$00B8]
006B3D93 5B pop ebx
006B3D94 C3 ret
*)
end;
procedure TfrmJPHis.FormKeyDown(Sender : TObject);
begin
(*
006B3D98 55 push ebp
006B3D99 8BEC mov ebp, esp
006B3D9B 6683391B cmp word ptr [ecx], +$1B
006B3D9F 7505 jnz 006B3DA6
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006B3DA1 E81623DAFF call 004560BC
006B3DA6 5D pop ebp
006B3DA7 C20400 ret $0004
*)
end;
procedure TfrmJPHis._PROC_006B3959(Sender : TObject);
begin
(*
006B3959 8BEC mov ebp, esp
006B395B 6A00 push $00
006B395D 6A00 push $00
006B395F 6A00 push $00
006B3961 53 push ebx
006B3962 56 push esi
006B3963 57 push edi
006B3964 8BF1 mov esi, ecx
006B3966 8855FF mov [ebp-$01], dl
006B3969 8BD8 mov ebx, eax
006B396B 33C0 xor eax, eax
006B396D 55 push ebp
006B396E 68513A6B00 push $006B3A51
***** TRY
|
006B3973 64FF30 push dword ptr fs:[eax]
006B3976 648920 mov fs:[eax], esp
006B3979 6685F6 test si, si
006B397C 0F84B4000000 jz 006B3A36
006B3982 837D0800 cmp dword ptr [ebp+$08], +$00
006B3986 0F84AA000000 jz 006B3A36
006B398C 33C0 xor eax, eax
* Reference to field TfrmJPHis.OFFS_02F4
|
006B398E 8983F4020000 mov [ebx+$02F4], eax
006B3994 0FB7C6 movzx eax, si
006B3997 69F891000000 imul edi, eax, $00000091
006B399D 8BD7 mov edx, edi
* Reference to field TfrmJPHis.OFFS_02F4
|
006B399F 8D83F4020000 lea eax, [ebx+$02F4]
* Reference to: system.@ReallocMem;
|
006B39A5 E8EEEED4FF call 00402898
006B39AA 8BCF mov ecx, edi
* Reference to field TfrmJPHis.OFFS_02F4
|
006B39AC 8B93F4020000 mov edx, [ebx+$02F4]
006B39B2 A1E4C87700 mov eax, dword ptr [$0077C8E4]
006B39B7 8B00 mov eax, [eax]
* Reference to: system.Move(void;void;void;void;Integer);
|
006B39B9 E8BAF0D4FF call 00402A78
006B39BE 4E dec esi
006B39BF 6685F6 test si, si
006B39C2 725C jb 006B3A20
006B39C4 46 inc esi
006B39C5 33FF xor edi, edi
006B39C7 8D4DF8 lea ecx, [ebp-$08]
006B39CA 8BD7 mov edx, edi
006B39CC 8BC3 mov eax, ebx
* Reference to : TfrmJPHis.Proc_006B3804()
|
006B39CE E831FEFFFF call 006B3804
006B39D3 8B45F8 mov eax, [ebp-$08]
* Reference to: system.@LStrLen:Integer;
|
006B39D6 E8B509D5FF call 00404390
006B39DB 83F832 cmp eax, +$32
006B39DE 7C26 jl 006B3A06
006B39E0 8D45F4 lea eax, [ebp-$0C]
006B39E3 50 push eax
006B39E4 B932000000 mov ecx, $00000032
006B39E9 BA01000000 mov edx, $00000001
006B39EE 8B45F8 mov eax, [ebp-$08]
* Reference to: system.@LStrCopy;
|
006B39F1 E8A20BD5FF call 00404598
006B39F6 8B55F4 mov edx, [ebp-$0C]
006B39F9 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: '...'
|
006B39FC B96C3A6B00 mov ecx, $006B3A6C
* Reference to: system.@LStrCat3;
|
006B3A01 E8D609D5FF call 004043DC
* Reference to control TfrmJPHis.ListBox1 : TListBox
|
006B3A06 8B83E0020000 mov eax, [ebx+$02E0]
* Reference to field TListBox.Items : TStrings
|
006B3A0C 8B80F0010000 mov eax, [eax+$01F0]
006B3A12 8B55F8 mov edx, [ebp-$08]
006B3A15 8B08 mov ecx, [eax]
* Reference to method TStrings.Add(string)
|
006B3A17 FF5134 call dword ptr [ecx+$34]
006B3A1A 47 inc edi
006B3A1B 66FFCE dec si
006B3A1E 75A7 jnz 006B39C7
006B3A20 807DFF00 cmp byte ptr [ebp-$01], $00
006B3A24 7510 jnz 006B3A36
* Possible String Reference to: '大智慧实时解盘'
|
006B3A26 BA783A6B00 mov edx, $006B3A78
* Reference to control TfrmJPHis.RxGradientCaption1 : TRxGradientCaption
|
006B3A2B 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to : TRxCaption._PROC_004FBB34()
|
006B3A31 E8FE80E4FF call 004FBB34
006B3A36 33C0 xor eax, eax
006B3A38 5A pop edx
006B3A39 59 pop ecx
006B3A3A 59 pop ecx
006B3A3B 648910 mov fs:[eax], edx
****** FINALLY
|
006B3A3E 68583A6B00 push $006B3A58
006B3A43 8D45F4 lea eax, [ebp-$0C]
006B3A46 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
006B3A4B E8C806D5FF call 00404118
006B3A50 C3 ret
* Reference to: system.@HandleFinally;
|
006B3A51 E9D6FFD4FF jmp 00403A2C
006B3A56 EBEB jmp 006B3A43
****** END
|
006B3A58 5F pop edi
006B3A59 5E pop esi
006B3A5A 5B pop ebx
006B3A5B 8BE5 mov esp, ebp
006B3A5D 5D pop ebp
006B3A5E C20400 ret $0004
*)
end;
procedure TfrmJPHis._PROC_006B3DAC(Sender : TObject);
begin
(*
006B3DAC 55 push ebp
006B3DAD 8BEC mov ebp, esp
006B3DAF 33C0 xor eax, eax
006B3DB1 55 push ebp
006B3DB2 68D13D6B00 push $006B3DD1
***** TRY
|
006B3DB7 64FF30 push dword ptr fs:[eax]
006B3DBA 648920 mov fs:[eax], esp
006B3DBD FF0510D57800 inc dword ptr [$0078D510]
006B3DC3 33C0 xor eax, eax
006B3DC5 5A pop edx
006B3DC6 59 pop ecx
006B3DC7 59 pop ecx
006B3DC8 648910 mov fs:[eax], edx
****** FINALLY
|
006B3DCB 68D83D6B00 push $006B3DD8
006B3DD0 C3 ret
* Reference to: system.@HandleFinally;
|
006B3DD1 E956FCD4FF jmp 00403A2C
006B3DD6 EBF8 jmp 006B3DD0
****** END
|
006B3DD8 5D pop ebp
006B3DD9 C3 ret
*)
end;
procedure TfrmJPHis._PROC_006B3DDC(Sender : TObject);
begin
(*
006B3DDC 832D10D5780001 sub dword ptr [$0078D510], +$01
006B3DE3 C3 ret
*)
end;
procedure TfrmJPHis.Proc_006B3804(Sender : TObject);
begin
(*
006B3804 55 push ebp
006B3805 8BEC mov ebp, esp
006B3807 6A00 push $00
006B3809 6A00 push $00
006B380B 6A00 push $00
006B380D 6A00 push $00
006B380F 6A00 push $00
006B3811 6A00 push $00
006B3813 53 push ebx
006B3814 56 push esi
006B3815 57 push edi
006B3816 894DFC mov [ebp-$04], ecx
006B3819 8BF2 mov esi, edx
006B381B 8BD8 mov ebx, eax
006B381D 33C0 xor eax, eax
006B381F 55 push ebp
006B3820 6824396B00 push $006B3924
***** TRY
|
006B3825 64FF30 push dword ptr fs:[eax]
006B3828 648920 mov fs:[eax], esp
* Reference to field TfrmJPHis.OFFS_02F4
|
006B382B 83BBF402000000 cmp dword ptr [ebx+$02F4], +$00
006B3832 0F84C9000000 jz 006B3901
006B3838 0FB7C6 movzx eax, si
006B383B 69C091000000 imul eax, eax, $00000091
006B3841 0383F4020000 add eax, [ebx+$02F4]
006B3847 668B480F mov cx, word ptr [eax+$0F]
006B384B 0FB7C1 movzx eax, cx
006B384E BF64000000 mov edi, $00000064
006B3853 33D2 xor edx, edx
006B3855 F7F7 div edi
006B3857 8BF8 mov edi, eax
006B3859 0FB7C1 movzx eax, cx
006B385C B964000000 mov ecx, $00000064
006B3861 33D2 xor edx, edx
006B3863 F7F1 div ecx
006B3865 668955F6 mov [ebp-$0A], dx
006B3869 8D55F8 lea edx, [ebp-$08]
006B386C 0FB745F6 movzx eax, word ptr [ebp-$0A]
* Reference to: Unit_00409434.Proc_0040A564
|
006B3870 E8EF6CD5FF call 0040A564
006B3875 8B45F8 mov eax, [ebp-$08]
* Reference to: system.@LStrLen:Integer;
|
006B3878 E8130BD5FF call 00404390
006B387D 48 dec eax
006B387E 7510 jnz 006B3890
006B3880 8D45F8 lea eax, [ebp-$08]
006B3883 8B4DF8 mov ecx, [ebp-$08]
006B3886 BA3C396B00 mov edx, $006B393C
* Reference to: system.@LStrCat3;
|
006B388B E84C0BD5FF call 004043DC
006B3890 8D55F0 lea edx, [ebp-$10]
006B3893 0FB7C7 movzx eax, di
* Reference to: Unit_00409434.Proc_0040A564
|
006B3896 E8C96CD5FF call 0040A564
006B389B FF75F0 push dword ptr [ebp-$10]
006B389E 6848396B00 push $006B3948
006B38A3 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: ' '
|
006B38A6 6854396B00 push $006B3954
006B38AB 8D45EC lea eax, [ebp-$14]
006B38AE 0FB7D6 movzx edx, si
006B38B1 69D291000000 imul edx, edx, $00000091
006B38B7 0393F4020000 add edx, [ebx+$02F4]
006B38BD 83C207 add edx, +$07
006B38C0 B908000000 mov ecx, $00000008
* Reference to: system.@LStrFromArray(String;String;PAnsiChar;Integer);
|
006B38C5 E85A0AD5FF call 00404324
006B38CA FF75EC push dword ptr [ebp-$14]
006B38CD 6848396B00 push $006B3948
006B38D2 8D45E8 lea eax, [ebp-$18]
006B38D5 0FB7D6 movzx edx, si
006B38D8 69D291000000 imul edx, edx, $00000091
006B38DE 0393F4020000 add edx, [ebx+$02F4]
006B38E4 83C211 add edx, +$11
006B38E7 B980000000 mov ecx, $00000080
* Reference to: system.@LStrFromArray(String;String;PAnsiChar;Integer);
|
006B38EC E8330AD5FF call 00404324
006B38F1 FF75E8 push dword ptr [ebp-$18]
006B38F4 8B45FC mov eax, [ebp-$04]
006B38F7 BA07000000 mov edx, $00000007
* Reference to: system.@LStrCatN;
|
006B38FC E84F0BD5FF call 00404450
006B3901 33C0 xor eax, eax
006B3903 5A pop edx
006B3904 59 pop ecx
006B3905 59 pop ecx
006B3906 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[嬪]⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -