Մեջբերում Life-ի խոսքերից Նայել գրառումը
Մի հատ ծրագիր ա պետք որ տեկստավոյ դակումենտ սարգի ու HDD-ի նշածս ռազդելի բոլոր պապկեքի ու ֆայլերի անունները քոթի անի էտ դոկ-ում:
http://www.progz.ru/t7515/
Կոդ:
var Filelist,DirLst:TStringList;
    Fl: TSearchRec;

FileList:=TStringList.Create;
DirList:=TStringList.Create;
if FindFirst('c:Windows*.*',$3F,Fl)=0 then
 begin
   if fl.Attr=$10 then DirList.Add(fl.Name) else FileList.add(fl.Name);
   while FindNext(Fl)=0 do if fl.Attr=$10 then DirList.Add(fl.Name) else FileList.add(fl.Name);
 end;
FindClose(Fl);