📄 cfgparam.pas
字号:
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
006C20A7 E8A479D7FF call 00439A50
006C20AC 8B45F4 mov eax, [ebp-$0C]
* Reference to: Unit_00409434.Proc_0040A644
|
006C20AF E89085D4FF call 0040A644
006C20B4 8D145B lea edx, [ebx+ebx*2]
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C20B7 8B8EC0040000 mov ecx, [esi+$04C0]
006C20BD 3B849124070000 cmp eax, [ecx+edx*4+$0724]
006C20C4 7F12 jnle 006C20D8
006C20C6 8D145B lea edx, [ebx+ebx*2]
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C20C9 8B8EC0040000 mov ecx, [esi+$04C0]
006C20CF 3B849120070000 cmp eax, [ecx+edx*4+$0720]
006C20D6 7D0D jnl 006C20E5
006C20D8 33C0 xor eax, eax
006C20DA 5A pop edx
006C20DB 59 pop ecx
006C20DC 59 pop ecx
006C20DD 648910 mov fs:[eax], edx
006C20E0 E983000000 jmp 006C2168
006C20E5 33C0 xor eax, eax
006C20E7 5A pop edx
006C20E8 59 pop ecx
006C20E9 59 pop ecx
006C20EA 648910 mov fs:[eax], edx
006C20ED EB11 jmp 006C2100
* Reference to: system.@HandleAnyException;
|
006C20EF E98416D4FF jmp 00403778
* Reference to: system.@DoneExcept;
|
006C20F4 E89B1AD4FF call 00403B94
006C20F9 EB6D jmp 006C2168
* Reference to: system.@DoneExcept;
|
006C20FB E8941AD4FF call 00403B94
****** END
|
006C2100 43 inc ebx
006C2101 4F dec edi
006C2102 0F8567FFFFFF jnz 006C206F
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C2108 8B86C0040000 mov eax, [esi+$04C0]
006C210E 0FB6B8CD060000 movzx edi, byte ptr [eax+$06CD]
006C2115 4F dec edi
006C2116 85FF test edi, edi
006C2118 7C4E jl 006C2168
006C211A 47 inc edi
006C211B 33DB xor ebx, ebx
006C211D 8B849EE8020000 mov eax, [esi+ebx*4+$02E8]
006C2124 8D55EC lea edx, [ebp-$14]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
006C2127 E82479D7FF call 00439A50
006C212C 8B45EC mov eax, [ebp-$14]
006C212F 8D55F0 lea edx, [ebp-$10]
* Reference to: Unit_00409434.Proc_0040A37C
|
006C2132 E84582D4FF call 0040A37C
006C2137 837DF000 cmp dword ptr [ebp-$10], +$00
006C213B 7427 jz 006C2164
006C213D 8B849EE8020000 mov eax, [esi+ebx*4+$02E8]
006C2144 8D55E8 lea edx, [ebp-$18]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
006C2147 E80479D7FF call 00439A50
006C214C 8B45E8 mov eax, [ebp-$18]
* Reference to: Unit_00409434.Proc_0040A644
|
006C214F E8F084D4FF call 0040A644
006C2154 8D145B lea edx, [ebx+ebx*2]
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C2157 8B8EC0040000 mov ecx, [esi+$04C0]
006C215D 89849128070000 mov [ecx+edx*4+$0728], eax
006C2164 43 inc ebx
006C2165 4F dec edi
006C2166 75B5 jnz 006C211D
006C2168 33C0 xor eax, eax
006C216A 5A pop edx
006C216B 59 pop ecx
006C216C 59 pop ecx
006C216D 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[嬪]脣繳嬱j'
|
006C2170 68A7216C00 push $006C21A7
006C2175 8D45E8 lea eax, [ebp-$18]
006C2178 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
006C217D E8961FD4FF call 00404118
006C2182 8D45F0 lea eax, [ebp-$10]
* Reference to: system.@LStrClr(String;String);
|
006C2185 E86A1FD4FF call 004040F4
006C218A 8D45F4 lea eax, [ebp-$0C]
006C218D BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
006C2192 E8811FD4FF call 00404118
006C2197 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006C219A E8551FD4FF call 004040F4
006C219F C3 ret
* Reference to: system.@HandleFinally;
|
006C21A0 E98718D4FF jmp 00403A2C
006C21A5 EBCE jmp 006C2175
****** END
|
006C21A7 5F pop edi
006C21A8 5E pop esi
006C21A9 5B pop ebx
006C21AA 8BE5 mov esp, ebp
006C21AC 5D pop ebp
006C21AD C3 ret
*)
end;
procedure TfrmCfgParam.Button1Click(Sender : TObject);
begin
(*
006C21B0 55 push ebp
006C21B1 8BEC mov ebp, esp
006C21B3 6A00 push $00
006C21B5 53 push ebx
006C21B6 56 push esi
006C21B7 57 push edi
006C21B8 8BD8 mov ebx, eax
006C21BA 33C0 xor eax, eax
006C21BC 55 push ebp
006C21BD 682D226C00 push $006C222D
***** TRY
|
006C21C2 64FF30 push dword ptr fs:[eax]
006C21C5 648920 mov fs:[eax], esp
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C21C8 8B83C0040000 mov eax, [ebx+$04C0]
006C21CE 0FB6B8CD060000 movzx edi, byte ptr [eax+$06CD]
006C21D5 4F dec edi
006C21D6 85FF test edi, edi
006C21D8 7C3D jl 006C2217
006C21DA 47 inc edi
006C21DB 33F6 xor esi, esi
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C21DD 8B83C0040000 mov eax, [ebx+$04C0]
006C21E3 80B8CD06000008 cmp byte ptr [eax+$06CD], $08
006C21EA 772B jnbe 006C2217
006C21EC 8D0476 lea eax, [esi+esi*2]
* Reference to field TfrmCfgParam.OFFS_04C0
|
006C21EF 8B93C0040000 mov edx, [ebx+$04C0]
006C21F5 8B848228070000 mov eax, [edx+eax*4+$0728]
006C21FC 8D55FC lea edx, [ebp-$04]
* Reference to: Unit_00409434.Proc_0040A564
|
006C21FF E86083D4FF call 0040A564
006C2204 8B55FC mov edx, [ebp-$04]
006C2207 8B84B3E8020000 mov eax, [ebx+esi*4+$02E8]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
006C220E E86D78D7FF call 00439A80
006C2213 46 inc esi
006C2214 4F dec edi
006C2215 75C6 jnz 006C21DD
006C2217 33C0 xor eax, eax
006C2219 5A pop edx
006C221A 59 pop ecx
006C221B 59 pop ecx
006C221C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[Y]脣繳嬱3繳ha"l'
|
006C221F 6834226C00 push $006C2234
006C2224 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006C2227 E8C81ED4FF call 004040F4
006C222C C3 ret
* Reference to: system.@HandleFinally;
|
006C222D E9FA17D4FF jmp 00403A2C
006C2232 EBF0 jmp 006C2224
****** END
|
006C2234 5F pop edi
006C2235 5E pop esi
006C2236 5B pop ebx
006C2237 59 pop ecx
006C2238 5D pop ebp
006C2239 C3 ret
*)
end;
procedure TfrmCfgParam._PROC_006C14DC(Sender : TObject);
begin
(*
006C14DC 55 push ebp
006C14DD 8BEC mov ebp, esp
006C14DF 83C4F8 add esp, -$08
006C14E2 53 push ebx
006C14E3 56 push esi
006C14E4 57 push edi
006C14E5 894DF8 mov [ebp-$08], ecx
006C14E8 8955FC mov [ebp-$04], edx
006C14EB 8B7508 mov esi, [ebp+$08]
006C14EE 8B45FC mov eax, [ebp-$04]
* Reference to: system.@LStrAddRef;
|
006C14F1 E84E30D4FF call 00404544
006C14F6 33C0 xor eax, eax
006C14F8 55 push ebp
006C14F9 6875156C00 push $006C1575
***** TRY
|
006C14FE 64FF30 push dword ptr fs:[eax]
006C1501 648920 mov fs:[eax], esp
006C1504 8B45F8 mov eax, [ebp-$08]
* Reference to: system.@LStrClr(String;String);
|
006C1507 E8E82BD4FF call 004040F4
006C150C 33FF xor edi, edi
006C150E 33DB xor ebx, ebx
006C1510 EB37 jmp 006C1549
006C1512 8B06 mov eax, [esi]
006C1514 03C7 add eax, edi
006C1516 8B55FC mov edx, [ebp-$04]
006C1519 8A4402FF mov al, byte ptr [edx+eax-$01]
006C151D 3CA0 cmp al, $A0
006C151F 7605 jbe 006C1526
006C1521 83C702 add edi, +$02
006C1524 EB11 jmp 006C1537
006C1526 8B16 mov edx, [esi]
006C1528 03D7 add edx, edi
006C152A 8B4DFC mov ecx, [ebp-$04]
006C152D 3C0D cmp al, $0D
006C152F 7505 jnz 006C1536
006C1531 83C702 add edi, +$02
006C1534 EB17 jmp 006C154D
006C1536 47 inc edi
006C1537 8B45FC mov eax, [ebp-$04]
* Reference to: system.@LStrLen:Integer;
|
006C153A E8512ED4FF call 00404390
006C153F 8B16 mov edx, [esi]
006C1541 03D7 add edx, edi
006C1543 3BC2 cmp eax, edx
006C1545 7D02 jnl 006C1549
006C1547 B301 mov bl, $01
006C1549 84DB test bl, bl
006C154B 74C5 jz 006C1512
006C154D 8B45F8 mov eax, [ebp-$08]
006C1550 50 push eax
006C1551 8B16 mov edx, [esi]
006C1553 8BCF mov ecx, edi
006C1555 8B45FC mov eax, [ebp-$04]
* Reference to: system.@LStrCopy;
|
006C1558 E83B30D4FF call 00404598
006C155D 013E add [esi], edi
006C155F 33C0 xor eax, eax
006C1561 5A pop edx
006C1562 59 pop ecx
006C1563 59 pop ecx
006C1564 648910 mov fs:[eax], edx
****** FINALLY
|
006C1567 687C156C00 push $006C157C
006C156C 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006C156F E8802BD4FF call 004040F4
006C1574 C3 ret
* Reference to: system.@HandleFinally;
|
006C1575 E9B224D4FF jmp 00403A2C
006C157A EBF0 jmp 006C156C
****** END
|
006C157C 8BC3 mov eax, ebx
006C157E 5F pop edi
006C157F 5E pop esi
006C1580 5B pop ebx
006C1581 59 pop ecx
006C1582 59 pop ecx
006C1583 5D pop ebp
006C1584 C20400 ret $0004
*)
end;
procedure TfrmCfgParam._PROC_006C1588(Sender : TObject);
begin
(*
006C1588 55 push ebp
006C1589 8BEC mov ebp, esp
006C158B 51 push ecx
006C158C 53 push ebx
006C158D 8945FC mov [ebp-$04], eax
006C1590 8B45FC mov eax, [ebp-$04]
* Reference to: system.@LStrAddRef;
|
006C1593 E8AC2FD4FF call 00404544
006C1598 8B5D08 mov ebx, [ebp+$08]
006C159B 83C3FC add ebx, -$04
006C159E 33C0 xor eax, eax
006C15A0 55 push ebp
* Possible String Reference to: '闂#⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -