Gestionar archivos temporales que se abren con terceros programas

[Casimiro Notevi]

Aunque si lo que se quiere es que abra múltiples pdfs "independientes" y los tenga abierto cuanto quiera y seguir trabajando con el programa y "pasando" totalmente de los pdf abiertos, lo mismo puede ser una solución el crear una lista donde se van añadiendo los nombres de los pdfs abiertos y cada cierto tiempo intentar borrarlos. Si están en uso dará error y en caso contrario se borrarán.
También sin listas ni nada, a lo bruto, ejecutar el bucle e intentar borrar los que estén "libres".

procedure timercadaxminutos
  for i=1 to 100
    try
      borrar( 'documento.'+i+'.pdf'
    catch
    end
end

[[newtron]]

Empezado por Casimiro Notevi

Aunque si lo que se quiere es que abra múltiples pdfs "independientes" y los tenga abierto cuanto quiera y seguir trabajando con el programa y "pasando" totalmente de los pdf abiertos, lo mismo puede ser una solución el crear una lista donde se van añadiendo los nombres de los pdfs abiertos y cada cierto tiempo intentar borrarlos. Si están en uso dará error y en caso contrario se borrarán.
También sin listas ni nada, a lo bruto, ejecutar el bucle e intentar borrar los que estén "libres".

procedure timercadaxminutos
  for i=1 to 100
    try
      borrar( 'documento.'+i+'.pdf'
    catch
    end
end

Ya, eso sería una solución aunque la verdad no me resulta muy elegante. ¿No hay forma de saber cuando se cierra el visor pdf para acto seguido borrar el fichero que ha abierto?


Saludos

[Casimiro Notevi]

Depende, si los abres mediante RunAndWaitShell(....,sw_showmodal), justo al cerrar el pdf se podrá borrar por su nombre.

Tratarpdf( i )
  cFicheroPdf = 'documento'+inttostr(i)+'.pdf';
  RunAndWaitShell( cFicheroPdf, ... ..., sw_showmodal)
  borrar( cFicheroPdf)

Así no tendrías que saber cuándo se ha cerrado.


De otra forma no sé, porque imagino que se tendrá que estar verificando si todavía existe. Algo como lo que comenté antes, mantener una lista de los pdfs que se han abierto y cada cierto tiempo hay que comprobar si está todavía la ventana abierta, en caso contrario se podrá borrar.
A ver si encuentras algo sobre windows.findwindow

[[newtron]]

No puedo usar RunAndWaitShell porque son procesos no modales, buscaré lo que me comentas de windows.findwindowa ver qué veo.


Gracias Casimiro y ASAPLTDA.


Saludos

[[escafandra]]

La opción que te propone Casimiro sirve para procesos no modales

Código Delphi [-]
begin
  RunAndWaitShell('D:\Prueba.pdf', '', SW_SHOW);
  Beep();
end;

Saludos.

[Casimiro Notevi]

Parece que el problema que tiene es saber cuándo ha cerrado el usuario el fichero pdf, para proceder a eliminarlo.
No creo que haya forma de saberlo mediante el nombre de la ventana tampoco porque cada uno puede usar un visor de pdfs distinto y el nombre también será distinto. Creo que la solución pasa por saber qué pdfs se han abierto y luego intentar borrarlos, pero ¿cuándo lo ha cerrado el usuario? Me parece que no va a quedar otra que el bucle:

for i=1 to 100
  if fileexists('documento'+inttostr(i)+'.pdf') then
    deletefile('documento'+inttostr(i)+'.pdf')

[[newtron]]

Andalaleche.... pensaba que esto del "RunAndWaitShell" dejaba "pillado" al programa hasta que no cerrara el visor.



Gracias y un saludo

[Casimiro Notevi]

Empezado por newtron

Andalaleche.... pensaba que esto del "RunAndWaitShell" dejaba "pillado" al programa hasta que no cerrara el visor.
Gracias y un saludo

No, por eso decía que podías borrarlo al "regresar".