ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

1) функции findfirst findnext через них ты ищешь файлы по маске *.* и всё что находишь - там проверяешь тип. Папка это или файл. итд итп
типа того:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Searchrec: Tsearchrec;
 s:string;
begin
 memo1.Clear;
 FindFirst('c:\*.*', FaAnyfile, SearchRec);
 if (SearchRec.Attr and faDirectory)<>0 then s:='ПАПКА ' else s:='ФАЙЛ  ';
 memo1.Lines.Add(s+SearchRec.Name);
 while FindNext(SearchRec) = 0 do
  begin
 if (SearchRec.Attr and faDirectory)<>0 then s:='ПАПКА ' else s:='ФАЙЛ  ';
   memo1.Lines.Add(s+SearchRec.Name);
  end;
end;

2) UrlDownloadToFile из модуля urlmon
типа

Код:

uses urlmon;
procedure TForm1.Button1Click(Sender: TObject);
begin
urlmon.URLDownloadToFile(nil,'http://ya.ru/','c:\1.html',0,nil);
end;