ANTICHAT — форум по информационной безопасности, OSINT и технологиям

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;

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