📄 zhsearch.pas
字号:
* Reference to: system.@LStrCopy;
|
006B69CC E8C7DBD4FF call 00404598
006B69D1 8B55EC mov edx, [ebp-$14]
006B69D4 8BC7 mov eax, edi
* Reference to: comctrls.TListItem.SetCaption(TListItem;AnsiString);
|
006B69D6 E8F569DCFF call 0047D3D0
006B69DB 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmSearch.OFFS_0315 : Byte
|
006B69DE 80B81503000000 cmp byte ptr [eax+$0315], $00
006B69E5 7504 jnz 006B69EB
006B69E7 33DB xor ebx, ebx
006B69E9 EB02 jmp 006B69ED
006B69EB B301 mov bl, $01
006B69ED 8D45F4 lea eax, [ebp-$0C]
* Reference to: system.@LStrClr(String;String);
|
006B69F0 E8FFD6D4FF call 004040F4
006B69F5 8D4DF2 lea ecx, [ebp-$0E]
006B69F8 8B55EC mov edx, [ebp-$14]
006B69FB 8BC3 mov eax, ebx
* Reference to: Unit_00651A88.Proc_00652798
|
006B69FD E896BDF9FF call 00652798
006B6A02 84C0 test al, al
006B6A04 740C jz 006B6A12
006B6A06 8D55F4 lea edx, [ebp-$0C]
006B6A09 668B45F2 mov ax, word ptr [ebp-$0E]
* Reference to: Unit_00651A88.Proc_006527F4
|
006B6A0D E8E2BDF9FF call 006527F4
006B6A12 8B55F4 mov edx, [ebp-$0C]
006B6A15 8B4708 mov eax, [edi+$08]
006B6A18 8B08 mov ecx, [eax]
006B6A1A FF5134 call dword ptr [ecx+$34]
006B6A1D 8B55F8 mov edx, [ebp-$08]
006B6A20 8B4708 mov eax, [edi+$08]
006B6A23 8B08 mov ecx, [eax]
006B6A25 FF5134 call dword ptr [ecx+$34]
006B6A28 F6460810 test byte ptr [esi+$08], $10
006B6A2C 740F jz 006B6A3D
* Possible String Reference to: 'Folder'
|
006B6A2E BA246B6B00 mov edx, $006B6B24
006B6A33 8B4708 mov eax, [edi+$08]
006B6A36 8B08 mov ecx, [eax]
006B6A38 FF5134 call dword ptr [ecx+$34]
006B6A3B EB34 jmp 006B6A71
006B6A3D 8D55E8 lea edx, [ebp-$18]
006B6A40 8B4604 mov eax, [esi+$04]
006B6A43 05FF030000 add eax, +$000003FF
006B6A48 85C0 test eax, eax
006B6A4A 7905 jns 006B6A51
006B6A4C 05FF030000 add eax, +$000003FF
006B6A51 C1F80A sar eax, $0A
* Reference to: Unit_00409434.Proc_0040A564
|
006B6A54 E80B3BD5FF call 0040A564
006B6A59 8D45E8 lea eax, [ebp-$18]
* Possible String Reference to: 'KB'
|
006B6A5C BA346B6B00 mov edx, $006B6B34
* Reference to: system.@LStrCat;
|
006B6A61 E832D9D4FF call 00404398
006B6A66 8B55E8 mov edx, [ebp-$18]
006B6A69 8B4708 mov eax, [edi+$08]
006B6A6C 8B08 mov ecx, [eax]
006B6A6E FF5134 call dword ptr [ecx+$34]
006B6A71 8B06 mov eax, [esi]
* Reference to: Unit_00409434.Proc_0040B040
|
006B6A73 E8C845D5FF call 0040B040
006B6A78 83C4F8 add esp, -$08
006B6A7B DD1C24 fstp qword ptr [esp]
006B6A7E 9B wait
006B6A7F 8D45E4 lea eax, [ebp-$1C]
* Reference to: Unit_00409434.Proc_0040CF1C
|
006B6A82 E89564D5FF call 0040CF1C
006B6A87 8B55E4 mov edx, [ebp-$1C]
006B6A8A 8B4708 mov eax, [edi+$08]
006B6A8D 8B08 mov ecx, [eax]
006B6A8F FF5134 call dword ptr [ecx+$34]
006B6A92 8D45E0 lea eax, [ebp-$20]
006B6A95 50 push eax
006B6A96 8B460C mov eax, [esi+$0C]
* Reference to: system.@LStrLen:Integer;
|
006B6A99 E8F2D8D4FF call 00404390
006B6A9E 8BD0 mov edx, eax
006B6AA0 83EA03 sub edx, +$03
006B6AA3 8B460C mov eax, [esi+$0C]
006B6AA6 B904000000 mov ecx, $00000004
* Reference to: system.@LStrCopy;
|
006B6AAB E8E8DAD4FF call 00404598
006B6AB0 8B55E0 mov edx, [ebp-$20]
006B6AB3 8B4708 mov eax, [edi+$08]
006B6AB6 8B08 mov ecx, [eax]
006B6AB8 FF5134 call dword ptr [ecx+$34]
006B6ABB 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSearch.FindFile : TFindFile
|
006B6ABE 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field TFindFile.OFFS_00EC
|
006B6AC4 80B8EC00000000 cmp byte ptr [eax+$00EC], $00
006B6ACB 750C jnz 006B6AD9
* Reference to TApplication instance
|
006B6ACD A100D17700 mov eax, dword ptr [$0077D100]
006B6AD2 8B00 mov eax, [eax]
* Reference to: forms.TApplication.ProcessMessages(TApplication);
|
006B6AD4 E83B27DAFF call 00459214
006B6AD9 33C0 xor eax, eax
006B6ADB 5A pop edx
006B6ADC 59 pop ecx
006B6ADD 59 pop ecx
006B6ADE 648910 mov fs:[eax], edx
****** FINALLY
|
006B6AE1 68106B6B00 push $006B6B10
006B6AE6 8D45E0 lea eax, [ebp-$20]
* Reference to: system.@LStrClr(String;String);
|
006B6AE9 E806D6D4FF call 004040F4
006B6AEE 8D45E4 lea eax, [ebp-$1C]
006B6AF1 BA03000000 mov edx, $00000003
* Reference to: system.@LStrArrayClr;
|
006B6AF6 E81DD6D4FF call 00404118
006B6AFB 8D45F4 lea eax, [ebp-$0C]
006B6AFE BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
006B6B03 E810D6D4FF call 00404118
006B6B08 C3 ret
* Reference to: system.@HandleFinally;
|
006B6B09 E91ECFD4FF jmp 00403A2C
006B6B0E EBD6 jmp 006B6AE6
****** END
|
006B6B10 5F pop edi
006B6B11 5E pop esi
006B6B12 5B pop ebx
006B6B13 8BE5 mov esp, ebp
006B6B15 5D pop ebp
006B6B16 C20400 ret $0004
*)
end;
procedure TfrmSearch.FoundFilesColumnClick(Sender : TObject);
begin
(*
006B6B38 53 push ebx
006B6B39 56 push esi
006B6B3A 57 push edi
006B6B3B 55 push ebp
006B6B3C 8BE9 mov ebp, ecx
006B6B3E 8BF2 mov esi, edx
006B6B40 8BD8 mov ebx, eax
006B6B42 33D2 xor edx, edx
006B6B44 8BFE mov edi, esi
006B6B46 8BC7 mov eax, edi
* Reference to: comctrls.TCustomListView.SetSortType(TCustomListView;TSortType);
|
006B6B48 E8FBA0DCFF call 00480C48
006B6B4D 8BC5 mov eax, ebp
* Reference to: classes.TCollectionItem.GetIndex(TCollectionItem):Integer;
|
006B6B4F E8B4DDD5FF call 00414908
* Reference to field TfrmSearch.OFFS_0310
|
006B6B54 3B8310030000 cmp eax, [ebx+$0310]
006B6B5A 7416 jz 006B6B72
006B6B5C 8BC5 mov eax, ebp
* Reference to: classes.TCollectionItem.GetIndex(TCollectionItem):Integer;
|
006B6B5E E8A5DDD5FF call 00414908
* Reference to field TfrmSearch.OFFS_0310
|
006B6B63 898310030000 mov [ebx+$0310], eax
* Reference to field TfrmSearch.OFFS_0314 : Byte
|
006B6B69 C6831403000000 mov byte ptr [ebx+$0314], $00
006B6B70 EB0E jmp 006B6B80
* Reference to field TfrmSearch.OFFS_0314 : Byte
|
006B6B72 8A8314030000 mov al, byte ptr [ebx+$0314]
006B6B78 3401 xor al, $01
* Reference to field TfrmSearch.OFFS_0314 : Byte
|
006B6B7A 888314030000 mov [ebx+$0314], al
006B6B80 B202 mov dl, $02
006B6B82 8BC7 mov eax, edi
* Reference to: comctrls.TCustomListView.SetSortType(TCustomListView;TSortType);
|
006B6B84 E8BFA0DCFF call 00480C48
006B6B89 5D pop ebp
006B6B8A 5F pop edi
006B6B8B 5E pop esi
006B6B8C 5B pop ebx
006B6B8D C3 ret
*)
end;
procedure TfrmSearch.FoundFilesCompare(Sender : TObject);
begin
(*
006B6B90 55 push ebp
006B6B91 8BEC mov ebp, esp
006B6B93 6A00 push $00
006B6B95 6A00 push $00
006B6B97 6A00 push $00
006B6B99 53 push ebx
006B6B9A 56 push esi
006B6B9B 57 push edi
006B6B9C 894DFC mov [ebp-$04], ecx
006B6B9F 8BD8 mov ebx, eax
006B6BA1 8B7508 mov esi, [ebp+$08]
006B6BA4 33C0 xor eax, eax
006B6BA6 55 push ebp
006B6BA7 68386C6B00 push $006B6C38
***** TRY
|
006B6BAC 64FF30 push dword ptr fs:[eax]
006B6BAF 648920 mov fs:[eax], esp
* Reference to field TfrmSearch.OFFS_0310
|
006B6BB2 83BB1003000000 cmp dword ptr [ebx+$0310], +$00
006B6BB9 7515 jnz 006B6BD0
006B6BBB 8B4510 mov eax, [ebp+$10]
* Reference to field TfrmSearch.Parent : TWinControl
|
006B6BBE 8B5024 mov edx, [eax+$24]
006B6BC1 8B45FC mov eax, [ebp-$04]
006B6BC4 8B4024 mov eax, [eax+$24]
* Reference to: Unit_00409434.Proc_0040A1B0
|
006B6BC7 E8E435D5FF call 0040A1B0
006B6BCC 8906 mov [esi], eax
006B6BCE EB42 jmp 006B6C12
* Reference to field TfrmSearch.OFFS_0310
|
006B6BD0 83BB1003000000 cmp dword ptr [ebx+$0310], +$00
006B6BD7 7E39 jle 006B6C12
006B6BD9 8D4DF8 lea ecx, [ebp-$08]
* Reference to field TfrmSearch.OFFS_0310
|
006B6BDC 8B9310030000 mov edx, [ebx+$0310]
006B6BE2 4A dec edx
006B6BE3 8B4510 mov eax, [ebp+$10]
006B6BE6 8B4008 mov eax, [eax+$08]
006B6BE9 8B38 mov edi, [eax]
006B6BEB FF570C call dword ptr [edi+$0C]
006B6BEE 8B45F8 mov eax, [ebp-$08]
006B6BF1 50 push eax
006B6BF2 8D4DF4 lea ecx, [ebp-$0C]
* Reference to field TfrmSearch.OFFS_0310
|
006B6BF5 8B9310030000 mov edx, [ebx+$0310]
006B6BFB 4A dec edx
006B6BFC 8B45FC mov eax, [ebp-$04]
006B6BFF 8B4008 mov eax, [eax+$08]
006B6C02 8B38 mov edi, [eax]
006B6C04 FF570C call dword ptr [edi+$0C]
006B6C07 8B45F4 mov eax, [ebp-$0C]
006B6C0A 5A pop edx
* Reference to: Unit_00409434.Proc_0040A1B0
|
006B6C0B E8A035D5FF call 0040A1B0
006B6C10 8906 mov [esi], eax
* Reference to field TfrmSearch.OFFS_0314 : Byte
|
006B6C12 80BB1403000000 cmp byte ptr [ebx+$0314], $00
006B6C19 7402 jz 006B6C1D
006B6C1B F71E neg dword ptr [esi]
006B6C1D 33C0 xor eax, eax
006B6C1F 5A pop edx
006B6C20 59 pop ecx
006B6C21 59 pop ecx
006B6C22 648910 mov fs:[eax], edx
****** FINALLY
|
006B6C25 683F6C6B00 push $006B6C3F
006B6C2A 8D45F4 lea eax, [ebp-$0C]
006B6C2D BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
006B6C32 E8E1D4D4FF call 00404118
006B6C37 C3 ret
* Reference to: system.@HandleFinally;
|
006B6C38 E9EFCDD4FF jmp 00403A2C
006B6C3D EBEB jmp 006B6C2A
****** END
|
006B6C3F 5F pop edi
006B6C40 5E pop esi
006B6C41 5B pop ebx
006B6C42 8BE5 mov esp, ebp
006B6C44 5D pop ebp
006B6C45 C20C00 ret $000C
*)
end;
procedure TfrmSearch.FindFileComplete(Sender : TObject);
begin
(*
006B6798 55 push ebp
006B6799 8BEC mov ebp, esp
006B679B 83C4E8 add esp, -$18
006B679E 53 push ebx
006B679F 56 push esi
006B67A0 33C9 xor ecx, ecx
006B67A2 894DE8 mov [ebp-$18], ecx
006B67A5 894DFC mov [ebp-$04], ecx
006B67A8 8BD8 mov ebx, eax
006B67AA 33C0 xor eax, eax
006B67AC 55 push ebp
* Possible String Reference to: '閵言⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -