Aprire la console di codice sorgente Delphi e clicca da qualche parte , sotto forma di testo sul lato destro
2
Digitare il seguente codice nel modulo : .
procedura
TForm1.Button1Click ( Sender : TObject); Vari : Integer; beginfor i: = 0 to FileName1.Items.Count - 1 doDeleteFile ( FileName1.Items [i]) ; FileName1.Update ; fine ;
Sostituire ogni istanza di "nomefile" nel codice con il nome effettivo del file che si desidera eliminare .
3 Premere il tasto "Enter" per eseguire il comando . Il file , insieme a tutte le sotto- cartelle e file, verrà eliminato dal sistema .
Programmazione © www.354353.com