📄 lmain.pas
字号:
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004845D0 E8C780FFFF call 0047C69C
* Possible String Reference to: '用户数'
|
004845D5 6848464800 push $00484648
004845DA 33C9 xor ecx, ecx
004845DC BA04000000 mov edx, $00000004
004845E1 8B831C030000 mov eax, [ebx+$031C]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004845E7 E8B080FFFF call 0047C69C
* Possible String Reference to: '状态'
|
004845EC 6858464800 push $00484658
004845F1 33C9 xor ecx, ecx
004845F3 BA05000000 mov edx, $00000005
004845F8 8B831C030000 mov eax, [ebx+$031C]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004845FE E89980FFFF call 0047C69C
00484603 33C0 xor eax, eax
00484605 5A pop edx
00484606 59 pop ecx
00484607 59 pop ecx
00484608 648910 mov fs:[eax], edx
****** FINALLY
|
0048460B 6825464800 push $00484625
00484610 8D45EC lea eax, [ebp-$14]
00484613 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00484618 E86F07F8FF call 00404D8C
0048461D C3 ret
* Reference to: System.@HandleFinally;
|
0048461E E99D00F8FF jmp 004046C0
00484623 EBEB jmp 00484610
****** END
|
00484625 5F pop edi
00484626 5E pop esi
00484627 5B pop ebx
00484628 8BE5 mov esp, ebp
0048462A 5D pop ebp
0048462B C3 ret
*)
end;
procedure TFrmMain.FormDestroy(Sender : TObject);
begin
(*
00484660 53 push ebx
00484661 56 push esi
00484662 57 push edi
00484663 55 push ebp
00484664 83C4F4 add esp, -$0C
00484667 8BEC mov ebp, esp
00484669 A1800F4900 mov eax, dword ptr [$00490F80]
0048466E 89442408 mov [esp+$08], eax
00484672 8B442408 mov eax, [esp+$08]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
00484676 E8D94D0000 call 00489454
0048467B A1100C4900 mov eax, dword ptr [$00490C10]
00484680 833800 cmp dword ptr [eax], +$00
00484683 740C jz 00484691
00484685 A1100C4900 mov eax, dword ptr [$00490C10]
0048468A 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
0048468C E8C7F8F7FF call 00403F58
00484691 8B442408 mov eax, [esp+$08]
00484695 8B804E020000 mov eax, [eax+$024E]
0048469B 8B7808 mov edi, [eax+$08]
0048469E 4F dec edi
0048469F 85FF test edi, edi
004846A1 7C66 jl 00484709
004846A3 47 inc edi
004846A4 33F6 xor esi, esi
004846A6 8B442408 mov eax, [esp+$08]
004846AA 8B804E020000 mov eax, [eax+$024E]
004846B0 8BD6 mov edx, esi
* Reference to: Classes.TList.Get(TList;Integer):Pointer;
|
004846B2 E84126F9FF call 00416CF8
004846B7 894500 mov [ebp+$00], eax
004846BA 8B4500 mov eax, [ebp+$00]
004846BD 8B400C mov eax, [eax+$0C]
004846C0 8B5808 mov ebx, [eax+$08]
004846C3 4B dec ebx
004846C4 85DB test ebx, ebx
004846C6 7C24 jl 004846EC
004846C8 43 inc ebx
004846C9 8B4500 mov eax, [ebp+$00]
004846CC 8B400C mov eax, [eax+$0C]
004846CF 8BD6 mov edx, esi
* Reference to: Classes.TList.Get(TList;Integer):Pointer;
|
004846D1 E82226F9FF call 00416CF8
004846D6 89442404 mov [esp+$04], eax
004846DA 8B1580364800 mov edx, [$00483680]
004846E0 8B442404 mov eax, [esp+$04]
* Reference to: System.@Dispose(Pointer;Pointer);
|
004846E4 E8A714F8FF call 00405B90
004846E9 4B dec ebx
004846EA 75DD jnz 004846C9
004846EC 8B4500 mov eax, [ebp+$00]
004846EF 8B400C mov eax, [eax+$0C]
* Reference to: System.TObject.Free(TObject);
|
004846F2 E861F8F7FF call 00403F58
004846F7 8B1558364800 mov edx, [$00483658]
004846FD 8B4500 mov eax, [ebp+$00]
* Reference to: System.@Dispose(Pointer;Pointer);
|
00484700 E88B14F8FF call 00405B90
00484705 46 inc esi
00484706 4F dec edi
00484707 759D jnz 004846A6
00484709 8B442408 mov eax, [esp+$08]
0048470D 8B804E020000 mov eax, [eax+$024E]
* Reference to: System.TObject.Free(TObject);
|
00484713 E840F8F7FF call 00403F58
00484718 8B442408 mov eax, [esp+$08]
0048471C 8B8052020000 mov eax, [eax+$0252]
* Reference to: System.TObject.Free(TObject);
|
00484722 E831F8F7FF call 00403F58
00484727 8B442408 mov eax, [esp+$08]
0048472B 8B8056020000 mov eax, [eax+$0256]
* Reference to: System.TObject.Free(TObject);
|
00484731 E822F8F7FF call 00403F58
00484736 A13C0F4900 mov eax, dword ptr [$00490F3C]
0048473B 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
0048473D E816F8F7FF call 00403F58
00484742 A1C40D4900 mov eax, dword ptr [$00490DC4]
00484747 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
00484749 E80AF8F7FF call 00403F58
0048474E 83C40C add esp, +$0C
00484751 5D pop ebp
00484752 5F pop edi
00484753 5E pop esi
00484754 5B pop ebx
00484755 C3 ret
*)
end;
procedure TFrmMain.ExecTimerTimer(Sender : TObject);
begin
(*
00484758 55 push ebp
00484759 8BEC mov ebp, esp
0048475B 51 push ecx
0048475C A1800F4900 mov eax, dword ptr [$00490F80]
00484761 8945FC mov [ebp-$04], eax
00484764 A1B40F4900 mov eax, dword ptr [$00490FB4]
00484769 803800 cmp byte ptr [eax], $00
0048476C 740A jz 00484778
0048476E A17C0F4900 mov eax, dword ptr [$00490F7C]
00484773 803800 cmp byte ptr [eax], $00
00484776 743B jz 004847B3
00484778 A1B40F4900 mov eax, dword ptr [$00490FB4]
0048477D C60001 mov byte ptr [eax], $01
00484780 33C0 xor eax, eax
00484782 55 push ebp
00484783 68AC474800 push $004847AC
***** TRY
|
00484788 64FF30 push dword ptr fs:[eax]
0048478B 648920 mov fs:[eax], esp
0048478E 8B45FC mov eax, [ebp-$04]
* Reference to : TFrmMain._PROC_004857E8()
|
00484791 E852100000 call 004857E8
00484796 33C0 xor eax, eax
00484798 5A pop edx
00484799 59 pop ecx
0048479A 59 pop ecx
0048479B 648910 mov fs:[eax], edx
****** FINALLY
|
0048479E 68B3474800 push $004847B3
004847A3 A1B40F4900 mov eax, dword ptr [$00490FB4]
004847A8 C60000 mov byte ptr [eax], $00
004847AB C3 ret
* Reference to: System.@HandleFinally;
|
004847AC E90FFFF7FF jmp 004046C0
004847B1 EBF0 jmp 004847A3
****** END
|
004847B3 59 pop ecx
004847B4 5D pop ebp
004847B5 C3 ret
*)
end;
procedure TFrmMain.Memo1DblClick(Sender : TObject);
begin
(*
|
004847B8 E8F3F4FFFF call 00483CB0
004847BD C3 ret
*)
end;
procedure TFrmMain.Timer1Timer(Sender : TObject);
begin
(*
004847C0 55 push ebp
004847C1 8BEC mov ebp, esp
004847C3 B906000000 mov ecx, $00000006
004847C8 6A00 push $00
004847CA 6A00 push $00
004847CC 49 dec ecx
004847CD 75F9 jnz 004847C8
004847CF 51 push ecx
004847D0 53 push ebx
004847D1 56 push esi
004847D2 57 push edi
004847D3 8BF0 mov esi, eax
004847D5 33C0 xor eax, eax
004847D7 55 push ebp
004847D8 68F64A4800 push $00484AF6
***** TRY
|
004847DD 64FF30 push dword ptr fs:[eax]
004847E0 648920 mov fs:[eax], esp
004847E3 EB06 jmp 004847EB
004847E5 55 push ebp
004847E6 44 inc esp
004847E7 55 push ebp
004847E8 03A809740675 add ebp, [eax+$75067409]
004847EE 04F4 add al, -$0C
004847F0 EB04 jmp 004847F6
004847F2 E88D55F4A1 call A23C9D84
004847F7 BC0E4900E8 mov esp, $E800490E
004847FC CC int 3
004847FD 21F8 and eax, edi
004847FF FF8B45F48038 dec dword ptr [ebx+$3880F445]
00484805 42 inc edx
00484806 7415 jz 0048481D
00484808 EB06 jmp 00484810
0048480A 55 push ebp
0048480B 44 inc esp
0048480C 55 push ebp
0048480D 03A809E8A726 add ebp, [eax+$26A7E809]
00484813 F8 clc
00484814 FFEB jmp bx
00484816 06 push es
00484817 55 push ebp
00484818 44 inc esp
00484819 55 push ebp
0048481A 03A809EB0655 add ebp, [eax+$5506EB09]
00484820 44 inc esp
00484821 55 push ebp
00484822 03A809740675 add ebp, [eax+$75067409]
00484828 04F4 add al, -$0C
0048482A EB04 jmp 00484830
0048482C E8A1800F49 call 4957C8D2
00484831 008945FCEB06 add [ecx+$6EBFC45], cl
00484837 55 push ebp
00484838 44 inc esp
00484839 55 push ebp
0048483A 03A809740675 add ebp, [eax+$75067409]
00484840 04F4 add al, -$0C
00484842 EB04 jmp 00484848
00484844 E88D55F0A1 call A2389DD6
00484849 BC0E4900E8 mov esp, $E800490E
0048484E 7A21 jp 00484871
00484850 F8 clc
00484851 FF8B45F08078 dec dword ptr [ebx+$7880F045]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -