📄 gwclip.pas
字号:
0074CCC7 E8B860CBFF call 00402D84
0074CCCC 8D85F8FEFFFF lea eax, [ebp+$FFFFFEF8]
0074CCD2 8B5508 mov edx, [ebp+$08]
0074CCD5 8B52F0 mov edx, [edx-$10]
0074CCD8 B9FF000000 mov ecx, $000000FF
* Reference to: system.@LStrToString;
|
0074CCDD E88A76CBFF call 0040436C
0074CCE2 8D95F8FEFFFF lea edx, [ebp+$FFFFFEF8]
0074CCE8 8D430A lea eax, [ebx+$0A]
0074CCEB B108 mov cl, $08
* Reference to: system.@PStrNCpy;
|
0074CCED E89260CBFF call 00402D84
0074CCF2 33C0 xor eax, eax
0074CCF4 5A pop edx
0074CCF5 59 pop ecx
0074CCF6 59 pop ecx
0074CCF7 648910 mov fs:[eax], edx
****** FINALLY
|
0074CCFA 680FCD7400 push $0074CD0F
0074CCFF 8D45F8 lea eax, [ebp-$08]
* Reference to: system.@LStrClr(String;String);
|
0074CD02 E8ED73CBFF call 004040F4
0074CD07 C3 ret
* Reference to: system.@HandleFinally;
|
0074CD08 E91F6DCBFF jmp 00403A2C
0074CD0D EBF0 jmp 0074CCFF
****** END
|
0074CD0F 5F pop edi
0074CD10 5E pop esi
0074CD11 5B pop ebx
0074CD12 8BE5 mov esp, ebp
0074CD14 5D pop ebp
0074CD15 C3 ret
*)
end;
procedure TfrmClip._PROC_0074CD18(Sender : TObject);
begin
(*
0074CD18 55 push ebp
0074CD19 8BEC mov ebp, esp
0074CD1B 8B4508 mov eax, [ebp+$08]
0074CD1E 668B40EE mov ax, word ptr [eax-$12]
* Reference to: Unit_00651A88.Proc_00652808
|
0074CD22 E8E15AF0FF call 00652808
0074CD27 8B5508 mov edx, [ebp+$08]
0074CD2A 8942E8 mov [edx-$18], eax
0074CD2D 8B4508 mov eax, [ebp+$08]
0074CD30 83C0F4 add eax, -$0C
0074CD33 8B5508 mov edx, [ebp+$08]
0074CD36 8B52E8 mov edx, [edx-$18]
0074CD39 81C2D3000000 add edx, $000000D3
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0074CD3F E8D475CBFF call 00404318
0074CD44 8B4508 mov eax, [ebp+$08]
0074CD47 83C0F0 add eax, -$10
0074CD4A 8B5508 mov edx, [ebp+$08]
0074CD4D 8B52E8 mov edx, [edx-$18]
0074CD50 81C2DC000000 add edx, $000000DC
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0074CD56 E8BD75CBFF call 00404318
0074CD5B 8B4508 mov eax, [ebp+$08]
0074CD5E 8B40F4 mov eax, [eax-$0C]
* Possible String Reference to: '000001'
|
0074CD61 BA14CE7400 mov edx, $0074CE14
* Reference to: system.@LStrCmp;
|
0074CD66 E83577CBFF call 004044A0
0074CD6B 754C jnz 0074CDB9
0074CD6D 8B4508 mov eax, [ebp+$08]
0074CD70 F640E701 test byte ptr [eax-$19], $01
0074CD74 0F848F000000 jz 0074CE09
0074CD7A 8B4508 mov eax, [ebp+$08]
0074CD7D 8B50E0 mov edx, [eax-$20]
0074CD80 8B4508 mov eax, [ebp+$08]
0074CD83 8B40F4 mov eax, [eax-$0C]
* Reference to: system.@LStrPos;
|
0074CD86 E8F178CBFF call 0040467C
0074CD8B 85C0 test eax, eax
0074CD8D 747A jz 0074CE09
0074CD8F 8B4508 mov eax, [ebp+$08]
0074CD92 F640E702 test byte ptr [eax-$19], $02
0074CD96 7471 jz 0074CE09
0074CD98 8B4508 mov eax, [ebp+$08]
0074CD9B 8B50E0 mov edx, [eax-$20]
0074CD9E 8B4508 mov eax, [ebp+$08]
0074CDA1 8B40F0 mov eax, [eax-$10]
* Reference to: system.@LStrPos;
|
0074CDA4 E8D378CBFF call 0040467C
0074CDA9 85C0 test eax, eax
0074CDAB 745C jz 0074CE09
0074CDAD 8B4508 mov eax, [ebp+$08]
0074CDB0 50 push eax
* Reference to : TfrmClip._PROC_0074CBEC()
|
0074CDB1 E836FEFFFF call 0074CBEC
0074CDB6 59 pop ecx
0074CDB7 5D pop ebp
0074CDB8 C3 ret
0074CDB9 8B4508 mov eax, [ebp+$08]
0074CDBC F640E701 test byte ptr [eax-$19], $01
0074CDC0 741F jz 0074CDE1
0074CDC2 8B4508 mov eax, [ebp+$08]
0074CDC5 8B50E0 mov edx, [eax-$20]
0074CDC8 8B4508 mov eax, [ebp+$08]
0074CDCB 8B40F4 mov eax, [eax-$0C]
* Reference to: system.@LStrPos;
|
0074CDCE E8A978CBFF call 0040467C
0074CDD3 85C0 test eax, eax
0074CDD5 740A jz 0074CDE1
0074CDD7 8B4508 mov eax, [ebp+$08]
0074CDDA 50 push eax
* Reference to : TfrmClip._PROC_0074CBEC()
|
0074CDDB E80CFEFFFF call 0074CBEC
0074CDE0 59 pop ecx
0074CDE1 8B4508 mov eax, [ebp+$08]
0074CDE4 F640E702 test byte ptr [eax-$19], $02
0074CDE8 741F jz 0074CE09
0074CDEA 8B4508 mov eax, [ebp+$08]
0074CDED 8B50E0 mov edx, [eax-$20]
0074CDF0 8B4508 mov eax, [ebp+$08]
0074CDF3 8B40F0 mov eax, [eax-$10]
* Reference to: system.@LStrPos;
|
0074CDF6 E88178CBFF call 0040467C
0074CDFB 85C0 test eax, eax
0074CDFD 740A jz 0074CE09
0074CDFF 8B4508 mov eax, [ebp+$08]
0074CE02 50 push eax
* Reference to : TfrmClip._PROC_0074CBEC()
|
0074CE03 E8E4FDFFFF call 0074CBEC
0074CE08 59 pop ecx
0074CE09 5D pop ebp
0074CE0A C3 ret
*)
end;
procedure TfrmClip._PROC_0074CE1D(Sender : TObject);
begin
(*
0074CE1D 8BEC mov ebp, esp
0074CE1F 83C4E0 add esp, -$20
0074CE22 53 push ebx
0074CE23 56 push esi
0074CE24 33DB xor ebx, ebx
0074CE26 895DF4 mov [ebp-$0C], ebx
0074CE29 895DF0 mov [ebp-$10], ebx
0074CE2C 894DE0 mov [ebp-$20], ecx
0074CE2F 8855E7 mov [ebp-$19], dl
0074CE32 8945FC mov [ebp-$04], eax
0074CE35 8B45E0 mov eax, [ebp-$20]
* Reference to: system.@LStrAddRef;
|
0074CE38 E80777CBFF call 00404544
0074CE3D 8D75EE lea esi, [ebp-$12]
0074CE40 33C0 xor eax, eax
0074CE42 55 push ebp
0074CE43 681CCF7400 push $0074CF1C
***** TRY
|
0074CE48 64FF30 push dword ptr fs:[eax]
0074CE4B 648920 mov fs:[eax], esp
0074CE4E 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmClip.Owner : TComponent
|
0074CE51 8B4004 mov eax, [eax+$04]
0074CE54 85C0 test eax, eax
0074CE56 7405 jz 0074CE5D
* Reference to: system.@FreeMem;
|
0074CE58 E8235ACBFF call 00402880
0074CE5D 8B45FC mov eax, [ebp-$04]
0074CE60 33D2 xor edx, edx
* Reference to field TfrmClip.Name : TComponentName
|
0074CE62 895008 mov [eax+$08], edx
0074CE65 33DB xor ebx, ebx
0074CE67 C645FB00 mov byte ptr [ebp-$05], $00
0074CE6B 53 push ebx
0074CE6C 8A0D2CCF7400 mov cl, byte ptr [$0074CF2C]
0074CE72 33D2 xor edx, edx
0074CE74 8A45FB mov al, byte ptr [ebp-$05]
* Reference to: Unit_00651A88.Proc_00652818
|
0074CE77 E89C59F0FF call 00652818
0074CE7C 8BC6 mov eax, esi
* Reference to: Unit_00651A88.Proc_00652844
|
0074CE7E E8C159F0FF call 00652844
0074CE83 84C0 test al, al
0074CE85 7420 jz 0074CEA7
0074CE87 55 push ebp
* Reference to : TfrmClip._PROC_0074CD18()
|
0074CE88 E88BFEFFFF call 0074CD18
0074CE8D 59 pop ecx
0074CE8E EB07 jmp 0074CE97
0074CE90 55 push ebp
* Reference to : TfrmClip._PROC_0074CD18()
|
0074CE91 E882FEFFFF call 0074CD18
0074CE96 59 pop ecx
0074CE97 8BC6 mov eax, esi
0074CE99 BA01000000 mov edx, $00000001
* Reference to: Unit_00651A88.Proc_00652860
|
0074CE9E E8BD59F0FF call 00652860
0074CEA3 84C0 test al, al
0074CEA5 75E9 jnz 0074CE90
* Reference to: Unit_00651A88.Proc_0065287C
|
0074CEA7 E8D059F0FF call 0065287C
0074CEAC FE45FB inc byte ptr [ebp-$05]
0074CEAF 807DFB03 cmp byte ptr [ebp-$05], $03
0074CEB3 75B6 jnz 0074CE6B
0074CEB5 C645FB01 mov byte ptr [ebp-$05], $01
0074CEB9 53 push ebx
0074CEBA 8A0D2CCF7400 mov cl, byte ptr [$0074CF2C]
0074CEC0 B204 mov dl, $04
0074CEC2 B001 mov al, $01
* Reference to: Unit_00651A88.Proc_00652818
|
0074CEC4 E84F59F0FF call 00652818
0074CEC9 8BC6 mov eax, esi
* Reference to: Unit_00651A88.Proc_00652844
|
0074CECB E87459F0FF call 00652844
0074CED0 84C0 test al, al
0074CED2 7420 jz 0074CEF4
0074CED4 55 push ebp
* Reference to : TfrmClip._PROC_0074CD18()
|
0074CED5 E83EFEFFFF call 0074CD18
0074CEDA 59 pop ecx
0074CEDB EB07 jmp 0074CEE4
0074CEDD 55 push ebp
* Reference to : TfrmClip._PROC_0074CD18()
|
0074CEDE E835FEFFFF call 0074CD18
0074CEE3 59 pop ecx
0074CEE4 8BC6 mov eax, esi
0074CEE6 BA01000000 mov edx, $00000001
* Reference to: Unit_00651A88.Proc_00652860
|
0074CEEB E87059F0FF call 00652860
0074CEF0 84C0 test al, al
0074CEF2 75E9 jnz 0074CEDD
* Reference to: Unit_00651A88.Proc_0065287C
|
0074CEF4 E88359F0FF call 0065287C
0074CEF9 33C0 xor eax, eax
0074CEFB 5A pop edx
0074CEFC 59 pop ecx
0074CEFD 59 pop ecx
0074CEFE 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[嬪]⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -