Red de conocimiento informático - Computadora portátil - Cómo escribir un bucle de 15 segundos para eliminar todos los archivos en una carpeta específica en Delphi 7

Cómo escribir un bucle de 15 segundos para eliminar todos los archivos en una carpeta específica en Delphi 7

Escribí un procedimiento almacenado para usted, probado.

procedimiento clearFolder(carpeta: String);

var

sr:TSearchRec;

comenzar

si carpeta[longitud(carpeta)]<>'\' entonces

carpeta:=carpeta+'\';

si findFirst(carpeta+'*.*',faanyFile,sr)= 0 entonces

comenzar

repetir

si sr.Attr y faDirectory=faDirectory entonces

comenzar

si (sr.Name);

fin;

hasta findNext(sr)<>0;

findClose(sr);

RemoveDirectory(PAnsiChar(carpeta));

fin;