Delphi 遍历硬盘目录-防windows的查找功能

最新推荐文章于 2025-06-05 14:19:11 发布

原创

最新推荐文章于 2025-06-05 14:19:11 发布

· 113 阅读

0 ·

版权

文章标签：

#Delphi 查找文件功能 #delphi 遍历查看文件 #delphi 遍历硬盘 #防windows查找文件 #delphi 查找文件

nit Unit1;

interface

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls;

type 
TForm1 = class(TForm) 
    Memo1: TMemo; 
    Button1: TButton; 
    Edit1: TEdit; 
    procedure Button1Click(Sender: TObject); 
private 
    { Private declarations } 
public 
    { Public declarations } 
end;

var 
Form1: TForm1;

implementation

{$R *.dfm} 
procedure   search(dir:string);   
var   
      targetpath:string;{目标路径名}   
      sr:TsearchRec;   
begin   
      {第一阶段:找出初始dir目录下的所有文件,   
      其中dir变量值由edit1的Text属性确定}  

      targetpath:=extractfilepath(dir);{分解出目标路径名}   
      if   findfirst(dir,faanyfile,sr)=0   then   
      repeat   
       if((sr.name<>'.')and(sr.name<>'..'){排除父目录和本目录两个假文件}   
       and((filegetattr(targetpath+sr.name)and   fadirectory)<>fadirectory)){只取文件}   
       then 
           form1.memo1.Lines.Add(targetpath+sr.name);{在memo中添加