📄 frmconfig.pas
字号:
004DA935 50 push eax
004DA936 A1DC7E4E00 mov eax, dword ptr [$004E7EDC]
004DA93B 8B00 mov eax, [eax]
* Possible String Reference to: 'AllowDelChr'
|
004DA93D B9E0A94D00 mov ecx, $004DA9E0
* Possible String Reference to: 'Setup'
|
004DA942 BAB4A94D00 mov edx, $004DA9B4
004DA947 8B30 mov esi, [eax]
004DA949 FF5614 call dword ptr [esi+$14]
004DA94C A190824E00 mov eax, dword ptr [$004E8290]
004DA951 8A00 mov al, byte ptr [eax]
004DA953 50 push eax
004DA954 A1DC7E4E00 mov eax, dword ptr [$004E7EDC]
004DA959 8B00 mov eax, [eax]
* Possible String Reference to: 'UseSpecChar'
|
004DA95B B9F4A94D00 mov ecx, $004DA9F4
* Possible String Reference to: 'Setup'
|
004DA960 BAB4A94D00 mov edx, $004DA9B4
004DA965 8B30 mov esi, [eax]
004DA967 FF5614 call dword ptr [esi+$14]
004DA96A A1FC824E00 mov eax, dword ptr [$004E82FC]
004DA96F 8A00 mov al, byte ptr [eax]
004DA971 50 push eax
004DA972 A1DC7E4E00 mov eax, dword ptr [$004E7EDC]
004DA977 8B00 mov eax, [eax]
* Possible String Reference to: 'AllowCreateCharOpt1'
|
004DA979 B908AA4D00 mov ecx, $004DAA08
* Possible String Reference to: 'Setup'
|
004DA97E BAB4A94D00 mov edx, $004DA9B4
004DA983 8B30 mov esi, [eax]
004DA985 FF5614 call dword ptr [esi+$14]
004DA988 8BC3 mov eax, ebx
* Reference to : TfrmSetup._PROC_004DA7CC()
|
004DA98A E83DFEFFFF call 004DA7CC
004DA98F 5E pop esi
004DA990 5B pop ebx
004DA991 C3 ret
*)
end;
procedure TfrmSetup.ButtonAddClick(Sender : TObject);
begin
(*
004DAA1C 55 push ebp
004DAA1D 8BEC mov ebp, esp
004DAA1F 6A00 push $00
004DAA21 53 push ebx
004DAA22 8BD8 mov ebx, eax
004DAA24 33C0 xor eax, eax
004DAA26 55 push ebp
004DAA27 6899AA4D00 push $004DAA99
***** TRY
|
004DAA2C 64FF30 push dword ptr fs:[eax]
004DAA2F 648920 mov fs:[eax], esp
004DAA32 8D4DFC lea ecx, [ebp-$04]
* Possible String Reference to: '请输入新的文字:'
|
004DAA35 BAACAA4D00 mov edx, $004DAAAC
* Possible String Reference to: '增加过滤文字'
|
004DAA3A B8C4AA4D00 mov eax, $004DAAC4
* Reference to: Dialogs.InputQuery(AnsiString;AnsiString;AnsiString;AnsiString):Boolean;
|
004DAA3F E8B8CFF5FF call 004379FC
004DAA44 84C0 test al, al
004DAA46 743B jz 004DAA83
004DAA48 837DFC00 cmp dword ptr [ebp-$04], +$00
004DAA4C 751A jnz 004DAA68
004DAA4E 6A10 push $10
* Possible String Reference to: '错误信息'
|
004DAA50 B9D4AA4D00 mov ecx, $004DAAD4
* Possible String Reference to: '输入的字符不能为空！'
|
004DAA55 BAE0AA4D00 mov edx, $004DAAE0
004DAA5A A1C8804E00 mov eax, dword ptr [$004E80C8]
004DAA5F 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
004DAA61 E88666FAFF call 004810EC
004DAA66 EB1B jmp 004DAA83
004DAA68 8B8308030000 mov eax, [ebx+$0308]
004DAA6E 8B8018020000 mov eax, [eax+$0218]
004DAA74 8B55FC mov edx, [ebp-$04]
004DAA77 8B08 mov ecx, [eax]
004DAA79 FF5138 call dword ptr [ecx+$38]
004DAA7C 8BC3 mov eax, ebx
* Reference to : TfrmSetup._PROC_004DA7AC()
|
004DAA7E E829FDFFFF call 004DA7AC
004DAA83 33C0 xor eax, eax
004DAA85 5A pop edx
004DAA86 59 pop ecx
004DAA87 59 pop ecx
004DAA88 648910 mov fs:[eax], edx
****** FINALLY
|
004DAA8B 68A0AA4D00 push $004DAAA0
004DAA90 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
004DAA93 E8609FF2FF call 004049F8
004DAA98 C3 ret
* Reference to: System.@HandleFinally;
|
004DAA99 E9B298F2FF jmp 00404350
004DAA9E EBF0 jmp 004DAA90
****** END
|
004DAAA0 5B pop ebx
004DAAA1 59 pop ecx
004DAAA2 5D pop ebp
004DAAA3 C3 ret
*)
end;
procedure TfrmSetup.ButtonDelClick(Sender : TObject);
begin
(*
004DAAF8 53 push ebx
004DAAF9 56 push esi
004DAAFA 8BD8 mov ebx, eax
004DAAFC 8B8308030000 mov eax, [ebx+$0308]
004DAB02 8B10 mov edx, [eax]
004DAB04 FF92CC000000 call dword ptr [edx+$00CC]
004DAB0A 8BF0 mov esi, eax
004DAB0C 85F6 test esi, esi
004DAB0E 7C2F jl 004DAB3F
004DAB10 8B8308030000 mov eax, [ebx+$0308]
004DAB16 8B8018020000 mov eax, [eax+$0218]
004DAB1C 8B10 mov edx, [eax]
004DAB1E FF5214 call dword ptr [edx+$14]
004DAB21 3BF0 cmp esi, eax
004DAB23 7D1A jnl 004DAB3F
004DAB25 8B8308030000 mov eax, [ebx+$0308]
004DAB2B 8B8018020000 mov eax, [eax+$0218]
004DAB31 8BD6 mov edx, esi
004DAB33 8B08 mov ecx, [eax]
004DAB35 FF5148 call dword ptr [ecx+$48]
004DAB38 8BC3 mov eax, ebx
* Reference to : TfrmSetup._PROC_004DA7AC()
|
004DAB3A E86DFCFFFF call 004DA7AC
004DAB3F 8B8308030000 mov eax, [ebx+$0308]
004DAB45 8B8018020000 mov eax, [eax+$0218]
004DAB4B 8B10 mov edx, [eax]
004DAB4D FF5214 call dword ptr [edx+$14]
004DAB50 3BF0 cmp esi, eax
004DAB52 7C13 jl 004DAB67
004DAB54 8BD6 mov edx, esi
004DAB56 4A dec edx
004DAB57 8B8308030000 mov eax, [ebx+$0308]
004DAB5D 8B08 mov ecx, [eax]
004DAB5F FF91D0000000 call dword ptr [ecx+$00D0]
004DAB65 EB10 jmp 004DAB77
004DAB67 8BD6 mov edx, esi
004DAB69 8B8308030000 mov eax, [ebx+$0308]
004DAB6F 8B08 mov ecx, [eax]
004DAB71 FF91D0000000 call dword ptr [ecx+$00D0]
004DAB77 8B8308030000 mov eax, [ebx+$0308]
004DAB7D 8B10 mov edx, [eax]
004DAB7F FF92CC000000 call dword ptr [edx+$00CC]
004DAB85 85C0 test eax, eax
004DAB87 7D1A jnl 004DABA3
004DAB89 33D2 xor edx, edx
004DAB8B 8B8314030000 mov eax, [ebx+$0314]
004DAB91 8B08 mov ecx, [eax]
004DAB93 FF5164 call dword ptr [ecx+$64]
004DAB96 33D2 xor edx, edx
004DAB98 8B8310030000 mov eax, [ebx+$0310]
004DAB9E 8B08 mov ecx, [eax]
004DABA0 FF5164 call dword ptr [ecx+$64]
004DABA3 5E pop esi
004DABA4 5B pop ebx
004DABA5 C3 ret
*)
end;
procedure TfrmSetup.ButtonModClick(Sender : TObject);
begin
(*
004DABA8 55 push ebp
004DABA9 8BEC mov ebp, esp
004DABAB 6A00 push $00
004DABAD 53 push ebx
004DABAE 56 push esi
004DABAF 8BD8 mov ebx, eax
004DABB1 33C0 xor eax, eax
004DABB3 55 push ebp
* Possible String Reference to: '槁栻⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -