delphi 文件查找findfirst,findnext,findclose

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

var
found:integer;
dirstr:string;
keyword:string;
rc:TSearchRec;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
dirstr:='c:\windows\'; //任意目录
keyword:='*.exe'; //关键字
s:=dirstr+Trim(keyword); //网上说去与结果不符的项 例如 _.exe~ 等等
found:=findfirst(s,faAnyFile,rc);
while found=0 do
begin
      if (rc.Attr and faDirectory) <> 0 then       // 判断目录
        found:=FindNext(rc)
      else
        begin
          listbox1.Items.Add(rc.Name); //do samething...
          found:=FindNext(rc);
        end

end;
end;

end.