📄 fund.pas
字号:
*)
end;
procedure TfrmFund.PaintBoxJGDblClick(Sender : TObject);
begin
(*
0069EA68 53 push ebx
0069EA69 8BD8 mov ebx, eax
0069EA6B 6A00 push $00
0069EA6D 6A0D push $0D
0069EA6F 6800010000 push $00000100
0069EA74 8BC3 mov eax, ebx
* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
0069EA76 E80D13DAFF call 0043FD88
0069EA7B 50 push eax
* Reference to: user32.PostMessageA()
|
0069EA7C E8D7A1D6FF call 00408C58
0069EA81 5B pop ebx
0069EA82 C3 ret
*)
end;
procedure TfrmFund.Image1Click(Sender : TObject);
begin
(*
0069EB18 53 push ebx
0069EB19 8BD8 mov ebx, eax
* Reference to field TfrmFund.OFFS_03BC : String
|
0069EB1B 83BBBC03000000 cmp dword ptr [ebx+$03BC], +$00
0069EB22 740B jz 0069EB2F
* Reference to field TfrmFund.OFFS_03BC : String
|
0069EB24 8B83BC030000 mov eax, [ebx+$03BC]
* Reference to: Unit_00651A88.Proc_006543DC
|
0069EB2A E8AD58FBFF call 006543DC
0069EB2F 5B pop ebx
0069EB30 C3 ret
*)
end;
procedure TfrmFund.PaintBox3Paint(Sender : TObject);
begin
(*
* Reference to field TfrmFund.OFFS_03CC
|
0069EB6C 8B80CC030000 mov eax, [eax+$03CC]
* Reference to: Unit_005B3DAC.Proc_005B3E68
|
0069EB72 E8F152F1FF call 005B3E68
0069EB77 C3 ret
*)
end;
procedure TfrmFund.PaintBox3MouseDown(Sender : TObject);
begin
(*
0069EB78 55 push ebp
0069EB79 8BEC mov ebp, esp
0069EB7B 83C4F8 add esp, -$08
0069EB7E 53 push ebx
0069EB7F 8BD8 mov ebx, eax
0069EB81 8D4DF8 lea ecx, [ebp-$08]
0069EB84 8B5508 mov edx, [ebp+$08]
0069EB87 8B450C mov eax, [ebp+$0C]
* Reference to : TBitmap32._PROC_00529514()
|
0069EB8A E885A9E8FF call 00529514
0069EB8F 8D55F8 lea edx, [ebp-$08]
* Reference to field TfrmFund.OFFS_03CC
|
0069EB92 8B83CC030000 mov eax, [ebx+$03CC]
* Reference to: Unit_005B3DAC.Proc_005B40C0
|
0069EB98 E82355F1FF call 005B40C0
0069EB9D 5B pop ebx
0069EB9E 59 pop ecx
0069EB9F 59 pop ecx
0069EBA0 5D pop ebp
0069EBA1 C20C00 ret $000C
*)
end;
procedure TfrmFund.PaintBox3MouseUp(Sender : TObject);
begin
(*
0069EBA4 55 push ebp
0069EBA5 8BEC mov ebp, esp
0069EBA7 83C4F8 add esp, -$08
0069EBAA 53 push ebx
0069EBAB 8BD8 mov ebx, eax
0069EBAD 8D4DF8 lea ecx, [ebp-$08]
0069EBB0 8B5508 mov edx, [ebp+$08]
0069EBB3 8B450C mov eax, [ebp+$0C]
* Reference to : TBitmap32._PROC_00529514()
|
0069EBB6 E859A9E8FF call 00529514
0069EBBB 8D55F8 lea edx, [ebp-$08]
* Reference to field TfrmFund.OFFS_03CC
|
0069EBBE 8B83CC030000 mov eax, [ebx+$03CC]
* Reference to: Unit_005B3DAC.Proc_005B411C
|
0069EBC4 E85355F1FF call 005B411C
0069EBC9 5B pop ebx
0069EBCA 59 pop ecx
0069EBCB 59 pop ecx
0069EBCC 5D pop ebp
0069EBCD C20C00 ret $000C
*)
end;
procedure TfrmFund.TabSet1Change(Sender : TObject);
begin
(*
0069EBD0 55 push ebp
0069EBD1 8BEC mov ebp, esp
* Reference to field TfrmFund.OFFS_0365 : Byte
|
0069EBD3 888865030000 mov [eax+$0365], cl
0069EBD9 33D2 xor edx, edx
* Reference to : TfrmFund.Proc_0069C91C()
|
0069EBDB E83CDDFFFF call 0069C91C
0069EBE0 8B4508 mov eax, [ebp+$08]
0069EBE3 C60001 mov byte ptr [eax], $01
0069EBE6 5D pop ebp
0069EBE7 C20400 ret $0004
*)
end;
procedure TfrmFund._PROC_0069C1F4(Sender : TObject);
begin
(*
0069C1F4 55 push ebp
0069C1F5 8BEC mov ebp, esp
0069C1F7 83C4F0 add esp, -$10
0069C1FA 53 push ebx
0069C1FB 56 push esi
0069C1FC 57 push edi
0069C1FD 8BF9 mov edi, ecx
0069C1FF 8955F8 mov [ebp-$08], edx
0069C202 8945FC mov [ebp-$04], eax
0069C205 8BC7 mov eax, edi
* Reference to: Unit_00409434.Proc_00409FF8
|
0069C207 E8ECDDD6FF call 00409FF8
0069C20C 8945F0 mov [ebp-$10], eax
0069C20F 8B5D0C mov ebx, [ebp+$0C]
0069C212 8B7508 mov esi, [ebp+$08]
0069C215 8B45F8 mov eax, [ebp-$08]
0069C218 8B00 mov eax, [eax]
0069C21A 8B550C mov edx, [ebp+$0C]
0069C21D 035508 add edx, [ebp+$08]
0069C220 D1EA shr edx, 1
0069C222 0FAFD7 imul edx, edi
0069C225 03C2 add eax, edx
0069C227 8945F4 mov [ebp-$0C], eax
0069C22A EB01 jmp 0069C22D
0069C22C 43 inc ebx
0069C22D 8B55F8 mov edx, [ebp-$08]
0069C230 8B12 mov edx, [edx]
0069C232 8BC3 mov eax, ebx
0069C234 0FAFC7 imul eax, edi
0069C237 03D0 add edx, eax
0069C239 8B4DF4 mov ecx, [ebp-$0C]
0069C23C 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmFund._PROC_0069C608()
|
0069C23F E8C4030000 call 0069C608
0069C244 85C0 test eax, eax
0069C246 7CE4 jl 0069C22C
0069C248 EB01 jmp 0069C24B
0069C24A 4E dec esi
0069C24B 8B55F8 mov edx, [ebp-$08]
0069C24E 8B12 mov edx, [edx]
0069C250 8BC6 mov eax, esi
0069C252 0FAFC7 imul eax, edi
0069C255 03D0 add edx, eax
0069C257 8B4DF4 mov ecx, [ebp-$0C]
0069C25A 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmFund._PROC_0069C608()
|
0069C25D E8A6030000 call 0069C608
0069C262 85C0 test eax, eax
0069C264 7FE4 jnle 0069C24A
0069C266 3BF3 cmp esi, ebx
0069C268 7C7F jl 0069C2E9
0069C26A 8B45F8 mov eax, [ebp-$08]
0069C26D 8B00 mov eax, [eax]
0069C26F 8BD3 mov edx, ebx
0069C271 0FAFD7 imul edx, edi
0069C274 03C2 add eax, edx
0069C276 8B55F0 mov edx, [ebp-$10]
0069C279 8BCF mov ecx, edi
* Reference to: system.Move(void;void;void;void;Integer);
|
0069C27B E8F867D6FF call 00402A78
0069C280 8B45F8 mov eax, [ebp-$08]
0069C283 8B00 mov eax, [eax]
0069C285 8BD0 mov edx, eax
0069C287 8BCB mov ecx, ebx
0069C289 0FAFCF imul ecx, edi
0069C28C 03D1 add edx, ecx
0069C28E 52 push edx
0069C28F 8B55F8 mov edx, [ebp-$08]
0069C292 8BD6 mov edx, esi
0069C294 0FAFD7 imul edx, edi
0069C297 03C2 add eax, edx
0069C299 8BCF mov ecx, edi
0069C29B 5A pop edx
* Reference to: system.Move(void;void;void;void;Integer);
|
0069C29C E8D767D6FF call 00402A78
0069C2A1 8B55F8 mov edx, [ebp-$08]
0069C2A4 8B12 mov edx, [edx]
0069C2A6 8BC6 mov eax, esi
0069C2A8 0FAFC7 imul eax, edi
0069C2AB 03D0 add edx, eax
0069C2AD 8B45F0 mov eax, [ebp-$10]
0069C2B0 8BCF mov ecx, edi
* Reference to: system.Move(void;void;void;void;Integer);
|
0069C2B2 E8C167D6FF call 00402A78
0069C2B7 8B450C mov eax, [ebp+$0C]
0069C2BA 034508 add eax, [ebp+$08]
0069C2BD D1E8 shr eax, 1
0069C2BF 3BD8 cmp ebx, eax
0069C2C1 7511 jnz 0069C2D4
0069C2C3 8B45F8 mov eax, [ebp-$08]
0069C2C6 8B00 mov eax, [eax]
0069C2C8 8BD6 mov edx, esi
0069C2CA 0FAFD7 imul edx, edi
0069C2CD 03C2 add eax, edx
0069C2CF 8945F4 mov [ebp-$0C], eax
0069C2D2 EB13 jmp 0069C2E7
0069C2D4 3BC6 cmp eax, esi
0069C2D6 750F jnz 0069C2E7
0069C2D8 8B45F8 mov eax, [ebp-$08]
0069C2DB 8B00 mov eax, [eax]
0069C2DD 8BD3 mov edx, ebx
0069C2DF 0FAFD7 imul edx, edi
0069C2E2 03C2 add eax, edx
0069C2E4 8945F4 mov [ebp-$0C], eax
0069C2E7 43 inc ebx
0069C2E8 4E dec esi
0069C2E9 3BF3 cmp esi, ebx
0069C2EB 0F8D3CFFFFFF jnl 0069C22D
0069C2F1 3B750C cmp esi, [ebp+$0C]
0069C2F4 7E12 jle 0069C308
0069C2F6 8B450C mov eax, [ebp+$0C]
0069C2F9 50 push eax
0069C2FA 56 push esi
0069C2FB 8B55F8 mov edx, [ebp-$08]
0069C2FE 8BCF mov ecx, edi
0069C300 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmFund._PROC_0069C1F4()
|
0069C303 E8ECFEFFFF call 0069C1F4
0069C308 895D0C mov [ebp+$0C], ebx
0069C30B 3B5D08 cmp ebx, [ebp+$08]
0069C30E 0F8CFBFEFFFF jl 0069C20F
0069C314 8B45F0 mov eax, [ebp-$10]
* Reference to: system.@FreeMem;
|
0069C317 E86465D6FF call 00402880
0069C31C 5F pop edi
0069C31D 5E pop esi
0069C31E 5B pop ebx
0069C31F 8BE5 mov esp, ebp
0069C321 5D pop ebp
0069C322 C20800 ret $0008
*)
end;
procedure TfrmFund._PROC_0069C328(Sender : TObject);
begin
(*
0069C328 55 push ebp
0069C329 8BEC mov ebp, esp
0069C32B 83C4D8 add esp, -$28
0069C32E 53 push ebx
0069C32F 56 push esi
0069C330 57 push edi
0069C331 33DB xor ebx, ebx
0069C333 895DD8 mov [ebp-$28], ebx
0069C336 895DE0 mov [ebp-$20], ebx
0069C339 8BF1 mov esi, ecx
0069C33B 8BD8 mov ebx, eax
0069C33D 33C0 xor eax, eax
0069C33F 55 push ebp
* Possible String Reference to: '⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -