Memo1.lines.Clear ;
memo1.lines.add(Tpath.GetSharedRingtonesPath);
memo1.lines.add(Tpath.GetSharedDownloadsPath);
memo1.lines.add(Tpath.GetSharedMusicPath);
memo1.lines.add(Tpath.GetSharedPicturesPath);
{lijst := TDirectory.GetFiles(Tpath.GetSharedRingtonesPath) ;
memo1.Lines.Add('Ringtones: '+inttostr(length(Lijst)));
for I := 0 to length(Lijst)-1 do
Memo1.Lines.Add(Lijst[i]) ; }
lijst := TDirectory.GetFiles(Tpath.GetSharedDownloadsPath) ;
memo1.Lines.Add('Donwloads: '+inttostr(length(Lijst)));
for I := 0 to length(Lijst)-1 do
Memo1.Lines.Add(Lijst[i]) ;
lijst := TDirectory.GetFiles(Tpath.GetSharedMusicPath) ;
memo1.Lines.Add('Music: '+inttostr(length(Lijst)));
for I := 0 to length(Lijst)-1 do
Memo1.Lines.Add(Lijst[i]);
lijst := TDirectory.GetFiles(Tpath.GetSharedPicturesPath) ;
memo1.Lines.Add('Pictures: '+inttostr(length(Lijst)));
for I := 0 to length(Lijst)-1 do
Memo1.Lines.Add(Lijst[i])