Borrar archivos

[roman]

Psee... Bonito truco que también hubieras encontrado aquí en el club, aunque yo prefiero éste:

Código Delphi [-]
var
  FileInfo: TShFileOpStruct;

begin
  FileInfo.Wnd := Handle;
  FileInfo.wFunc := FO_DELETE;
  FileInfo.pFrom := 'C:\Ruta\Con\Los\Archivos\*.cds';
  FileInfo.pTo := nil;
  FileInfo.fFlags := FOF_NOCONFIRMATION;

  ShFileOperation(FileInfo);
end;

// Saludos