How to list android system files in a listbox?

  

i need the right way to list Android system files in a ListBox, i used this idea but it didnt work
plz help, many thanks in advance

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

Comments are closed.