23 Haziran 2014 Pazartesi

SD kart klasör listesi - SD folder list

Uses bloğuna System.IOUtils ekleyiniz.

uses

System.IOUtils, System.Types;

procedure TForm1.Button1Click(Sender: TObject);
var
FileList: TStringDynArray;
DocDir: string;
s: string;
begin
Memo1.Lines.Clear;
DocDir := TPath.GetDocumentsPath;
FileList := TDirectory.GetFiles(DocDir);
for s in FileList do
Memo1.Lines.Add(s);
end;

  Önemli Not: Kodlarımın çoğu farklı kaynaklardan not defterlerine toplanarak biriktirilmiştir.  Bu sebeble bir çoğunda Kaynak belirtemiyorum. Bu gibi durumda olan ve kaynağını bildiğiniz bir Kod Yazım var ise yorum olarak bildirmeniz rica olur. Saygılar.