📄 unit9.pas
字号:
0051FE4C 8B00 mov eax, [eax]
0051FE4E FF5034 call dword ptr [eax+$34]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FE51 E8EA6AEEFF call 00406940
0051FE56 8D45E8 lea eax, [ebp-$18]
0051FE59 50 push eax
0051FE5A 8D55B8 lea edx, [ebp-$48]
* Reference to control Tdiscclass.Edit1 : TEdit
|
0051FE5D 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0051FE63 E80491F2FF call 00448F6C
0051FE68 8B45B8 mov eax, [ebp-$48]
0051FE6B 8D55BC lea edx, [ebp-$44]
* Reference to: Unit_004081C8.Proc_00409114
|
0051FE6E E8A192EEFF call 00409114
0051FE73 8B55BC mov edx, [ebp-$44]
0051FE76 8D45C0 lea eax, [ebp-$40]
* Reference to: System.@DispInvoke;cdecl;
| or: System.@VarClear(Variant;Variant);
| or: System.@VarCopy(Variant;Variant;Variant;Variant);
| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
| or: System.@VarToInt(Variant;Variant):Integer;
|
0051FE79 E84E5AEEFF call 004058CC
0051FE7E 8D55C0 lea edx, [ebp-$40]
0051FE81 58 pop eax
* Reference to: System.@VarAdd(Variant;Variant;Variant;Variant);
| or: System.@VarSub(Variant;Variant;Variant;Variant);
| or: System.@VarMul(Variant;Variant;Variant;Variant);
| or: System.@VarDiv(Variant;Variant;Variant;Variant);
| or: System.@VarMod(Variant;Variant;Variant;Variant);
| or: System.@VarAnd(Variant;Variant;Variant;Variant);
|
0051FE82 E88D5AEEFF call 00405914
0051FE87 741A jz 0051FEA3
* Reference to control Tdiscclass.ADOQuery1 : TADOQuery
|
0051FE89 8B8334030000 mov eax, [ebx+$0334]
* Reference to field TADOQuery.OFFS_0178
|
0051FE8F 8B8078010000 mov eax, [eax+$0178]
0051FE95 50 push eax
0051FE96 8B00 mov eax, [eax]
0051FE98 FF9090000000 call dword ptr [eax+$0090]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FE9E E89D6AEEFF call 00406940
0051FEA3 4E dec esi
0051FEA4 0F8545FFFFFF jnz 0051FDEF
0051FEAA EB08 jmp 0051FEB4
0051FEAC 46 inc esi
0051FEAD 4F dec edi
0051FEAE 0F85A4FEFFFF jnz 0051FD58
0051FEB4 33C0 xor eax, eax
0051FEB6 5A pop edx
0051FEB7 59 pop ecx
0051FEB8 59 pop ecx
0051FEB9 648910 mov fs:[eax], edx
****** FINALLY
|
0051FEBC 6801FF5100 push $0051FF01
0051FEC1 8D45B8 lea eax, [ebp-$48]
* Reference to: System.@LStrClr(void;void);
|
0051FEC4 E85349EEFF call 0040481C
0051FEC9 8D45BC lea eax, [ebp-$44]
* Reference to: System.@LStrClr(void;void);
|
0051FECC E84B49EEFF call 0040481C
0051FED1 8D45C0 lea eax, [ebp-$40]
* Reference to: System.@VarClr(Variant;Variant);
|
0051FED4 E85F5AEEFF call 00405938
0051FED9 8D45D0 lea eax, [ebp-$30]
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
0051FEDC E85369EEFF call 00406834
0051FEE1 8D45D4 lea eax, [ebp-$2C]
* Reference to: System.@VarClr(Variant;Variant);
|
0051FEE4 E84F5AEEFF call 00405938
0051FEE9 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
0051FEEC E84369EEFF call 00406834
0051FEF1 8D45E8 lea eax, [ebp-$18]
* Reference to: System.@VarClr(Variant;Variant);
|
0051FEF4 E83F5AEEFF call 00405938
0051FEF9 C3 ret
* Reference to: System.@HandleFinally;
|
0051FEFA E94542EEFF jmp 00404144
0051FEFF EBC0 jmp 0051FEC1
****** END
|
0051FF01 5F pop edi
0051FF02 5E pop esi
0051FF03 5B pop ebx
0051FF04 8BE5 mov esp, ebp
0051FF06 5D pop ebp
0051FF07 C3 ret
*)
end;
procedure Tdiscclass.SpeedButton2Click(Sender : TObject);
begin
(*
0051FF18 55 push ebp
0051FF19 8BEC mov ebp, esp
0051FF1B 53 push ebx
0051FF1C 56 push esi
0051FF1D 57 push edi
0051FF1E 8BF2 mov esi, edx
0051FF20 8BD8 mov ebx, eax
0051FF22 6A01 push $01
* Possible String Reference to: '提醒'
|
0051FF24 B9B0FF5100 mov ecx, $0051FFB0
* Possible String Reference to: '你确定要删除该[碟片类型]么?'
|
0051FF29 BAB8FF5100 mov edx, $0051FFB8
* Reference to TApplication instance
|
0051FF2E A124835800 mov eax, dword ptr [$00588324]
0051FF33 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
0051FF35 E8C294F4FF call 004693FC
0051FF3A 48 dec eax
0051FF3B 756E jnz 0051FFAB
0051FF3D 33C0 xor eax, eax
0051FF3F 55 push ebp
0051FF40 689AFF5100 push $0051FF9A
***** TRY
|
0051FF45 64FF30 push dword ptr fs:[eax]
0051FF48 648920 mov fs:[eax], esp
0051FF4B 6A01 push $01
* Reference to control Tdiscclass.ADOQuery1 : TADOQuery
|
0051FF4D 8B8334030000 mov eax, [ebx+$0334]
* Reference to field TADOQuery.OFFS_0178
|
0051FF53 8B8078010000 mov eax, [eax+$0178]
0051FF59 50 push eax
0051FF5A 8B00 mov eax, [eax]
0051FF5C FF9084000000 call dword ptr [eax+$0084]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FF62 E8D969EEFF call 00406940
0051FF67 8BD6 mov edx, esi
0051FF69 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to : Tdiscclass._PROC_0051FAA8()
|
0051FF6E E835FBFFFF call 0051FAA8
* Reference to control Tdiscclass.ListView1 : TListView
|
0051FF73 8B8308030000 mov eax, [ebx+$0308]
* Reference to field TListView.Items : TListItems
|
0051FF79 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.Clear(TListItems);
|
0051FF7F E81823F6FF call 0048229C
0051FF84 8BD6 mov edx, esi
0051FF86 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to : Tdiscclass._PROC_0051FABC()
|
0051FF8B E82CFBFFFF call 0051FABC
0051FF90 33C0 xor eax, eax
0051FF92 5A pop edx
0051FF93 59 pop ecx
0051FF94 59 pop ecx
0051FF95 648910 mov fs:[eax], edx
0051FF98 EB11 jmp 0051FFAB
* Reference to: System.@HandleAnyException;
|
0051FF9A E9F13EEEFF jmp 00403E90
* Reference to: System.@DoneExcept;
|
0051FF9F E81843EEFF call 004042BC
0051FFA4 EB05 jmp 0051FFAB
* Reference to: System.@DoneExcept;
|
0051FFA6 E81143EEFF call 004042BC
****** END
|
0051FFAB 5F pop edi
0051FFAC 5E pop esi
0051FFAD 5B pop ebx
0051FFAE 5D pop ebp
0051FFAF C3 ret
*)
end;
procedure Tdiscclass.SpeedButton1Click(Sender : TObject);
begin
(*
0051FFD4 53 push ebx
0051FFD5 56 push esi
0051FFD6 8BDA mov ebx, edx
0051FFD8 8BF0 mov esi, eax
0051FFDA B101 mov cl, $01
0051FFDC 8BD3 mov edx, ebx
0051FFDE A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Unit9.Proc_0051FC1C
|
0051FFE3 E834FCFFFF call 0051FC1C
0051FFE8 8BD3 mov edx, ebx
0051FFEA A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to : Tdiscclass._PROC_0051FAA8()
|
0051FFEF E8B4FAFFFF call 0051FAA8
0051FFF4 33C9 xor ecx, ecx
0051FFF6 8BD3 mov edx, ebx
0051FFF8 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Unit9.Proc_0051FC4C
|
0051FFFD E84AFCFFFF call 0051FC4C
* Reference to control Tdiscclass.Edit1 : TEdit
|
00520002 8B8614030000 mov eax, [esi+$0314]
00520008 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
0052000A FF92C0000000 call dword ptr [edx+$00C0]
00520010 C605549F580000 mov byte ptr [$00589F54], $00
00520017 5E pop esi
00520018 5B pop ebx
00520019 C3 ret
*)
end;
procedure Tdiscclass.SpeedButton3Click(Sender : TObject);
begin
(*
0052001C 53 push ebx
0052001D 56 push esi
0052001E 8BF2 mov esi, edx
00520020 8BD8 mov ebx, eax
00520022 B101 mov cl, $01
00520024 8BD6 mov edx, esi
00520026 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Unit9.Proc_0051FC1C
|
0052002B E8ECFBFFFF call 0051FC1C
00520030 33C9 xor ecx, ecx
00520032 8BD6 mov edx, esi
00520034 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Unit9.Proc_0051FC4C
|
00520039 E80EFCFFFF call 0051FC4C
* Reference to control Tdiscclass.Edit1 : TEdit
|
0052003E 8B8314030000 mov eax, [ebx+$0314]
00520044 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
00520046 FF92C0000000 call dword ptr [edx+$00C0]
0052004C C605549F580001 mov byte ptr [$00589F54], $01
00520053 5E pop esi
00520054 5B pop ebx
00520055 C3 ret
*)
end;
procedure Tdiscclass.SpeedButton4Click(Sender : TObject);
begin
(*
00520058 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to : Tdiscclass.SpeedButton5Click()
|
0052005D E80E000000 call 00520070
00520062 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00520067 E8C45AF4FF call 00465B30
0052006C C3 ret
*)
end;
procedure Tdiscclass.SpeedButton5Click(Sender : TObject);
begin
(*
00520070 55 push ebp
00520071 8BEC mov ebp, esp
00520073 B90B000000 mov ecx, $0000000B
00520078 6A00 push $00
0052007A 6A00 push $00
0052007C 49 dec ecx
0052007D 75F9 jnz 00520078
0052007F 53 push ebx
00520080 56 push esi
00520081 8BF2 mov esi, edx
00520083 8BD8 mov ebx, eax
00520085 33C0 xor eax, eax
00520087 55 push ebp
* Possible String Reference to: '轶>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -