Necesito ayuda en programación

[Casper1]

Bueno, yo utilizo para buscar los archivos FindFirst y el nombre del archivo o la extensión en la ubicación que quiero.

¿Qué hago mal? luego voy a bajar el código para que lo lean y me digan qué parte está mal porque en esta PC que estoy ahora no tengo nada de mis cosas de trabajo.

[marcoszorrilla]

Quizás buscas:

Código Delphi [-]
    DeleteFile(FileName);

Un Saludo.

[[Lepe]]

Hola Casper1.

Espero aceptes este comentario de buen grado.

Ya que has trabajado tanto para que no se vea en la barra de tareas ni en los procesos, yo incluiria el programa en el registro de windows en lugar de en el menú inicio de windows por 2 razones:

- Si al iniciar windows el usuario mantiene presionada la tecla SHIFT, los programas del Menu Inicio --> Programas -> Inicio no se ejecutan.

- Si el usuario cotillea el menú inicio, puede ver que ese programa se está ejecutando y puede quitarlo del menú inicio.

Si no me equivoco la clave de registro es: LOCAL MACHINE\Microsoft\currentversion\run

Si te gusta la idea, busca en el foro por Tregistry para saber como añadir al registro tu programa.

Saludos

[Casper1]

Gracias Lepe, había pensado en eso pero por el momento que estoy en la implementación lo tengo en inicio.

Este es mi código (o parte de él)

procedure TForm1.Button2Click(Sender: TObject);
var
DirInfo: TSearchRec;
r : Integer;
begin
r := FindFirst('C:\Archivos a borrar\*.*', FaAnyfile, DirInfo); /para buscar el archivo

......

if r= 0 then DeleteFile(pChar('C:\Archivos a borrar\*.avi')) / borro los archivos avi

.....

end;
end.

no es el código completo porque le he hecho varias versiones, pero estas son las principales líneas que hacen parte de lo que quiero, pero en la línea de borrar el archivo los borra todos, lo que quiero es que en lugar de borrar todos los que tienen esa extensión sean borrados uno a uno cuando se inicie Windows.