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 进程程序多开调用单元

elphi中取出字符串中指定位置的几个字符

Delphi的stringreplace 字符串替换函数

Delphi 获取外部程序句柄与发送消息

Delphi 实现qq窗体的缩入伸出功能

Delphi 获取当前系统版本号

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi 两个非常有用的进程函数

Delphi的cpu调试窗口

Delphi cross socket的库

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

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