Problema al eliminar un archivo con funcion Deletefile
Hola, Estoy haciendo una aplicacion que busque los archivos y carpetas ocultas en la raiz de un disco y los desoculte, hasta ahi no tengo problema, pero también el programa debe borrar los accesos directos que encuentre, aqui es donde me está dando problema, lo estoy haciendo con la función deleteFile, pero no borra nada. Entonces quisiera que me ayudaran en que me estoy equivocando. En el form tengo un DriverComboBox1 con Name=disco y un button1.
El codigo es el siguente: De antemano gracias por su ayuda. |
Lo de los enlaces no lo sé, la verdad, siempre ha sido muy confuso para mi, pero tengo que decirte que hay un error gordísimo en tu código, ¡y es que no destruyes los TStringList! Recuerda que Pascal no tiene colector de basuras, así que cada vez que ejecutes ese método te quitará un poco de memoria que nunca recuperarás hasta que no cierres el programa.
|
Cita:
. . .
|
Hola WPascal.
Probá de esta manera:
Llamada:
Saludos. |
Cita:
|
Me olvidaba... Si necesitas que el resultado resida en un TStringList, sería:
Saludos. |
Hola Ecfisa, cogí una parte del código que me recomendaste y lo metí en el segundo procedure listar2 y ya me resultó.
El codigo quedó así:
La verdad es que me salió de suerte pues apenas estoy empezando a aprender el manejo de archivos. Gracias nuevamente Ecfisa por tus efectivas soluciones. Saludos y que estés bien. |
La franja horaria es GMT +2. Ahora son las 13:45:30. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi