Error de Aplicación al cerrar Windows

[[cHackAll]]

Empezado por alaintm

La idea del programa es que cada un tiempo determinado borre los archivos exe y dll de un directorio y la solución que encontre era la de ejecutar un fichero lote.

Con ese dato se me ocurre que haces una eliminacion por comodín, siendo el caso te dejo el siguiente código, pruebalo y nos comentas:

Código Delphi [-]
uses ShellAPI;
 
var DelOp: TSHFileOpStruct = (wFunc: FO_DELETE; fFlags: FOF_SILENT or FOF_NOCONFIRMATION);
 
function Deltree(const Path: PChar): LongBool;
begin
 DelOp.pFrom := Path;
 Result := ShFileOperation(DelOp) = 0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Deltree('c:\güindos\system32\*.exe');
 Deltree('c:\güindos\system32\*.dll');
end;

Si me equivoco, y borras archivo por archivo siendo los nombres conocidos y la cantidad contada, pues puedes usar la API: 'DeleteFile' que no acepta comodines.

PD: Disculpa el retraso de la respuesta pero estaba programando.
Suerte!