#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
►Harbour 3.x | Minigui xx-x | HwGui◄ Pense nas possibilidades abstraia as dificuldades. Não corrigir nossas falhas é o mesmo que cometer novos erros. A imaginação é mais importante que o conhecimento. (Albert Einstein)
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:
“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”.
Até 2017 Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL
Novos Projetos:
Desktop Visual Windev Desktop Celular Android/iOS Windev Mobile WEB Windev Web
Interessante, mas, pra abrir o PDF no IE, não precisa do programa de visualizar PDF?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2) "The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell" https://github.com/JoseQuintas/
►Harbour 3.x | Minigui xx-x | HwGui◄ Pense nas possibilidades abstraia as dificuldades. Não corrigir nossas falhas é o mesmo que cometer novos erros. A imaginação é mais importante que o conhecimento. (Albert Einstein)
