如何在列表框中列出 android 系统文件？答案

【问题标题】：How to list android system files in a listbox?如何在列表框中列出 android 系统文件？
【发布时间】：2015-03-21 11:42:50
【问题描述】：

我需要正确的方法在 ListBox 中列出 Android 系统文件，我使用了这个想法，但它没有用请帮忙，非常感谢提前

  ` var
   fs: TFileStream;
   fn: string;
   sr: TSearchRec;
   I : integer;
   begin
    I := 0;
   if FindFirst('data/data/com.android.browser/*.*', faAnyFile, sr) = 0 then
   begin
    repeat
    ListBox1.Items.Add('data/data/com.android.browser/' + sr.Name);
     Inc(I);
      if I = 7 then Break;
      until FindNext(sr) <> 0;
      FindClose(sr);

 end;
  if I < 7 then
   begin
  if FindFirst('data/data/com.android.browser/*.*', faAnyFile, sr) = 0 then
   begin
     repeat
       ListBox1.Items.Add('data/data/com.android.browser/' + sr.Name);
       Inc(I);
       if I = 7 then Break;
       until FindNext(sr) <> 0;
       FindClose(sr);
      end;
      end;`

【问题讨论】：

所以你可以开始告诉你使用了 Delphi。什么不起作用？相反会发生什么？你的应用是 com.android.browser 吗？如果不是，则您无权访问该目录。
您必须使用System.IOUtils 类在 Delphi 中进行跨平台 I/O。见TDirectory.GetFiles
com.android.browser 是 android 中的默认浏览器，我无法列出该目录中的文件，是的，我使用了 System.IOUtils 类。

标签： android file delphi system firemonkey

【解决方案1】：

使用System.IOUtils.TDirectory.GetFiles。

uses System.Types, System.IOUtils, System.SysUtils;

procedure AddFiles(MyListBox: TListBox);
var
  SDA: TStringDynArray;
  I, II: Integer;
  LBI: TListBoxItem;
begin
  SDA := TDirectory.GetFiles(System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim,'*.dat');

  for I := Low(SDA) to High(SDA) do
   begin
     II := MyListBox.Items.Add(ExtractFileName(SDA[I]));
     LBI := MyListBox.ListItems[II];
     LBI.ItemData.Detail := SDA[I];
   end;
end;

【讨论】：

我不知道如何使用它！，我将非常感谢您的解释，非常感谢
不行！，列表框是空的，可能是调用过程出错了？ AddFiles(MyListBox);
也许它确实有效，并且目录中没有您搜索的文件类型。
我还是 dlephi 的初学者，如何指定要查找的文件类型，以及如何访问 'com.android,browser' 目录？非常感谢您的帮助
*.dat 是要搜索的通配符字符串。所以 .dat 是扩展名。以下是获取目录的路径函数列表：docwiki.embarcadero.com/Libraries/XE7/en/System.IOUtils.TPath