delphi 获取指定当前目录下指定文件扩展名所有文件

本文整理自网络，侵删。

 
procedure MakeFileList(const Path, FileExt: string; AFileList: TStrings);
var
  sch: TSearchRec;
  tmpPath: string;
begin
  if RightStr(Trim(Path), 1) <> '\' then
    tmpPath := Trim(Path) + '\'
  else
    tmpPath := Trim(Path);
  if not DirectoryExists(tmpPath) then
    Exit;
  if FindFirst(tmpPath + '*', faAnyFile, sch) = 0 then
  begin
    repeat
      if ((sch.Name = '.') or (sch.Name = '..')) then
        Continue;
      if (UpperCase(ExtractFileExt(tmpPath + sch.Name)) = UpperCase(FileExt)) or (FileExt = '.*') then
        AFileList.Add(tmpPath + sch.Name);
    until FindNext(sch) <> 0;
    System.SysUtils.FindClose(sch);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
MakeFileList('c:\','.exe',memo1.Lines);
end;
 

相关阅读 >>

Delphi 几个和当前路径相关的新函数

Delphi 文件查找findfirst,findnext,findclose

Delphi版 随机窗口类名

Delphi7 中tstringlist的delimiter delimitedtext有bug，字符串分割有问题

Delphi查找特定的exe是否在运行

Delphi xe 泛型数组和splitstring处理数据

Delphixe ansi字符串utf-8编码判断

Delphi 2009 之 tbuttonededit

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

Delphi rgb 画出三角形

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取指定当前目录下指定文件扩展名所有文件