1
Abra la consola de Código Fuente Delphi y haga clic en algún lugar de la forma de texto en el lado derecho
2
Escriba el siguiente código en la forma: .
procedure TForm1.Button1Click (Sender : TObject ) ; variables : Integer; beginfor i: = 0 a FileName1.Items.Count - 1 doDeleteFile ( FileName1.Items [ i]) ; FileName1.Update ; fin;
< p> Reemplace cada instancia de "nombre de archivo " en el código con el nombre real del archivo que desea eliminar .
3
Pulse la tecla "Enter" para ejecutar el comando . Su archivo , junto con todas las subcarpetas y archivos , se elimina del sistema .