#Region QuickPDF Include
#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <File.au3>
#include <WinAPIFiles.au3>
#EndRegion QuickPDF Include
Example(FileOpenDialog('Select PDF File','c:\','PDF File (*.pdf)'))
Func Example($sPDF_FileFullPath)
; Create ActivX object
Local $oQPV = ObjCreate('DPVACTIVEX.Viewer')
$oQPV.LibraryPath = @ScriptDir & '\DebenuPDFLibraryDLL1014.dll'
$oQPV.RendererPath = @ScriptDir & '\DebenuPDFRendererDLL1014.dll'
$oQPV.LicenseKey = 'ENTER YOUR KEY HERE'
$oQPV.ScrollbarsEnabled = True
$oQPV.ToolbarEnabled = True
$oQPV.OpenFile($sPDF_FileFullPath)
$oQPV.SetZoom(1)
$oQPV.GotoPage(1)
; Create a simple GUI for our output
GUICreate("Embedded Web control Test", 800, 600, (@DesktopWidth - 800) / 2, (@DesktopHeight - 600) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
GUICtrlCreateObj($oQPV, 10, 10, 780, 500)
$oQPV.ZoomFitPage()
Local $idButton_Back = GUICtrlCreateButton("Back", 10, 520, 100, 30)
Local $idButton_Forward = GUICtrlCreateButton("Forward", 120, 520, 100, 30)
Local $idButton_Home = GUICtrlCreateButton("Home", 230, 520, 100, 30)
GUISetState(@SW_SHOW) ;Show GUI
; Loop until the user exits.
Local $iMsg
While 1
$iMsg = GUIGetMsg()
Select
Case $iMsg = $GUI_EVENT_CLOSE
ExitLoop
Case $iMsg = $idButton_Back
$oQPV.PrevPage()
Case $iMsg = $idButton_Forward
$oQPV.NextPage()
Case $iMsg = $idButton_Home
$oQPV.GotoPage(1)
EndSelect
WEnd
$oQPV = '' ; CleanUp
GUIDelete()
EndFunc ;==>Example