PC Toledo

Código: Selecionar todos

#include "hbcompat.ch"
FUNCTION ExibirIE(cArq)
LOCAL oOle
LOCAL cArqView
#define WM_SYSCOMMAND 274
#define SC_MAXIMIZE  61488   
#define SC_RESTORE   61728
      hb_Default(@cArq,"")
      oOle     := win_OleCreateObject("InternetExplorer.Application")
      cArqView := 'file://'+hb_DirBase() + cArq
      Try
         oOle:ToolBar   := .F. // .f. Desativa a barra de ferramentas
         oOle:StatusBar := .F. // .f. Desativa a barra de status
         oOle:MenuBar   := .F. // .f. desativa a barra de menu
         oOle:Visible   := .T. // Apresenta o Browser     
         oOle:Top       := 25
         oOle:Left      := 5
         //oOle:Width     := HB_gtInfo( HB_GTI_SCREENWIDTH )  
         //oOle:Height    := HB_gtInfo( HB_GTI_SCREENHEIGHT )
         oOle:Navigate2(cArqView)
         
         WHILE oOle:Busy
            Inkey(.5)
         ENDDO
          
         hwg_SetForegroundWindow( oOle:HWND )
         hwg_SendMessage(oOle:HWND, WM_SYSCOMMAND, SC_RESTORE, 0)
     End
     oOle:=Nil
RETURN Nil