📄 unit2.pas
字号:
0048A371 A1B4564900 mov eax, dword ptr [$4956B4]
0048A376 8B00 mov eax, [eax]
0048A378 8B80A0030000 mov eax, [eax+$03A0]
0048A37E 8B8028010000 mov eax, [eax+$0128]
0048A384 E8B713F9FF call 0041B740
0048A389 50 push eax
0048A38A A1B4564900 mov eax, dword ptr [$4956B4]
0048A38F 8B00 mov eax, [eax]
0048A391 8B80A0030000 mov eax, [eax+$03A0]
0048A397 8B8028010000 mov eax, [eax+$0128]
0048A39D E88613F9FF call 0041B728
0048A3A2 50 push eax
0048A3A3 8B83E8020000 mov eax, [ebx+$02E8]
0048A3A9 50 push eax
0048A3AA 8B00 mov eax, [eax]
0048A3AC FF5054 call dword ptr [eax+$54]
0048A3AF A1B4564900 mov eax, dword ptr [$4956B4]
0048A3B4 8B00 mov eax, [eax]
0048A3B6 8B80A0030000 mov eax, [eax+$03A0]
0048A3BC 8B9028010000 mov edx, [eax+$0128]
0048A3C2 8B83D0020000 mov eax, [ebx+$02D0]
0048A3C8 8B8028010000 mov eax, [eax+$0128]
0048A3CE 8B08 mov ecx, [eax]
0048A3D0 FF5108 call dword ptr [ecx+$08]
0048A3D3 80BBE402000000 cmp byte ptr [ebx+$02E4], $00
0048A3DA 7445 jz 0048A421
0048A3DC B201 mov dl, $01
0048A3DE 8B83D8020000 mov eax, [ebx+$02D8]
0048A3E4 E84F5EFCFF call 00450238
0048A3E9 A1B4564900 mov eax, dword ptr [$4956B4]
0048A3EE 8B00 mov eax, [eax]
0048A3F0 8B80EC020000 mov eax, [eax+$02EC]
0048A3F6 8B502C mov edx, [eax+$2C]
0048A3F9 8B83D4020000 mov eax, [ebx+$02D4]
0048A3FF E8E463FEFF call 004707E8
0048A404 BA7B180000 mov edx, $0000187B
0048A409 8B83D4020000 mov eax, [ebx+$02D4]
0048A40F E8D464FEFF call 004708E8
0048A414 B201 mov dl, $01
0048A416 8B83D4020000 mov eax, [ebx+$02D4]
0048A41C E87763FEFF call 00470798
0048A421 5B pop ebx
0048A422 C3 ret
}
end ;
procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
begin
{
0048A4A8 55 push ebp
0048A4A9 8BEC mov ebp, esp
0048A4AB 53 push ebx
0048A4AC 56 push esi
0048A4AD 8BD9 mov ebx, ecx
0048A4AF 8BF0 mov esi, eax
0048A4B1 80BEE402000000 cmp byte ptr [esi+$02E4], $00
0048A4B8 0F84AC000000 jz 0048A56A
0048A4BE 8B86D4020000 mov eax, [esi+$02D4]
0048A4C4 80782400 cmp byte ptr [eax+$24], $00
0048A4C8 750C jnz 0048A4D6
0048A4CA B201 mov dl, $01
0048A4CC E8C762FEFF call 00470798
0048A4D1 E994000000 jmp 0048A56A
0048A4D6 8D86DC020000 lea eax, [esi+$02DC]
0048A4DC C70001800000 mov dword ptr [eax], $00008001
0048A4E2 8B450C mov eax, [ebp+$0C]
0048A4E5 C1E010 shl eax, $10
0048A4E8 8B96D0020000 mov edx, [esi+$02D0]
0048A4EE 8B4A38 mov ecx, [edx+$38]
0048A4F1 99 cdq
0048A4F2 F7F9 idiv ecx
0048A4F4 8D96E0020000 lea edx, [esi+$02E0]
0048A4FA 668902 mov [edx], ax
0048A4FD 8B4508 mov eax, [ebp+$08]
0048A500 C1E010 shl eax, $10
0048A503 8B96D0020000 mov edx, [esi+$02D0]
0048A509 8B4A3C mov ecx, [edx+$3C]
0048A50C 99 cdq
0048A50D F7F9 idiv ecx
0048A50F 8D96E2020000 lea edx, [esi+$02E2]
0048A515 668902 mov [edx], ax
0048A518 8D96DC020000 lea edx, [esi+$02DC]
0048A51E 8B86D4020000 mov eax, [esi+$02D4]
0048A524 8B8080000000 mov eax, [eax+$0080]
0048A52A B908000000 mov ecx, $00000008
0048A52F E8005DFEFF call 00470234
0048A534 33C9 xor ecx, ecx
0048A536 8ACB mov cl, bl
0048A538 03C9 add ecx, ecx
0048A53A B802000000 mov eax, $00000002
0048A53F D3E0 shl eax, cl
0048A541 0D00800000 or eax, $00008000
0048A546 8D96DC020000 lea edx, [esi+$02DC]
0048A54C 8902 mov [edx], eax
0048A54E 8D96DC020000 lea edx, [esi+$02DC]
0048A554 8B86D4020000 mov eax, [esi+$02D4]
0048A55A 8B8080000000 mov eax, [eax+$0080]
0048A560 B908000000 mov ecx, $00000008
0048A565 E8CA5CFEFF call 00470234
0048A56A 5E pop esi
0048A56B 5B pop ebx
0048A56C 5D pop ebp
0048A56D C20C ret $0C
}
end ;
procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
begin
{
0048A594 55 push ebp
0048A595 8BEC mov ebp, esp
0048A597 53 push ebx
0048A598 56 push esi
0048A599 8BD9 mov ebx, ecx
0048A59B 8BF0 mov esi, eax
0048A59D 80BEE402000000 cmp byte ptr [esi+$02E4], $00
0048A5A4 0F84AC000000 jz 0048A656
0048A5AA 8B86D4020000 mov eax, [esi+$02D4]
0048A5B0 80782400 cmp byte ptr [eax+$24], $00
0048A5B4 750C jnz 0048A5C2
0048A5B6 B201 mov dl, $01
0048A5B8 E8DB61FEFF call 00470798
0048A5BD E994000000 jmp 0048A656
0048A5C2 8D86DC020000 lea eax, [esi+$02DC]
0048A5C8 C70001800000 mov dword ptr [eax], $00008001
0048A5CE 8B450C mov eax, [ebp+$0C]
0048A5D1 C1E010 shl eax, $10
0048A5D4 8B96D0020000 mov edx, [esi+$02D0]
0048A5DA 8B4A38 mov ecx, [edx+$38]
0048A5DD 99 cdq
0048A5DE F7F9 idiv ecx
0048A5E0 8D96E0020000 lea edx, [esi+$02E0]
0048A5E6 668902 mov [edx], ax
0048A5E9 8B4508 mov eax, [ebp+$08]
0048A5EC C1E010 shl eax, $10
0048A5EF 8B96D0020000 mov edx, [esi+$02D0]
0048A5F5 8B4A3C mov ecx, [edx+$3C]
0048A5F8 99 cdq
0048A5F9 F7F9 idiv ecx
0048A5FB 8D96E2020000 lea edx, [esi+$02E2]
0048A601 668902 mov [edx], ax
0048A604 8D96DC020000 lea edx, [esi+$02DC]
0048A60A 8B86D4020000 mov eax, [esi+$02D4]
0048A610 8B8080000000 mov eax, [eax+$0080]
0048A616 B908000000 mov ecx, $00000008
0048A61B E8145CFEFF call 00470234
0048A620 33C9 xor ecx, ecx
0048A622 8ACB mov cl, bl
0048A624 03C9 add ecx, ecx
0048A626 B804000000 mov eax, $00000004
0048A62B D3E0 shl eax, cl
0048A62D 0D00800000 or eax, $00008000
0048A632 8D96DC020000 lea edx, [esi+$02DC]
0048A638 8902 mov [edx], eax
0048A63A 8D96DC020000 lea edx, [esi+$02DC]
0048A640 8B86D4020000 mov eax, [esi+$02D4]
0048A646 8B8080000000 mov eax, [eax+$0080]
0048A64C B908000000 mov ecx, $00000008
0048A651 E8DE5BFEFF call 00470234
0048A656 5E pop esi
0048A657 5B pop ebx
0048A658 5D pop ebp
0048A659 C20C ret $0C
}
end ;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
{
0048A65C 80B8EC02000000 cmp byte ptr [eax+$02EC], $00
0048A663 741B jz 0048A680
0048A665 C680EC02000000 mov byte ptr [eax+$02EC], $00
0048A66C A1B4564900 mov eax, dword ptr [$4956B4]
0048A671 8B00 mov eax, [eax]
0048A673 8B80EC020000 mov eax, [eax+$02EC]
0048A679 B201 mov dl, $01
0048A67B E81861FEFF call 00470798
0048A680 C3 ret
}
end ;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -