📄 zhsearch.pas
字号:
unit ZHSearch;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmSearch=class(TForm)
FindFile: TFindFile;
StatusBar: TStatusBar;
Panel1: TPanel;
Containing: TEdit;
StopButton: TBitBtn;
Animate: TAnimate;
Panel2: TPanel;
FoundFiles: TListView;
Panel3: TPanel;
RichEdit1: TRichEdit;
Splitter1: TSplitter;
Button2: TBitBtn;
FindButton: TBitBtn;
RxGradientCaption1: TRxGradientCaption;
OFFS_0315: N.A.;
OFFS_0314: N.A.;
procedure FindButtonClick(Sender : TObject);
procedure StopButtonClick(Sender : TObject);
procedure FindFileNewFolder(Sender : TObject);
procedure FindFileFound(Sender : TObject);
procedure FoundFilesColumnClick(Sender : TObject);
procedure FoundFilesCompare(Sender : TObject);
procedure FindFileComplete(Sender : TObject);
procedure FoundFilesDblClick(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure _PROC_006B64D0(Sender : TObject);
procedure _PROC_006B6E5C(Sender : TObject);
procedure _PROC_006B6E8C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmSearch: TfrmSearch;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmSearch.FindButtonClick(Sender : TObject);
begin
(*
006B669C 55 push ebp
006B669D 8BEC mov ebp, esp
006B669F 6A00 push $00
006B66A1 6A00 push $00
006B66A3 53 push ebx
006B66A4 8BD8 mov ebx, eax
006B66A6 33C0 xor eax, eax
006B66A8 55 push ebp
006B66A9 6880676B00 push $006B6780
***** TRY
|
006B66AE 64FF30 push dword ptr fs:[eax]
006B66B1 648920 mov fs:[eax], esp
006B66B4 8D55F8 lea edx, [ebp-$08]
* Reference to control TfrmSearch.Containing : TEdit
|
006B66B7 8B83DC020000 mov eax, [ebx+$02DC]
* Reference to: controls.TControl.GetText(TControl):TCaption;
|
006B66BD E88E33D8FF call 00439A50
006B66C2 8B45F8 mov eax, [ebp-$08]
006B66C5 8D55FC lea edx, [ebp-$04]
* Reference to: Unit_00409434.Proc_0040A37C
|
006B66C8 E8AF3CD5FF call 0040A37C
006B66CD 837DFC00 cmp dword ptr [ebp-$04], +$00
006B66D1 0F848B000000 jz 006B6762
006B66D7 33C0 xor eax, eax
* Reference to field TfrmSearch.OFFS_0308
|
006B66D9 898308030000 mov [ebx+$0308], eax
* Reference to: kernel32.GetTickCount()
|
006B66DF E8A41AD5FF call 00408188
* Reference to field TfrmSearch.OFFS_030C
|
006B66E4 89830C030000 mov [ebx+$030C], eax
* Reference to field TfrmSearch.OFFS_0310
|
006B66EA C78310030000FFFFFFFF mov dword ptr [ebx+$0310], $FFFFFFFF
006B66F4 33D2 xor edx, edx
* Reference to control TfrmSearch.FoundFiles : TListView
|
006B66F6 8B83EC020000 mov eax, [ebx+$02EC]
* Reference to: comctrls.TCustomListView.SetSortType(TCustomListView;TSortType);
|
006B66FC E847A5DCFF call 00480C48
* Reference to control TfrmSearch.FoundFiles : TListView
|
006B6701 8B83EC020000 mov eax, [ebx+$02EC]
* Reference to field TListView.Items : TListItems
|
006B6707 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.BeginUpdate(TListItems);
|
006B670D E83E73DCFF call 0047DA50
* Reference to control TfrmSearch.FoundFiles : TListView
|
006B6712 8B83EC020000 mov eax, [ebx+$02EC]
* Reference to field TListView.Items : TListItems
|
006B6718 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.Clear(TListItems);
|
006B671E E80D73DCFF call 0047DA30
* Reference to control TfrmSearch.FoundFiles : TListView
|
006B6723 8B83EC020000 mov eax, [ebx+$02EC]
* Reference to field TListView.Items : TListItems
|
006B6729 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.EndUpdate(TListItems);
|
006B672F E8F874DCFF call 0047DC2C
006B6734 33D2 xor edx, edx
* Reference to control TfrmSearch.FindButton : TBitBtn
|
006B6736 8B8300030000 mov eax, [ebx+$0300]
006B673C 8B08 mov ecx, [eax]
* Possible reference to virtual method TBitBtn.OFFS_5C
|
006B673E FF515C call dword ptr [ecx+$5C]
006B6741 B201 mov dl, $01
* Reference to control TfrmSearch.StopButton : TBitBtn
|
006B6743 8B83E0020000 mov eax, [ebx+$02E0]
006B6749 8B08 mov ecx, [eax]
* Possible reference to virtual method TBitBtn.OFFS_5C
|
006B674B FF515C call dword ptr [ecx+$5C]
006B674E B201 mov dl, $01
* Reference to control TfrmSearch.Animate : TAnimate
|
006B6750 8B83E4020000 mov eax, [ebx+$02E4]
* Reference to: comctrls.TAnimate.SetActive(TAnimate;Boolean);
|
006B6756 E811BEDCFF call 0048256C
006B675B 8BC3 mov eax, ebx
* Reference to : TfrmSearch._PROC_006B64D0()
|
006B675D E86EFDFFFF call 006B64D0
006B6762 33C0 xor eax, eax
006B6764 5A pop edx
006B6765 59 pop ecx
006B6766 59 pop ecx
006B6767 648910 mov fs:[eax], edx
****** FINALLY
|
006B676A 6887676B00 push $006B6787
006B676F 8D45F8 lea eax, [ebp-$08]
* Reference to: system.@LStrClr(String;String);
|
006B6772 E87DD9D4FF call 004040F4
006B6777 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006B677A E875D9D4FF call 004040F4
006B677F C3 ret
* Reference to: system.@HandleFinally;
|
006B6780 E9A7D2D4FF jmp 00403A2C
006B6785 EBE8 jmp 006B676F
****** END
|
006B6787 5B pop ebx
006B6788 59 pop ecx
006B6789 59 pop ecx
006B678A 5D pop ebp
006B678B C3 ret
*)
end;
procedure TfrmSearch.StopButtonClick(Sender : TObject);
begin
(*
* Reference to control TfrmSearch.FindFile : TFindFile
|
006B678C 8B80D0020000 mov eax, [eax+$02D0]
* Reference to: FFile.Proc_005650C0
|
006B6792 E829E9EAFF call 005650C0
006B6797 C3 ret
*)
end;
procedure TfrmSearch.FindFileNewFolder(Sender : TObject);
begin
(*
006B68F4 55 push ebp
006B68F5 8BEC mov ebp, esp
006B68F7 51 push ecx
006B68F8 53 push ebx
006B68F9 894DFC mov [ebp-$04], ecx
006B68FC 8BD8 mov ebx, eax
006B68FE 8B45FC mov eax, [ebp-$04]
* Reference to: system.@LStrAddRef;
|
006B6901 E83EDCD4FF call 00404544
006B6906 33C0 xor eax, eax
006B6908 55 push ebp
006B6909 6859696B00 push $006B6959
***** TRY
|
006B690E 64FF30 push dword ptr fs:[eax]
006B6911 648920 mov fs:[eax], esp
006B6914 FF8308030000 inc dword ptr [ebx+$0308]
006B691A 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmSearch.StatusBar : TStatusBar
|
006B691D 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: comctrls.TStatusBar.SetSimpleText(TStatusBar;AnsiString);
|
006B6923 E800EBDBFF call 00475428
* Reference to control TfrmSearch.FindFile : TFindFile
|
006B6928 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TFindFile.OFFS_00EC
|
006B692E 80B8EC00000000 cmp byte ptr [eax+$00EC], $00
006B6935 750C jnz 006B6943
* Reference to TApplication instance
|
006B6937 A100D17700 mov eax, dword ptr [$0077D100]
006B693C 8B00 mov eax, [eax]
* Reference to: forms.TApplication.ProcessMessages(TApplication);
|
006B693E E8D128DAFF call 00459214
006B6943 33C0 xor eax, eax
006B6945 5A pop edx
006B6946 59 pop ecx
006B6947 59 pop ecx
006B6948 648910 mov fs:[eax], edx
****** FINALLY
|
006B694B 6860696B00 push $006B6960
006B6950 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
006B6953 E89CD7D4FF call 004040F4
006B6958 C3 ret
* Reference to: system.@HandleFinally;
|
006B6959 E9CED0D4FF jmp 00403A2C
006B695E EBF0 jmp 006B6950
****** END
|
006B6960 5B pop ebx
006B6961 59 pop ecx
006B6962 5D pop ebp
006B6963 C20400 ret $0004
*)
end;
procedure TfrmSearch.FindFileFound(Sender : TObject);
begin
(*
006B6968 55 push ebp
006B6969 8BEC mov ebp, esp
006B696B 6A00 push $00
006B696D 6A00 push $00
006B696F 6A00 push $00
006B6971 6A00 push $00
006B6973 6A00 push $00
006B6975 6A00 push $00
006B6977 6A00 push $00
006B6979 6A00 push $00
006B697B 53 push ebx
006B697C 56 push esi
006B697D 57 push edi
006B697E 894DF8 mov [ebp-$08], ecx
006B6981 8945FC mov [ebp-$04], eax
006B6984 8B7508 mov esi, [ebp+$08]
006B6987 8B45F8 mov eax, [ebp-$08]
* Reference to: system.@LStrAddRef;
|
006B698A E8B5DBD4FF call 00404544
006B698F 33C0 xor eax, eax
006B6991 55 push ebp
006B6992 68096B6B00 push $006B6B09
***** TRY
|
006B6997 64FF30 push dword ptr fs:[eax]
006B699A 648920 mov fs:[eax], esp
006B699D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSearch.FoundFiles : TListView
|
006B69A0 8B80EC020000 mov eax, [eax+$02EC]
* Reference to field TListView.Items : TListItems
|
006B69A6 8B800C020000 mov eax, [eax+$020C]
* Reference to: comctrls.TListItems.Add(TListItems):TListItem;
|
006B69AC E84B6FDCFF call 0047D8FC
006B69B1 8BF8 mov edi, eax
006B69B3 8D45EC lea eax, [ebp-$14]
006B69B6 50 push eax
006B69B7 8B460C mov eax, [esi+$0C]
* Reference to: system.@LStrLen:Integer;
|
006B69BA E8D1D9D4FF call 00404390
006B69BF 8BC8 mov ecx, eax
006B69C1 83E904 sub ecx, +$04
006B69C4 8B460C mov eax, [esi+$0C]
006B69C7 BA01000000 mov edx, $00000001
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -