📄 unit2.pas
字号:
00489449 50 push eax
0048944A 8B00 mov eax, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_54
|
0048944C FF5054 call dword ptr [eax+$54]
0048944F A1386B4900 mov eax, dword ptr [$496B38]
00489454 8B00 mov eax, [eax]
00489456 8B8084030000 mov eax, [eax+$0384]
0048945C 8B9028010000 mov edx, [eax+$0128]
* Reference to control TForm2.Image1 : TImage
|
00489462 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TImage.OFFS_0128
|
00489468 8B8028010000 mov eax, [eax+$0128]
0048946E 8B08 mov ecx, [eax]
* Possible reference to virtual method <UnknownType>.OFFS_08
|
00489470 FF5108 call dword ptr [ecx+$08]
* Reference to field TForm2.OFFS_02E4
|
00489473 80BBE402000000 cmp byte ptr [ebx+$02E4], $00
0048947A 7445 jz 004894C1
0048947C B201 mov dl, $01
* Reference to control TForm2.Timer1 : TTimer
|
0048947E 8B83D8020000 mov eax, [ebx+$02D8]
|
00489484 E86394FCFF call 004528EC
00489489 A1386B4900 mov eax, dword ptr [$496B38]
0048948E 8B00 mov eax, [eax]
00489490 8B80EC020000 mov eax, [eax+$02EC]
00489496 8B502C mov edx, [eax+$2C]
* Reference to control TForm2.Client2 : TClientSocket
|
00489499 8B83D4020000 mov eax, [ebx+$02D4]
|
0048949F E82091FEFF call 004725C4
004894A4 BA7B180000 mov edx, $0000187B
* Reference to control TForm2.Client2 : TClientSocket
|
004894A9 8B83D4020000 mov eax, [ebx+$02D4]
|
004894AF E81092FEFF call 004726C4
004894B4 B201 mov dl, $01
* Reference to control TForm2.Client2 : TClientSocket
|
004894B6 8B83D4020000 mov eax, [ebx+$02D4]
|
004894BC E8B390FEFF call 00472574
004894C1 5B pop ebx
004894C2 C3 ret
}
end ;
procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
begin
{
00489548 55 push ebp
00489549 8BEC mov ebp, esp
0048954B 53 push ebx
0048954C 56 push esi
0048954D 8BD9 mov ebx, ecx
0048954F 8BF0 mov esi, eax
* Reference to field TForm2.OFFS_02E4
|
00489551 80BEE402000000 cmp byte ptr [esi+$02E4], $00
00489558 0F84AC000000 jz 0048960A
* Reference to control TForm2.Client2 : TClientSocket
|
0048955E 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0024
|
00489564 80782400 cmp byte ptr [eax+$24], $00
00489568 750C jnz 00489576
0048956A B201 mov dl, $01
|
0048956C E80390FEFF call 00472574
00489571 E994000000 jmp 0048960A
* Reference to field TForm2.OFFS_02DC
|
00489576 8D86DC020000 lea eax, [esi+$02DC]
0048957C C70001800000 mov dword ptr [eax], $00008001
00489582 8B450C mov eax, [ebp+$0C]
00489585 C1E010 shl eax, $10
* Reference to control TForm2.Image1 : TImage
|
00489588 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TImage.OFFS_0038
|
0048958E 8B4A38 mov ecx, [edx+$38]
00489591 99 cdq
00489592 F7F9 idiv ecx
* Reference to field TForm2.OFFS_02E0
|
00489594 8D96E0020000 lea edx, [esi+$02E0]
0048959A 668902 mov [edx], ax
0048959D 8B4508 mov eax, [ebp+$08]
004895A0 C1E010 shl eax, $10
* Reference to control TForm2.Image1 : TImage
|
004895A3 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TImage.OFFS_003C
|
004895A9 8B4A3C mov ecx, [edx+$3C]
004895AC 99 cdq
004895AD F7F9 idiv ecx
* Reference to field TForm2.OFFS_02E2
|
004895AF 8D96E2020000 lea edx, [esi+$02E2]
004895B5 668902 mov [edx], ax
* Reference to field TForm2.OFFS_02DC
|
004895B8 8D96DC020000 lea edx, [esi+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
004895BE 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
004895C4 8B8080000000 mov eax, [eax+$0080]
004895CA B908000000 mov ecx, $00000008
|
004895CF E83C8AFEFF call 00472010
004895D4 33C9 xor ecx, ecx
004895D6 8ACB mov cl, bl
004895D8 03C9 add ecx, ecx
004895DA B802000000 mov eax, $00000002
004895DF D3E0 shl eax, cl
004895E1 0D00800000 or eax, $00008000
* Reference to field TForm2.OFFS_02DC
|
004895E6 8D96DC020000 lea edx, [esi+$02DC]
004895EC 8902 mov [edx], eax
* Reference to field TForm2.OFFS_02DC
|
004895EE 8D96DC020000 lea edx, [esi+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
004895F4 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
004895FA 8B8080000000 mov eax, [eax+$0080]
00489600 B908000000 mov ecx, $00000008
|
00489605 E8068AFEFF call 00472010
0048960A 5E pop esi
0048960B 5B pop ebx
0048960C 5D pop ebp
0048960D C20C ret $0C
}
end ;
procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer);
begin
{
00489634 55 push ebp
00489635 8BEC mov ebp, esp
00489637 53 push ebx
00489638 56 push esi
00489639 8BD9 mov ebx, ecx
0048963B 8BF0 mov esi, eax
* Reference to field TForm2.OFFS_02E4
|
0048963D 80BEE402000000 cmp byte ptr [esi+$02E4], $00
00489644 0F84AC000000 jz 004896F6
* Reference to control TForm2.Client2 : TClientSocket
|
0048964A 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0024
|
00489650 80782400 cmp byte ptr [eax+$24], $00
00489654 750C jnz 00489662
00489656 B201 mov dl, $01
|
00489658 E8178FFEFF call 00472574
0048965D E994000000 jmp 004896F6
* Reference to field TForm2.OFFS_02DC
|
00489662 8D86DC020000 lea eax, [esi+$02DC]
00489668 C70001800000 mov dword ptr [eax], $00008001
0048966E 8B450C mov eax, [ebp+$0C]
00489671 C1E010 shl eax, $10
* Reference to control TForm2.Image1 : TImage
|
00489674 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TImage.OFFS_0038
|
0048967A 8B4A38 mov ecx, [edx+$38]
0048967D 99 cdq
0048967E F7F9 idiv ecx
* Reference to field TForm2.OFFS_02E0
|
00489680 8D96E0020000 lea edx, [esi+$02E0]
00489686 668902 mov [edx], ax
00489689 8B4508 mov eax, [ebp+$08]
0048968C C1E010 shl eax, $10
* Reference to control TForm2.Image1 : TImage
|
0048968F 8B96D0020000 mov edx, [esi+$02D0]
* Reference to field TImage.OFFS_003C
|
00489695 8B4A3C mov ecx, [edx+$3C]
00489698 99 cdq
00489699 F7F9 idiv ecx
* Reference to field TForm2.OFFS_02E2
|
0048969B 8D96E2020000 lea edx, [esi+$02E2]
004896A1 668902 mov [edx], ax
* Reference to field TForm2.OFFS_02DC
|
004896A4 8D96DC020000 lea edx, [esi+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
004896AA 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
004896B0 8B8080000000 mov eax, [eax+$0080]
004896B6 B908000000 mov ecx, $00000008
|
004896BB E85089FEFF call 00472010
004896C0 33C9 xor ecx, ecx
004896C2 8ACB mov cl, bl
004896C4 03C9 add ecx, ecx
004896C6 B804000000 mov eax, $00000004
004896CB D3E0 shl eax, cl
004896CD 0D00800000 or eax, $00008000
* Reference to field TForm2.OFFS_02DC
|
004896D2 8D96DC020000 lea edx, [esi+$02DC]
004896D8 8902 mov [edx], eax
* Reference to field TForm2.OFFS_02DC
|
004896DA 8D96DC020000 lea edx, [esi+$02DC]
* Reference to control TForm2.Client2 : TClientSocket
|
004896E0 8B86D4020000 mov eax, [esi+$02D4]
* Reference to field TClientSocket.OFFS_0080
|
004896E6 8B8080000000 mov eax, [eax+$0080]
004896EC B908000000 mov ecx, $00000008
|
004896F1 E81A89FEFF call 00472010
004896F6 5E pop esi
004896F7 5B pop ebx
004896F8 5D pop ebp
004896F9 C20C ret $0C
}
end ;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
{
* Reference to field TForm2.OFFS_02EC
|
004896FC 80B8EC02000000 cmp byte ptr [eax+$02EC], $00
00489703 741B jz 00489720
* Reference to field TForm2.OFFS_02EC
|
00489705 C680EC02000000 mov byte ptr [eax+$02EC], $00
0048970C A1386B4900 mov eax, dword ptr [$496B38]
00489711 8B00 mov eax, [eax]
00489713 8B80EC020000 mov eax, [eax+$02EC]
00489719 B201 mov dl, $01
|
0048971B E8548EFEFF call 00472574
00489720 C3 ret
}
end ;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -