可以使用FindFirst,FindNext,FindClose:
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
if findfirst('D:\ReadBOOK\*.*', faReadOnly, sr) = 0 then
begin
self.Memo1.Lines.Add(sr.Name);
while findnext(sr) = 0 do
begin
self.Memo1.Lines.Add(sr.Name);
end;
FindClose(sr);
end;
end;
//'D:\ReadBOOK\*.*':为查找的目录,*.*为查找所有类型文件;
Funtion FindAllFileInADirectory(const : string; var RetList : TStringList):Boolean;
var
SearchRec: TSearchRec;
begin
if FindFirst(Directory + ’*.*’, faAnyFile, SearchRec) = 0 then
begin
repeat
RetList.Add(Directory + ’’ + SearchRec.Name);
until (FindNext(SearchRec) <> 0);
end
FindClose(SearchRec);
end;