📄 lmain.pas
字号:
00484857 014C7415 add [esp+esi*2+$15], ecx
0048485B EB06 jmp 00484863
0048485D 55 push ebp
0048485E 44 inc esp
0048485F 55 push ebp
00484860 03A809E85426 add ebp, [eax+$2654E809]
00484866 F8 clc
00484867 FFEB jmp bx
00484869 06 push es
0048486A 55 push ebp
0048486B 44 inc esp
0048486C 55 push ebp
0048486D 03A809EB0655 add ebp, [eax+$5506EB09]
00484873 44 inc esp
00484874 55 push ebp
00484875 03A809740675 add ebp, [eax+$75067409]
0048487B 04F4 add al, -$0C
0048487D EB04 jmp 00484883
0048487F E88B45FC8B call 8C448E0F
00484884 80670200 and byte ptr [edi+$02], $00
00484888 0033 add [ebx], dh
0048488A D25250 rcl byte ptr [edx+$50], cl
0048488D 8D45EC lea eax, [ebp-$14]
|
00484890 E80B63F8FF call 0040ABA0
00484895 8B55EC mov edx, [ebp-$14]
00484898 8B8624030000 mov eax, [esi+$0324]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0048489E E8F550FCFF call 00449998
004848A3 8B86F8020000 mov eax, [esi+$02F8]
004848A9 8B8090000000 mov eax, [eax+$0090]
004848AF 8A5008 mov dl, byte ptr [eax+$08]
004848B2 8B8630030000 mov eax, [esi+$0330]
004848B8 8B08 mov ecx, [eax]
004848BA FF91CC000000 call dword ptr [ecx+$00CC]
* Possible String Reference to: '连接 ('
|
004848C0 680C4B4800 push $00484B0C
004848C5 8B86F8020000 mov eax, [esi+$02F8]
004848CB 8B8090000000 mov eax, [eax+$0090]
* Reference to: ADODB.TADOConnection.GetCommandCount(TADOConnection):Integer;
|
004848D1 E87291FEFF call 0046DA48
004848D6 8D55E4 lea edx, [ebp-$1C]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004848D9 E8D661F8FF call 0040AAB4
004848DE FF75E4 push dword ptr [ebp-$1C]
004848E1 681C4B4800 push $00484B1C
004848E6 8D45E8 lea eax, [ebp-$18]
004848E9 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
004848EE E8F507F8FF call 004050E8
004848F3 8B55E8 mov edx, [ebp-$18]
004848F6 8B8630030000 mov eax, [esi+$0330]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004848FC E89750FCFF call 00449998
00484901 8D55DC lea edx, [ebp-$24]
00484904 A1BC0B4900 mov eax, dword ptr [$00490BBC]
00484909 8B00 mov eax, [eax]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
0048490B E8A461F8FF call 0040AAB4
00484910 FF75DC push dword ptr [ebp-$24]
00484913 68284B4800 push $00484B28
00484918 8D55D8 lea edx, [ebp-$28]
0048491B A1840B4900 mov eax, dword ptr [$00490B84]
00484920 8B00 mov eax, [eax]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00484922 E88D61F8FF call 0040AAB4
00484927 FF75D8 push dword ptr [ebp-$28]
0048492A 8D45E0 lea eax, [ebp-$20]
0048492D BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00484932 E8B107F8FF call 004050E8
00484937 8B55E0 mov edx, [ebp-$20]
0048493A 8B862C030000 mov eax, [esi+$032C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00484940 E85350FCFF call 00449998
00484945 8B8604030000 mov eax, [esi+$0304]
0048494B 8B8020020000 mov eax, [eax+$0220]
00484951 8B10 mov edx, [eax]
00484953 FF5214 call dword ptr [edx+$14]
00484956 3DC8000000 cmp eax, $000000C8
0048495B 7E0E jle 0048496B
0048495D 8B8604030000 mov eax, [esi+$0304]
00484963 8B10 mov edx, [eax]
00484965 FF92E0000000 call dword ptr [edx+$00E0]
0048496B A1740F4900 mov eax, dword ptr [$00490F74]
00484970 50 push eax
* Reference to: kernel32.EnterCriticalSection()
|
00484971 E83625F8FF call 00406EAC
00484976 EB06 jmp 0048497E
00484978 55 push ebp
00484979 44 inc esp
0048497A 55 push ebp
0048497B 03A809740675 add ebp, [eax+$75067409]
00484981 04F4 add al, -$0C
00484983 EB04 jmp 00484989
00484985 E88D55D4A1 call A21C9F17
0048498A BC0E4900E8 mov esp, $E800490E
0048498F 3920 cmp [eax], esp
00484991 F8 clc
00484992 FF8B45D48078 dec dword ptr [ebx+$7880D445]
00484998 025574 add dl, byte ptr [ebp+$74]
0048499B 15EB065544 adc eax, $445506EB
004849A0 55 push ebp
004849A1 03A809E81325 add ebp, [eax+$2513E809]
004849A7 F8 clc
004849A8 FFEB jmp bx
004849AA 06 push es
004849AB 55 push ebp
004849AC 44 inc esp
004849AD 55 push ebp
004849AE 03A809EB0655 add ebp, [eax+$5506EB09]
004849B4 44 inc esp
004849B5 55 push ebp
004849B6 03A809740675 add ebp, [eax+$75067409]
004849BC 04F4 add al, -$0C
004849BE EB04 jmp 004849C4
004849C0 E833C05568 call 689E09F8
004849C5 364A dec edx
004849C7 48 dec eax
004849C8 0064FF30 add [edi+edi*8+$30], ah
004849CC 648920 mov fs:[eax], esp
004849CF A1000D4900 mov eax, dword ptr [$00490D00]
004849D4 8B00 mov eax, [eax]
004849D6 8B10 mov edx, [eax]
004849D8 FF5214 call dword ptr [edx+$14]
004849DB 48 dec eax
004849DC 85C0 test eax, eax
004849DE 7C31 jl 00484A11
004849E0 40 inc eax
004849E1 8945F8 mov [ebp-$08], eax
004849E4 33DB xor ebx, ebx
004849E6 8D4DD0 lea ecx, [ebp-$30]
004849E9 A1000D4900 mov eax, dword ptr [$00490D00]
004849EE 8B00 mov eax, [eax]
004849F0 8BD3 mov edx, ebx
004849F2 8B38 mov edi, [eax]
004849F4 FF570C call dword ptr [edi+$0C]
004849F7 8B55D0 mov edx, [ebp-$30]
004849FA 8B8604030000 mov eax, [esi+$0304]
00484A00 8B8020020000 mov eax, [eax+$0220]
00484A06 8B08 mov ecx, [eax]
00484A08 FF5138 call dword ptr [ecx+$38]
00484A0B 43 inc ebx
00484A0C FF4DF8 dec dword ptr [ebp-$08]
00484A0F 75D5 jnz 004849E6
00484A11 A1000D4900 mov eax, dword ptr [$00490D00]
00484A16 8B00 mov eax, [eax]
00484A18 8B10 mov edx, [eax]
00484A1A FF5244 call dword ptr [edx+$44]
00484A1D 33C0 xor eax, eax
00484A1F 5A pop edx
00484A20 59 pop ecx
00484A21 59 pop ecx
00484A22 648910 mov fs:[eax], edx
****** FINALLY
|
00484A25 683D4A4800 push $00484A3D
00484A2A A1740F4900 mov eax, dword ptr [$00490F74]
00484A2F 50 push eax
* Reference to: kernel32.LeaveCriticalSection()
|
00484A30 E8EF25F8FF call 00407024
00484A35 C3 ret
* Reference to: System.@HandleFinally;
|
00484A36 E985FCF7FF jmp 004046C0
00484A3B EBED jmp 00484A2A
****** END
|
00484A3D 33DB xor ebx, ebx
00484A3F A13C0F4900 mov eax, dword ptr [$00490F3C]
00484A44 8B00 mov eax, [eax]
00484A46 8B10 mov edx, [eax]
00484A48 FF5214 call dword ptr [edx+$14]
00484A4B 3BD8 cmp ebx, eax
00484A4D 7D31 jnl 00484A80
00484A4F A13C0F4900 mov eax, dword ptr [$00490F3C]
00484A54 8B00 mov eax, [eax]
00484A56 8BD3 mov edx, ebx
00484A58 8B08 mov ecx, [eax]
00484A5A FF5118 call dword ptr [ecx+$18]
00484A5D 50 push eax
* Reference to: kernel32.GetTickCount()
|
00484A5E E85925F8FF call 00406FBC
00484A63 5A pop edx
00484A64 2BC2 sub eax, edx
00484A66 3D60EA0000 cmp eax, $0000EA60
00484A6B 7610 jbe 00484A7D
00484A6D A13C0F4900 mov eax, dword ptr [$00490F3C]
00484A72 8B00 mov eax, [eax]
00484A74 8BD3 mov edx, ebx
00484A76 8B08 mov ecx, [eax]
00484A78 FF5148 call dword ptr [ecx+$48]
00484A7B EBC2 jmp 00484A3F
00484A7D 43 inc ebx
00484A7E EBBF jmp 00484A3F
00484A80 EB06 jmp 00484A88
00484A82 55 push ebp
00484A83 44 inc esp
00484A84 55 push ebp
00484A85 03A809740675 add ebp, [eax+$75067409]
00484A8B 04F4 add al, -$0C
00484A8D EB04 jmp 00484A93
00484A8F E88D55CCA1 call A214A021
00484A94 BC0E4900E8 mov esp, $E800490E
00484A99 2F das
00484A9A 1F pop ds
00484A9B F8 clc
00484A9C FF8B45CC8078 dec dword ptr [ebx+$7880CC45]
00484AA2 034574 add eax, [ebp+$74]
00484AA5 15EB065544 adc eax, $445506EB
00484AAA 55 push ebp
00484AAB 03A809E80924 add ebp, [eax+$2409E809]
00484AB1 F8 clc
00484AB2 FFEB jmp bx
00484AB4 06 push es
00484AB5 55 push ebp
00484AB6 44 inc esp
00484AB7 55 push ebp
00484AB8 03A809EB0655 add ebp, [eax+$5506EB09]
00484ABE 44 inc esp
00484ABF 55 push ebp
00484AC0 03A809740675 add ebp, [eax+$75067409]
00484AC6 04F4 add al, -$0C
00484AC8 EB04 jmp 00484ACE
00484ACA E88B45FCE8 call E944905A
00484ACF BD1400008B mov ebp, $8B000014
00484AD4 45 inc ebp
00484AD5 FC cld
|
00484AD6 E8053D0000 call 004887E0
00484ADB 33C0 xor eax, eax
00484ADD 5A pop edx
00484ADE 59 pop ecx
00484ADF 59 pop ecx
00484AE0 648910 mov fs:[eax], edx
****** FINALLY
|
00484AE3 68FD4A4800 push $00484AFD
00484AE8 8D45CC lea eax, [ebp-$34]
00484AEB BA0B000000 mov edx, $0000000B
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00484AF0 E89702F8FF call 00404D8C
00484AF5 C3 ret
* Reference to: System.@HandleFinally;
|
00484AF6 E9C5FBF7FF jmp 004046C0
00484AFB EBEB jmp 00484AE8
****** END
|
00484AFD 5F pop edi
00484AFE 5E pop esi
00484AFF 5B pop ebx
00484B00 8BE5 mov esp, ebp
00484B02 5D pop ebp
00484B03 C3 ret
*)
end;
procedure TFrmMain.StartTimerTimer(Sender : TObject);
begin
(*
00484B2C 55 push ebp
00484B2D 8BEC mov ebp, esp
00484B2F 83C4AC add esp, -$54
00484B32 53 push ebx
00484B33 56 push esi
00484B34 33C9 xor ecx, ecx
00484B36 894DAC mov [ebp-$54], ecx
00484B39 894DE8 mov [ebp-$18], ecx
00484B3C 894DEC mov [ebp-$14], ecx
00484B3F 894DF0 mov [ebp-$10], ecx
00484B42 894DF4 mov [ebp-$0C], ecx
00484B45 894DF8 mov [ebp-$08], ecx
00484B48 8BD8 mov ebx, eax
00484B4A 8B35F00E4900 mov esi, [$00490EF0]
00484B50 33C0 xor eax, eax
00484B52 55 push ebp
* Possible String Reference to: '棰⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -