delphi 取当前目录下所有文件夹名和文件名

本文整理自网络，侵删。

 
procedure SearchLangFiles(const Dir: string; List: TStrings; IsDir: Boolean);
var
  SearchRec: TSearchRec;
  F: Integer;
begin
  F := FindFirst(IncludeTrailingPathDelimiter(Dir) + '*.*', faAnyFile, SearchRec);
  List.Clear;
  while F = 0 do
  begin
    if (SearchRec.Name <> '.') and (SearchRec.name <> '..') then
    begin
      if not IsDir and (SearchRec.Attr and faDirectory <> faDirectory) then
        List.Add(ExtractFileName(SearchRec.Name))
      else if IsDir and (SearchRec.Attr and faDirectory = faDirectory) then
        List.Add(ExtractFileName(SearchRec.Name));
    end;
    F := FindNext(SearchRec);
  end;
  FindClose(SearchRec);
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
SearchLangFiles('d:\',memo1.Lines,false); //false 取当前目录下所有文件名； True 取当前目录下所有文件夹名；
end;
 

相关阅读 >>

Delphi 通过递归来实现搜索文件

Delphi如何获得当前操作系统语言环境

Delphi gethomepath - 获取用户程序数据目录

Delphi firedac 连接access mdb数据库的方法

Delphi格式化wmi中的datetime

Delphi源码一个对字符加密解密的实例

Delphi.about.com一个钩子的实现代码

Delphi 打造mygetprocaddress函数(Delphi源码)

Delphi 获取memo的行数与列数

Delphi 从记事本导入记录

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

转载请注明出处：木庄网络博客 » delphi 取当前目录下所有文件夹名和文件名