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

Question

我需要在 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;`

Answer 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;

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

How to list android system files in a listbox?

android

file

delphi

system

firemonkey