Cerrar shellexecute

[pedroluis]

Hola gente !

Selecciono un archivo con shellexecute y pregunto si quiere o no abrirlo.

Como hago lyego para cerrarlo ?

Por Ejemplo

shellexecute(nil,"open",cfile,,,1)
if ! msgyesno("Planilla Correcta ?","???")
// ¿Como lo cierro si no es la planilla correcta ?........
clos data
return nil
endif

[Jimmy]

hi,

you can "close" a Window when know it´s "Title"

Code: Select all  Expand view

PROCEDURE CloseWindow(cTitle)
LOCAL hWnd := FindWindowEx(,,, cTitle )

IF EMPTY(hWnd)
   MsgInfo("need Title of Windows to close")
ELSE
   IF !( hWnd == 0 )
      SetForegroundWindow( hWnd )
      BringWindowToTop( hWnd )
      ShowWindow( hWnd, 1 )
      UpdateWindow( hWnd )
      SendMessageA( hWnd, WM_CLOSE, 0, 0 )  
   ENDIF
ENDIF
RETURN