Muy buenas noches con todos, ante todo gracias por haberme ayudado en veces pasadas, les deseo que tengan un buen año 2016 , ahora mi problema es el siguiente:
Resulta que deseo borrar varios archivos y/o carpetas pero de un solo tiro, es decir en un click, y lo trato de hacer de la siguiente manera:
procedure TForm1.Button1Click(Sender: TObject); begin DeleteFileUTF8('C:\juegos\pacman.exe'); DeleteFileUTF8('C:\juegos\mario.exe'); DeleteFileUTF8('C:\juegos\tetris.exe'); DeleteFileUTF8('C:\juegos\antman.exe'); DeleteFileUTF8('C:\juegos\megaman.exe'); DeleteDirectory('C:\Program Files\fotos', false); DeleteDirectory('C:\Program Files\casa', false); DeleteDirectory('C:\Program Files\pesca', false); DeleteDirectory('C:\Program Files\huelga', false); DeleteDirectory('C:\Program Files\agua', false); DeleteDirectory('C:\Program Files\sol', false); DeleteDirectory('C:\Program Files\truchas', false); DeleteDirectory('C:\Program Files\manta', false); DeleteDirectory('C:\Program Files\arena', false); DeleteDirectory('C:\Program Files\cena', false); end;
Aparentemente creo que los códigos están bien, pero resulta que al momento de probarlo dando clic al "button" no me elimina todo lo que le mande, de los 15 me eliminará unos 10, o sino tengo que volver a darle clic para que acabe de eliminar el resto lo cual no entiendo porque. pienso que talvez el programa se marea de tantas funciones a la vez.
Muchas gracias por su tiempo, saludos.