Hola a todos
estoy haciendo un sencillo soft para borrar el contenido de la carpeta Windows\Temp\ pero sucede que cuando hay un archivo en uso, da error y aborta la operacion
Lo que necesito es la forma de que si esto sucede, ignore el archivo en uso y continue borrando el siguiente, sin abortar la operación
el codigo que uso para esto es un aporte de escafandra en DA
Código Delphi
[-]uses ShellApi;
function XDelete(Path: String): integer;
var
FS: SHFILEOPSTRUCT;
begin
ZeroMemory(@FS, sizeof(SHFILEOPSTRUCT));
FS.wFunc:= FO_DELETE;
FS.pFrom:= PCHAR(Path + #0);
FS.fFlags:= FOF_NOCONFIRMATION;
Result:= SHFileOperation(FS);
end;
Código Delphi
[-]XDelete('C:\Windows\Temp\*.*');