Hola.
Aquí tienes la respuesta para tu primer tema:
Código Delphi
[-]
Procedure BorraArchivos;
var
Path: String;
Fichero : TSearchRec;
begin
Path:='C:\RUTA';
FindFirst(Path + '\HTTP*.*', faArchive, Fichero);
If Fichero.Name = '' then exit;
DeleteFile(Path + '\' + Fichero.Name);
while FindNext(Fichero) = 0 do begin
DeleteFile(Path + '\' + Fichero.Name);
end;
end;
Esto no está probado, espero que funcione.
Seguro que hay una forma para no duplicar el deletefile pero ahora mismo no se me ocurre.
Tendrás que añadir al uses del formulario la unidad SysUtils.
Saludos
Edito:
Para la segunda pregunta échale un vistazo a esto:
http://delphiallimite.blogspot.com/2...rectorios.html
que tiene ejemplos bastante claros para el tema que comentas.
Saludos