delphi select 搜索不到特殊字符_电脑文件搜索神器 everything ——快到令人发指

最新推荐文章于 2022-11-27 20:50:56 发布
最新推荐文章于 2022-11-27 20:50:56 发布
阅读量168 收藏
点赞数
文章标签： delphi select 搜索不到特殊字符 msf rhosts设置文件 xp 搜索指定类型包含文字的 注册表文件 八门神器x86下载地址
 

电脑文件搜索神器   everything

                 ——快到令人发指                                  

   电脑使用时间长了，文件量是蹭蹭的往上涨，想找一个文件无异于大海捞针。如果你没有好的整理电脑文件的习惯，我估计你的电脑桌面会是这样的。

a345833dec2d86d83b6dec053f26b03b.png

系统自带的搜索功能又极其的难用。

ea5a296af4b245aa7bfc0c146a5fee8c.png

那么有没有一款能够方便快速的搜索电脑文件的软件呢？

当然有啦！

今天就向各位小主推荐一款体积小巧，功能又强大的电脑文件搜索神器：

Everything！

Everything下载地址：

https://dl.softmgr.qq.com/original/System/Everything-1.4.1.969.x86-Setup.exe

或FTP“##共享文件”文件夹。

固定布局                                                        工具条上设置固定宽高
背景可以设置被包含
可以完美对齐背景图和文字
以及制作自己的模板

使用步骤：

   1.下载完成后双击安装，安装完成双击打开，软件会自动检索电脑文件，检所完成后会显示下面的界面：

ce6f51a12fa04107ef18ed635caeec81.png

  2. 在顶部搜索框(就是红色箭头的位置哦)输入我们要搜索内容的关键字：

8e49b37f9efe7fcba88b9168706d6857.png

  3. 输入关键词后瞬间就可以找到相关的内容啦！

    是不是很简单？再也不用在海量的图标中翻找想要的文件啦！还不快来点赞？！

266408dac111d48102d5276310837a40.gif

固定布局                                                        工具条上设置固定宽高
背景可以设置被包含
可以完美对齐背景图和文字
以及制作自己的模板

写在最后

    日常的教学工作中，要想提高工作效率，就必须有一个清晰条理的电脑桌面，随着现在各种文件量的持续增长，建议老师们将文件按照时间或者类型等进行分类整理和存放，暂时用不到的文件整理后存放到其他硬盘中保存。

固定布局                                                        工具条上设置固定宽高
背景可以设置被包含
可以完美对齐背景图和文字
以及制作自己的模板

济宁海达行知数据中心

一群有理想、能吃苦、又热心的数据人

21aa4104817865b7f810202a96c6704e.png 1e8b48acc629c8b403ca22e02359f075.png 3803a2ac2145a5c65594f2419c6edf63.gif

图文：王洋

b65b59afa8efc07bd95871f068c53b9d.gif

编辑：沈乐欣

3803a2ac2145a5c65594f2419c6edf63.gif

审核：徐鹏飞

weixin_39976153
关注
Everything
03-13
Everything 是基于 NTFS 强大的日志系统与 API，网上有一个系列的文章教你用类似原理写一个的，只是仍然没有 Everything 快，大约也没有 Listary 快，但总比 Unix/Linux 下那些快。 (从以上两段你就能看到 Everything 建立索引的技术很厉害。) 作者：匿名用户 链接：https://www.zhihu.com/question/20549498/answer/46873936 来源：知乎 著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。
Delphi IsFileName判断文件名是否有效.rar
07-10
Delphi 判断文件名是否有效，主要判断文件名中是否包括有一些特殊字符，比如斜杠之类的，看了代码，原来挺基础的，主要是使用了Delphi中的IsFileName函数，不几行代码就搞定了，下面的代码仅供参考： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 if Edit1.Text<>'' then 　　 begin 　　 Str := Trim(Edit1.Text); 　　 if IsFileName(Str) then 　　 showmessage('文件名有效') 　　 else 　　 showmessage('文件名无效'); 　　 end 　　 else 　　 showmessage('请输入文件名'); 　　end;
[转载]《Delphi 版 everything、光速搜索代码》 关于获取文件全路径 GetFullFileName 函数的优化...
weixin_34204722的博客
06-25 176
Delphi 版 everything、光速搜索代码》，文章中关于获取文件全路径的函数：GetFullFileName，有一个地方值得优化。 就是有多个文件，它们可能属于同一个目录。 譬如 System32 目录下有2000多个文件，GetFullFileName 还是进行了2000多次的查询，效率肯定是受影响的。 先处理目录，获取目录全路径名称。 然后文件只用查询一次，就知道它的父路径的全路径了...
[转载]Delphi 版 everything、光速搜索代码
weixin_33953249的博客
06-25 264
近日没啥事情，研究了一下 everything、光速搜索原理。花了一个礼拜时间，终于搞定。 废话不多说，直接上代码： [delphi] view plain copy   unit uMFTSearchFile;   {    dbyoung@sina.com    2018-04-23  }      interface      uses Windows, System.Classe...
Delphi 版 everything、光速搜索代码
dbyoung的Delphi专栏
04-23 3519
近日没啥事情，研究了一下 everything、光速搜索原理。花了一个礼拜时间，终于搞定。废话不多说，直接上代码：unit uMFTSearchFile; { dbyoung@sina.com 2018-04-23 } interface uses Windows, System.Classes, Generics.Collections; { 获取磁盘所有文件列表 } functi...
delphi 查找不到窗体文件
注重长远 天天积累 cqujsjcyj
08-14 145
    program Test;   login in 'public\login.pas' {FMlogin}   ......     正常情况是以上这样， 如果发现查找不到窗体，则在.dpr工程文件中，查找该窗体，把后面大括号里的窗体名补上，即{FMlogin}    ...
delphi_reg_mon.rar_delphi 保护_delphi 监控_文件保护_文件监控
09-23
在标题"delphi_reg_mon.rar_delphi 保护_delphi 监控_文件保护_文件监控"中，我们可以推测这是一个使用Delphi编写的程序，其主要功能是实现对文件和目录的保护及监控。这个压缩包可能包含了源代码、文档或示例，以...
FileSend (局域网里文件传送)delphi.rar_delphi winsock_delphi 文件_filesend_
07-14
局域网里文件传送
DDM.0.2.5.src-PDF-file-search.zip_delphi文件管理_pdf_search_文件管理 del
09-22
【标题】"DDM.0.2.5.src-PDF-file-search.zip_delphi文件管理_pdf_search_文件管理 del" 指的是一个基于Delphi编程语言开发的文件管理应用程序，其核心特性是针对PDF文件的搜索功能。这个版本可能是0.2.5，暗示它是...
delphi 获取电脑摄像头信息.rar_DELPHI 摄像头_delphi_delphi 摄像头_delphi 获取电脑摄像
07-15
delphi 获取电脑摄像头信息 简单实用
Delphi INI_file.zip_INI文件读取_android delphi_bearugq_delphi_ini文件保
09-15
标题中的“Delphi INI_file.zip_INI文件读取_android delphi_bearugq_delphi_ini文件保”表明这是一个关于使用Delphi编程语言处理INI文件的教程，特别关注在Windows和Android平台上进行读取和保存操作。这个压缩包...
DELPHI搜索文件的示例
10-31
搜索TXT 文件的示例unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Memo2: TMemo; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; ButtonSearchFile: TButton; FolderPath: TEdit; FileExt: TEdit; ProgressBar1: TProgressBar; procedure ButtonSearchFileClick(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } procedure SearchFile1(FileName: string; FindText: string); function MakeFileList(Path, FileExt: string): TStringList; function FileInUsed(FileName: TFileName): Boolean; public { Public declarations } end; var Form1: TForm1; implementation uses StrUtils; {$R *.dfm} { Search Options KeyWord in file FileName FileSize FileCreateTime FileModifyTime keyword filepath openfile found addListbox } var FileNamePathList, FileNameList: TStringList; procedure TForm1.FormCreate(Sender: TObject); begin FileNameList := TStringList.Create; FileNamePathList := TStringList.Create; end; { if FileInUsed ('D:\Administrator\Documents\MyProjects\FileSearch\Win32\Debug\Project1.exe') then ShowMessage('File is in use.') else ShowMessage('File not in use.'); } function TForm1.FileInUsed(FileName: TFileName): Boolean; var HFileRes: HFILE; begin Result := False; if not FileExists(FileName) then Exit; // 如果文件不存在，返回false HFileRes := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end; procedure TForm1.SearchFile1(FileName: string; FindText: string); var SearchList: TStringList; begin try SearchList := TStringList.Create; if FileExists(FileName) and (not FileInUsed(FileName)) then begin SearchList.LoadFromFile(FileName); if Boolean(Pos(UpperCase(FindText), UpperCase(SearchList.Text))) then begin FileNameList.Add(ExtractFileName(FileName)); FileNamePathList.Add(FileName); end; end; finally SearchList.Free; end; end; procedure TForm1.ButtonSearchFileClick(Sender: TObject); var I, n: Integer; List: TStringList; begin try ButtonSearchFile.Caption := 'SearchFile'; List := TStringList.Create; List.Clear; FileNameList.Clear; FileNamePathList.Clear; List := MakeFileList(FolderPath.Text, FileExt.Text); ProgressBar1.Max := List.Count; for I := 0 to List.Count - 1 do begin Application.ProcessMessages; SearchFile1(List[I], Edit1.Text); ProgressBar1.Position := I; end; ListBox1.Items.Text := FileNameList.Text; ButtonSearchFile.Caption := IntToStr(FileNamePathList.Count) + ' 条'; finally List.Free; end; end; { 这个过程得显示进度 } function TForm1.MakeFileList(Path, FileExt: string): TStringList; var sch: TSearchrec; begin Result := TStringList.Create; if RightStr(Trim(Path), 1) '\' then Path := Trim(Path) + '\' else Path := Trim(Path); if not DirectoryExists(Path) then begin Result.Clear; Exit; end; if FindFirst(Path + '*', faAnyfile, sch) = 0 then begin repeat Application.ProcessMessages; if ((sch.Name = '.') or (sch.Name = '..')) then Continue; if DirectoryExists(Path + sch.Name) then begin Result.AddStrings(MakeFileList(Path + sch.Name, FileExt)); end else begin if (UpperCase(ExtractFileExt(Path + sch.Name)) = UpperCase(FileExt)) or (FileExt = '.*') then Result.Add(Path + sch.Name); end; until FindNext(sch) 0; FindClose(sch); end; end; procedure TForm1.ListBox1Click(Sender: TObject); var s: string; txt: string; begin if not FileExists(FileNamePathList[ListBox1.ItemIndex]) then Exit; Memo2.Lines.LoadFromFile(FileNamePathList[ListBox1.ItemIndex]); Caption := FileNamePathList[ListBox1.ItemIndex]; txt := Form1.Memo2.Text; if Boolean(Pos(UpperCase(Edit1.Text), UpperCase(txt))) then begin Memo2.SetFocus; Memo2.SelStart := Pos(UpperCase(Edit1.Text), UpperCase(txt)) - 1; Memo2.SelLength := Length(Edit1.Text); end; end; end.
Everything.exe ，计算机检索工具，文件检索工具
03-17
可以瞬间检索出本地计算机的任何文件内容。 比windows自带的检索强大万倍。 无需安装，双击打开可直接使用。可以设置条件，按需查找文件。亦可以全盘检索。
Everything-1.4.1.969.x86-Setup.zip
06-24
Everything是windows下快速检索文件的一款轻量级工具， 简单、好用； 当前版本1.4.1.969.x86-Setup
Everything-1.4.1.969.x64-Setup
04-03
Everything windows下文件搜索应用,使用非常方便
《Delphi 版 everything、光速搜索代码》 关于获取文件全路径 GetFullFileName 函数的优化
dbyoung的Delphi专栏
04-25 2257
《Delphi 版 everything、光速搜索代码》，文章中关于获取文件全路径的函数：GetFullFileName，有一个地方值得优化。就是有多个文件，它们可能属于同一个目录。譬如 System32 目录下有2000多个文件，GetFullFileName 还是进行了2000多次的查询，效率肯定是受影响的。先处理目录，获取目录全路径名称。然后文件只用查询一次，就知道它的父路径的全路径了。效率...
everything使用教程
weixin_41791807的博客
11-27 3368
everything使用教程
Everything-1.4.1.935.x86-Setup
04-24
Everything是速度最快的文件搜索软件，可以瞬间搜索到你需要的文件。如果你用过Windows自Everything是速度最快的文件搜索软件，可以瞬间搜索到你需要的文件。
delphi找不到timer_create
最新发布
06-02
在 Delphi 中，如果要使用 `timer_create` 函数，需要在代码中包含对应的头文件。 具体来说，可以在代码中加入以下语句来包含头文件： ```delphi {$IFDEF LINUX} {$DEFINE _POSIX_C_SOURCE := 199309L} {$ENDIF} ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值