Ver Mensaje Individual
  #1  
Antiguo 12-11-2014
Avatar de Draker
Draker Draker is offline
Miembro
 
Registrado: ene 2005
Posts: 27
Reputación: 0
Draker Va por buen camino
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.

Última edición por Draker fecha: 12-11-2014 a las 17:35:12. Razón: no se muestran el codigo en delphi
Responder Con Cita