Draker |
12-11-2014 17:33:31 |
Cerrar Archivo Abierto con ShellExecute
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.
|