📄 scanover.pas
字号:
unit Scanover;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TSjiegou=class(TForm)
Button3: TspSkinButton;
Panel: TspSkinPanel;
Memo: TspSkinMemo;
ScrollBar2: TspSkinScrollBar;
spDynamicSkinForm1: TspDynamicSkinForm;
procedure Button3Click(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure _PROC_0058BC64(Sender : TObject);
procedure _PROC_0058BC94(Sender : TObject);
procedure _PROC_0058BC9C(Sender : TObject);
procedure _PROC_0058BD00(Sender : TObject);
procedure _PROC_0058BE30(Sender : TObject);
procedure _PROC_0058BE60(Sender : TObject);
procedure _PROC_0058BE68(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
Sjiegou: TSjiegou;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TSjiegou.Button3Click(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0058BC24 E8BF83EFFF call 00483FE8
0058BC29 C3 ret
*)
end;
procedure TSjiegou.FormCloseQuery(Sender : TObject);
begin
(*
0058BC2C 53 push ebx
0058BC2D 8BD8 mov ebx, eax
* Reference to control TSjiegou.Memo : TspSkinMemo
|
0058BC2F 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TspSkinMemo.OFFS_0220
|
0058BC35 8B8020020000 mov eax, [eax+$0220]
* Reference to: Classes.TStrings.BeginUpdate(TStrings);
|
0058BC3B E87C0AE9FF call 0041C6BC
* Reference to control TSjiegou.Memo : TspSkinMemo
|
0058BC40 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TspSkinMemo.OFFS_0220
|
0058BC46 8B8020020000 mov eax, [eax+$0220]
0058BC4C 8B10 mov edx, [eax]
0058BC4E FF5244 call dword ptr [edx+$44]
* Reference to control TSjiegou.Memo : TspSkinMemo
|
0058BC51 8B8300030000 mov eax, [ebx+$0300]
* Reference to field TspSkinMemo.OFFS_0220
|
0058BC57 8B8020020000 mov eax, [eax+$0220]
* Reference to: Classes.TStrings.EndUpdate(TStrings);
|
0058BC5D E8160BE9FF call 0041C778
0058BC62 5B pop ebx
0058BC63 C3 ret
*)
end;
procedure TSjiegou._PROC_0058BC64(Sender : TObject);
begin
(*
0058BC64 55 push ebp
0058BC65 8BEC mov ebp, esp
0058BC67 33C0 xor eax, eax
0058BC69 55 push ebp
0058BC6A 6889BC5800 push $0058BC89
***** TRY
|
0058BC6F 64FF30 push dword ptr fs:[eax]
0058BC72 648920 mov fs:[eax], esp
0058BC75 FF05B8065E00 inc dword ptr [$005E06B8]
0058BC7B 33C0 xor eax, eax
0058BC7D 5A pop edx
0058BC7E 59 pop ecx
0058BC7F 59 pop ecx
0058BC80 648910 mov fs:[eax], edx
****** FINALLY
|
0058BC83 6890BC5800 push $0058BC90
0058BC88 C3 ret
* Reference to: System.@HandleFinally;
|
0058BC89 E90287E7FF jmp 00404390
0058BC8E EBF8 jmp 0058BC88
****** END
|
0058BC90 5D pop ebp
0058BC91 C3 ret
*)
end;
procedure TSjiegou._PROC_0058BC94(Sender : TObject);
begin
(*
0058BC94 832DB8065E0001 sub dword ptr [$005E06B8], +$01
0058BC9B C3 ret
*)
end;
procedure TSjiegou._PROC_0058BC9C(Sender : TObject);
begin
(*
0058BC9C 53 push ebx
0058BC9D 56 push esi
0058BC9E 57 push edi
0058BC9F 50 push eax
0058BCA0 B802000000 mov eax, $00000002
0058BCA5 81C404F0FFFF add esp, $FFFFF004
0058BCAB 50 push eax
0058BCAC 48 dec eax
0058BCAD 75F6 jnz 0058BCA5
0058BCAF 8B842400200000 mov eax, [esp+$2000]
0058BCB6 83C404 add esp, +$04
0058BCB9 8BF2 mov esi, edx
0058BCBB 8D3C24 lea edi, [esp]
0058BCBE 51 push ecx
0058BCBF B900080000 mov ecx, $00000800
0058BCC4 F3 rep
0058BCC5 A5 movsd
0058BCC6 59 pop ecx
0058BCC7 49 dec ecx
0058BCC8 85C9 test ecx, ecx
0058BCCA 7C2A jl 0058BCF6
0058BCCC 41 inc ecx
0058BCCD 8BD4 mov edx, esp
0058BCCF 8B18 mov ebx, [eax]
0058BCD1 0FB632 movzx esi, byte ptr [edx]
0058BCD4 33DE xor ebx, esi
0058BCD6 81E3FF000000 and ebx, $000000FF
0058BCDC 8B1C9D54AB5D00 mov ebx, [$5DAB54+ebx*4]
0058BCE3 8B30 mov esi, [eax]
0058BCE5 C1EE08 shr esi, $08
0058BCE8 81E6FFFFFF00 and esi, $00FFFFFF
0058BCEE 33DE xor ebx, esi
0058BCF0 8918 mov [eax], ebx
0058BCF2 42 inc edx
0058BCF3 49 dec ecx
0058BCF4 75D9 jnz 0058BCCF
0058BCF6 81C400200000 add esp, $00002000
0058BCFC 5F pop edi
0058BCFD 5E pop esi
0058BCFE 5B pop ebx
0058BCFF C3 ret
*)
end;
procedure TSjiegou._PROC_0058BD00(Sender : TObject);
begin
(*
0058BD00 55 push ebp
0058BD01 8BEC mov ebp, esp
0058BD03 50 push eax
0058BD04 B802000000 mov eax, $00000002
0058BD09 81C404F0FFFF add esp, $FFFFF004
0058BD0F 50 push eax
0058BD10 48 dec eax
0058BD11 75F6 jnz 0058BD09
0058BD13 8B45FC mov eax, [ebp-$04]
0058BD16 83C4F8 add esp, -$08
0058BD19 53 push ebx
0058BD1A 56 push esi
0058BD1B 57 push edi
0058BD1C 8BD9 mov ebx, ecx
0058BD1E 8955F8 mov [ebp-$08], edx
0058BD21 8945FC mov [ebp-$04], eax
0058BD24 8B7508 mov esi, [ebp+$08]
* Reference to Sjiegou
|
0058BD27 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
0058BD2A E8AD91E7FF call 00404EDC
0058BD2F 33C0 xor eax, eax
0058BD31 55 push ebp
0058BD32 681DBE5800 push $0058BE1D
***** TRY
|
0058BD37 64FF30 push dword ptr fs:[eax]
0058BD3A 648920 mov fs:[eax], esp
0058BD3D 8B45F8 mov eax, [ebp-$08]
0058BD40 33D2 xor edx, edx
0058BD42 8910 mov [eax], edx
0058BD44 C645F700 mov byte ptr [ebp-$09], $00
0058BD48 33D2 xor edx, edx
0058BD4A 55 push ebp
0058BD4B 68FDBD5800 push $0058BDFD
***** TRY
|
0058BD50 64FF32 push dword ptr fs:[edx]
0058BD53 648922 mov fs:[edx], esp
* Reference to Sjiegou
|
0058BD56 8B4DFC mov ecx, [ebp-$04]
0058BD59 B201 mov dl, $01
0058BD5B A1F0AA5400 mov eax, dword ptr [$0054AAF0]
|
0058BD60 E8E7EDFBFF call 0054AB4C
0058BD65 8BF8 mov edi, eax
0058BD67 8B4718 mov eax, [edi+$18]
0058BD6A 83F8FF cmp eax, -$01
0058BD6D 0F9545F7 setnz byte ptr [ebp-$09]
0058BD71 807DF700 cmp byte ptr [ebp-$09], $00
0058BD75 746E jz 0058BDE5
0058BD77 8BC7 mov eax, edi
|
0058BD79 E8EAEEFBFF call 0054AC68
0058BD7E 8D141E lea edx, [esi+ebx]
0058BD81 3BC2 cmp eax, edx
0058BD83 7D0E jnl 0058BD93
0058BD85 C645F700 mov byte ptr [ebp-$09], $00
0058BD89 33C0 xor eax, eax
0058BD8B 5A pop edx
0058BD8C 59 pop ecx
0058BD8D 59 pop ecx
0058BD8E 648910 mov fs:[eax], edx
0058BD91 EB74 jmp 0058BE07
0058BD93 85F6 test esi, esi
0058BD95 7F04 jnle 0058BD9B
0058BD97 8BF0 mov esi, eax
0058BD99 2BF3 sub esi, ebx
0058BD9B 8BC3 mov eax, ebx
0058BD9D 99 cdq
0058BD9E 52 push edx
0058BD9F 50 push eax
0058BDA0 33D2 xor edx, edx
0058BDA2 8BC7 mov eax, edi
|
0058BDA4 E82FEFFBFF call 0054ACD8
0058BDA9 85F6 test esi, esi
0058BDAB 7E38 jle 0058BDE5
0058BDAD 81FE00200000 cmp esi, $00002000
0058BDB3 7E07 jle 0058BDBC
0058BDB5 BB00200000 mov ebx, $00002000
0058BDBA EB02 jmp 0058BDBE
0058BDBC 8BDE mov ebx, esi
0058BDBE 8D95F7DFFFFF lea edx, [ebp+$FFFFDFF7]
0058BDC4 8BCB mov ecx, ebx
0058BDC6 8BC7 mov eax, edi
|
0058BDC8 E8B7EEFBFF call 0054AC84
0058BDCD 8BD8 mov ebx, eax
0058BDCF 8B45F8 mov eax, [ebp-$08]
0058BDD2 8BCB mov ecx, ebx
0058BDD4 8D95F7DFFFFF lea edx, [ebp+$FFFFDFF7]
* Reference to : TSjiegou._PROC_0058BC9C()
|
0058BDDA E8BDFEFFFF call 0058BC9C
0058BDDF 2BF3 sub esi, ebx
0058BDE1 85F6 test esi, esi
0058BDE3 7FC8 jnle 0058BDAD
0058BDE5 B201 mov dl, $01
0058BDE7 8BC7 mov eax, edi
0058BDE9 8B08 mov ecx, [eax]
0058BDEB FF51FC call dword ptr [ecx-$04]
0058BDEE 8B45F8 mov eax, [ebp-$08]
0058BDF1 F710 not dword ptr [eax]
0058BDF3 33C0 xor eax, eax
0058BDF5 5A pop edx
0058BDF6 59 pop ecx
0058BDF7 59 pop ecx
0058BDF8 648910 mov fs:[eax], edx
0058BDFB EB0A jmp 0058BE07
* Reference to: System.@HandleAnyException;
|
0058BDFD E9DA82E7FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
0058BE02 E83D86E7FF call 00404444
****** END
|
0058BE07 33C0 xor eax, eax
0058BE09 5A pop edx
0058BE0A 59 pop ecx
0058BE0B 59 pop ecx
0058BE0C 648910 mov fs:[eax], edx
****** FINALLY
|
0058BE0F 6824BE5800 push $0058BE24
0058BE14 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0058BE17 E8108CE7FF call 00404A2C
0058BE1C C3 ret
* Reference to: System.@HandleFinally;
|
0058BE1D E96E85E7FF jmp 00404390
0058BE22 EBF0 jmp 0058BE14
****** END
|
0058BE24 8A45F7 mov al, byte ptr [ebp-$09]
0058BE27 5F pop edi
0058BE28 5E pop esi
0058BE29 5B pop ebx
0058BE2A 8BE5 mov esp, ebp
0058BE2C 5D pop ebp
0058BE2D C20400 ret $0004
*)
end;
procedure TSjiegou._PROC_0058BE30(Sender : TObject);
begin
(*
0058BE30 55 push ebp
0058BE31 8BEC mov ebp, esp
0058BE33 33C0 xor eax, eax
0058BE35 55 push ebp
0058BE36 6855BE5800 push $0058BE55
***** TRY
|
0058BE3B 64FF30 push dword ptr fs:[eax]
0058BE3E 648920 mov fs:[eax], esp
0058BE41 FF05BC065E00 inc dword ptr [$005E06BC]
0058BE47 33C0 xor eax, eax
0058BE49 5A pop edx
0058BE4A 59 pop ecx
0058BE4B 59 pop ecx
0058BE4C 648910 mov fs:[eax], edx
****** FINALLY
|
0058BE4F 685CBE5800 push $0058BE5C
0058BE54 C3 ret
* Reference to: System.@HandleFinally;
|
0058BE55 E93685E7FF jmp 00404390
0058BE5A EBF8 jmp 0058BE54
****** END
|
0058BE5C 5D pop ebp
0058BE5D C3 ret
*)
end;
procedure TSjiegou._PROC_0058BE60(Sender : TObject);
begin
(*
0058BE60 832DBC065E0001 sub dword ptr [$005E06BC], +$01
0058BE67 C3 ret
*)
end;
procedure TSjiegou._PROC_0058BE68(Sender : TObject);
begin
(*
0058BE68 B4BE mov ah, $BE
0058BE6A 58 pop eax
0058BE6B 0000 add [eax], al
*)
end;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -