📄 gwclip.pas
字号:
0074D28B B8D0D27400 mov eax, $0074D2D0
* Reference to: Unit_004A9D84.Proc_004A9EA4
|
0074D290 E80FCCD5FF call 004A9EA4
0074D295 84C0 test al, al
0074D297 750A jnz 0074D2A3
* Possible String Reference to: '..\clipbrd'
|
0074D299 B8D0D27400 mov eax, $0074D2D0
* Reference to: Unit_004A9EA4.Proc_004A9EC8
|
0074D29E E825CCD5FF call 004A9EC8
* Reference to control TfrmClip.RichEdit1 : TRichEdit
|
0074D2A3 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TRichEdit.Lines : TStrings
|
0074D2A9 8B8030020000 mov eax, [eax+$0230]
* Possible String Reference to: '..\clipbrd\clip.txt'
|
0074D2AF BAE4D27400 mov edx, $0074D2E4
0074D2B4 8B08 mov ecx, [eax]
* Reference to method TStrings.SaveToFile(string)
|
0074D2B6 FF5164 call dword ptr [ecx+$64]
* Possible String Reference to: '文件保存到\dzh\clipbrd\clip.txt!'
|
0074D2B9 B800D37400 mov eax, $0074D300
* Reference to: dialogs.ShowMessage(AnsiString);
|
0074D2BE E89584D1FF call 00465758
0074D2C3 5B pop ebx
0074D2C4 C3 ret
*)
end;
procedure TfrmClip.Timer1Timer(Sender : TObject);
begin
(*
0074D324 53 push ebx
0074D325 8BD8 mov ebx, eax
* Reference to control TfrmClip.CheckBox3 : TCheckBox
|
0074D327 8B83EC020000 mov eax, [ebx+$02EC]
0074D32D 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
0074D32F FF92B4000000 call dword ptr [edx+$00B4]
0074D335 84C0 test al, al
0074D337 7425 jz 0074D35E
0074D339 A1B0CD7700 mov eax, dword ptr [$0077CDB0]
0074D33E 833800 cmp dword ptr [eax], +$00
0074D341 750E jnz 0074D351
* Reference to THJ32Main instance
|
0074D343 A158D37700 mov eax, dword ptr [$0077D358]
0074D348 8B00 mov eax, [eax]
0074D34A B201 mov dl, $01
* Reference to : THJ32Main._PROC_006B1BF8()
|
0074D34C E8A748F6FF call 006B1BF8
0074D351 A1B0CD7700 mov eax, dword ptr [$0077CDB0]
0074D356 C70001000000 mov dword ptr [eax], $00000001
0074D35C 5B pop ebx
0074D35D C3 ret
0074D35E A1B0CD7700 mov eax, dword ptr [$0077CDB0]
0074D363 833801 cmp dword ptr [eax], +$01
0074D366 750E jnz 0074D376
* Reference to THJ32Main instance
|
0074D368 A158D37700 mov eax, dword ptr [$0077D358]
0074D36D 8B00 mov eax, [eax]
0074D36F 33D2 xor edx, edx
* Reference to : THJ32Main._PROC_006B1BF8()
|
0074D371 E88248F6FF call 006B1BF8
0074D376 A1B0CD7700 mov eax, dword ptr [$0077CDB0]
0074D37B 33D2 xor edx, edx
0074D37D 8910 mov [eax], edx
0074D37F 5B pop ebx
0074D380 C3 ret
*)
end;
procedure TfrmClip.FormClose(Sender : TObject);
begin
(*
0074D384 53 push ebx
0074D385 8BD9 mov ebx, ecx
0074D387 8BD0 mov edx, eax
* Reference to : TfrmClip.Timer1Timer()
|
0074D389 E896FFFFFF call 0074D324
0074D38E C60302 mov byte ptr [ebx], $02
0074D391 5B pop ebx
0074D392 C3 ret
*)
end;
procedure TfrmClip.Button2Click(Sender : TObject);
begin
(*
* Reference to TApplication instance
|
0074D394 A100D17700 mov eax, dword ptr [$0077D100]
0074D399 8B00 mov eax, [eax]
0074D39B BAED070000 mov edx, $000007ED
* Reference to: forms.TApplication.HelpContext(TApplication;THelpContext):Boolean;
|
0074D3A0 E8CFC4D0FF call 00459874
0074D3A5 C3 ret
*)
end;
procedure TfrmClip._PROC_0074CB9C(Sender : TObject);
begin
(*
0074CB9C 53 push ebx
0074CB9D 56 push esi
* Reference to: system.@BeforeDestruction;
|
0074CB9E E8C96ACBFF call 0040366C
0074CBA3 8BDA mov ebx, edx
0074CBA5 8BF0 mov esi, eax
0074CBA7 8BD3 mov edx, ebx
0074CBA9 80E2FC and dl, $FC
0074CBAC 8BC6 mov eax, esi
* Reference to: system.TObject.Destroy(TObject;Boolean);
|
0074CBAE E80967CBFF call 004032BC
* Reference to field TfrmClip.Owner : TComponent
|
0074CBB3 8B4604 mov eax, [esi+$04]
0074CBB6 85C0 test eax, eax
0074CBB8 7405 jz 0074CBBF
* Reference to: system.@FreeMem;
|
0074CBBA E8C15CCBFF call 00402880
0074CBBF 84DB test bl, bl
0074CBC1 7E07 jle 0074CBCA
0074CBC3 8BC6 mov eax, esi
* Reference to: system.@ClassDestroy;
|
0074CBC5 E8926ACBFF call 0040365C
0074CBCA 5E pop esi
0074CBCB 5B pop ebx
0074CBCC C3 ret
*)
end;
procedure TfrmClip._PROC_0074CBD0(Sender : TObject);
begin
(*
0074CBD0 53 push ebx
0074CBD1 8BD8 mov ebx, eax
* Reference to field TfrmClip.Owner : TComponent
|
0074CBD3 8B4304 mov eax, [ebx+$04]
0074CBD6 85C0 test eax, eax
0074CBD8 7405 jz 0074CBDF
* Reference to: system.@FreeMem;
|
0074CBDA E8A15CCBFF call 00402880
0074CBDF 33C0 xor eax, eax
* Reference to field TfrmClip.Name : TComponentName
|
0074CBE1 894308 mov [ebx+$08], eax
0074CBE4 33C0 xor eax, eax
* Reference to field TfrmClip.Owner : TComponent
|
0074CBE6 894304 mov [ebx+$04], eax
0074CBE9 5B pop ebx
0074CBEA C3 ret
*)
end;
procedure TfrmClip._PROC_0074CBEC(Sender : TObject);
begin
(*
0074CBEC 55 push ebp
0074CBED 8BEC mov ebp, esp
0074CBEF 81C4F8FEFFFF add esp, $FFFFFEF8
0074CBF5 53 push ebx
0074CBF6 56 push esi
0074CBF7 57 push edi
0074CBF8 33C0 xor eax, eax
0074CBFA 8945F8 mov [ebp-$08], eax
0074CBFD 33C0 xor eax, eax
0074CBFF 55 push ebp
0074CC00 6808CD7400 push $0074CD08
***** TRY
|
0074CC05 64FF30 push dword ptr fs:[eax]
0074CC08 648920 mov fs:[eax], esp
0074CC0B C645FF00 mov byte ptr [ebp-$01], $00
0074CC0F 8B4508 mov eax, [ebp+$08]
0074CC12 8B40FC mov eax, [eax-$04]
* Reference to field TfrmClip.Name : TComponentName
|
0074CC15 8B7008 mov esi, [eax+$08]
0074CC18 4E dec esi
0074CC19 85F6 test esi, esi
0074CC1B 7C3E jl 0074CC5B
0074CC1D 46 inc esi
0074CC1E 33FF xor edi, edi
0074CC20 8B4508 mov eax, [ebp+$08]
0074CC23 8B40FC mov eax, [eax-$04]
* Reference to field TfrmClip.Owner : TComponent
|
0074CC26 8B5804 mov ebx, [eax+$04]
0074CC29 6BC713 imul eax, edi, $13
0074CC2C 03D8 add ebx, eax
0074CC2E 8B4508 mov eax, [ebp+$08]
0074CC31 8A40FB mov al, byte ptr [eax-$05]
0074CC34 3A03 cmp al, byte ptr [ebx]
0074CC36 751F jnz 0074CC57
0074CC38 8D45F8 lea eax, [ebp-$08]
* Reference to field TComponent.OFFS_0001
|
0074CC3B 8D5301 lea edx, [ebx+$01]
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0074CC3E E8D576CBFF call 00404318
0074CC43 8B55F8 mov edx, [ebp-$08]
0074CC46 8B4508 mov eax, [ebp+$08]
0074CC49 8B40F4 mov eax, [eax-$0C]
* Reference to: system.@LStrCmp;
|
0074CC4C E84F78CBFF call 004044A0
0074CC51 7504 jnz 0074CC57
0074CC53 C645FF01 mov byte ptr [ebp-$01], $01
0074CC57 47 inc edi
0074CC58 4E dec esi
0074CC59 75C5 jnz 0074CC20
0074CC5B 807DFF00 cmp byte ptr [ebp-$01], $00
0074CC5F 0F858D000000 jnz 0074CCF2
0074CC65 8B4508 mov eax, [ebp+$08]
0074CC68 8B40FC mov eax, [eax-$04]
0074CC6B FF4008 inc dword ptr [eax+$08]
0074CC6E 8B4508 mov eax, [ebp+$08]
0074CC71 8B40FC mov eax, [eax-$04]
0074CC74 6B500813 imul edx, [eax+$08], $13
0074CC78 8B4508 mov eax, [ebp+$08]
0074CC7B 8B40FC mov eax, [eax-$04]
0074CC7E 83C004 add eax, +$04
* Reference to: system.@ReallocMem;
|
0074CC81 E8125CCBFF call 00402898
0074CC86 8B4508 mov eax, [ebp+$08]
0074CC89 8B40FC mov eax, [eax-$04]
0074CC8C 8B5804 mov ebx, [eax+$04]
0074CC8F 8B4508 mov eax, [ebp+$08]
0074CC92 8B40FC mov eax, [eax-$04]
0074CC95 8B4008 mov eax, [eax+$08]
0074CC98 48 dec eax
0074CC99 6BC013 imul eax, eax, $13
0074CC9C 03D8 add ebx, eax
0074CC9E 8B4508 mov eax, [ebp+$08]
0074CCA1 8A40FB mov al, byte ptr [eax-$05]
0074CCA4 8803 mov [ebx], al
0074CCA6 8D85F8FEFFFF lea eax, [ebp+$FFFFFEF8]
0074CCAC 8B5508 mov edx, [ebp+$08]
0074CCAF 8B52F4 mov edx, [edx-$0C]
0074CCB2 B9FF000000 mov ecx, $000000FF
* Reference to: system.@LStrToString;
|
0074CCB7 E8B076CBFF call 0040436C
0074CCBC 8D95F8FEFFFF lea edx, [ebp+$FFFFFEF8]
0074CCC2 8D4301 lea eax, [ebx+$01]
0074CCC5 B108 mov cl, $08
* Reference to: system.@PStrNCpy;
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -