PureBasic

Code : Tout sélectionner

Enumeration 
  #MainForm  
EndEnumeration

Enumeration Gadgets
  #Reader
EndEnumeration

FileName.s=""

If OpenWindow(#MainForm, 0, 0, 600, 400, "PDF Viewer", #PB_Window_SystemMenu | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget |#PB_Window_ScreenCentered )
  WebGadget(#Reader, 10, 10, 580,380, "")
  
  FileName = OpenFileRequester("Fichier à ouvrir", "","Acrobat Reader (*.pdf)",0)
  If Len(FileName) > 0
    SetGadgetText(#Reader, "file://"+FileName)
  EndIf 

  Repeat
    Select WaitWindowEvent(100)
      Case #PB_Event_CloseWindow
        End
                
      Case #PB_Event_SizeWindow
        ResizeGadget(0,10,10,WindowWidth(0)-20,WindowHeight(0)-20)
        
    EndSelect                
  ForEver
EndIf

Code : Tout sélectionner

2nd. option :
- Download CoolPDFReader.exe (it is free 1 MB)
- Include it in DataSection
- Run it from memory as a Child to a ContainerGadget