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.
Kişisel web adresimdeki bloğuma gelen saldırılar sebebi ile kapatmış bulunmaktayım. Oradaki bütün paylaşımlarımı bu bloğuma tek tek ekledim ve paylaşımlarıma kendi çapımda buradan devam ediyorum.. Takip edenlere teşekkürler bilgi paylaştıkça çoğalır..
23 Haziran 2014 Pazartesi
SD kart klasör listesi - SD folder list
Uses bloğuna System.IOUtils ekleyiniz.
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder