Cerrar Archivo Abierto con ShellExecute

[Draker]

Buenos dias, pues bien, yo ejecuto mi archivo con:

Código Delphi [-]
ShellExecute(handle,'open',Pchar(fOld),nil,nil,SW_SHOWNORMAL);

La cuestión es que me gustaria saber si hay forma de que al "ejecutarlo" se pueda obtener el handle de esa archivo abierto, para luego cerrarlo con:

Código Delphi [-]
SendMessage(hdl, WM_CLOSE, 0, 0);

Esto devido a que con

Código Delphi [-]
A:= TmNombre.Value+'.'+txTipo.Text+' - Adobe Reader';
hdl := FindWindow(nil, PChar(A) );
SendMessage(hdl, WM_CLOSE, 0, 0);

Logro cerrar los archivos pdf exclusivamente, aparte de que si el archivo PDF muestra la leyenda "(protegido)", ya no logra encontrar dicha ventana.

[dec]

Hola,

Creo que con "ShellExecute" no podrás lograr lo que quieres. Busca información sobre "CreateProcess" y "TerminateProcess".

[Draker]

graciassss dec, me funciono muy bien, aunque tendre que hacer un arreglo para saber el programa y la ruta del mismo para abrir determinado archivo (pdf,doc,lit,etc) pero realmente es lo que queria.

[[escafandra]]

Para saber que ejecutable abre un archivo, revisa la API FindExecutable

Saludos.

[Draker]

, grax escafandra, complementaste mi laburo, aprovecho para preguntar:

Puedo cerrar mis archivos abiertos con mi aplicación, peeeero, los archivos en word se cierran y puedo moverlos a otra ubicación, pero me dejan su archivo temporal (~$archivo.doc) en la carpeta origen.

Alguna sugerencia de como hacerlo con el TerminateProcess?

[[escafandra]]

Empezado por Draker

...los archivos en word se cierran y puedo moverlos a otra ubicación, pero me dejan su archivo temporal (~$archivo.doc) en la carpeta origen.

Alguna sugerencia de como hacerlo con el TerminateProcess?

Sólo te queda borrarlos. Ten en cuenta que TerminateProcess es un método de «cerrar a lo bruto». La App no guardará copias de los archivos con los que trabajaba y perderá información.


Saludos.