procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Assigned(AcroPDF1) then begin
    //参照カウンタがインクリメントされていないようなので
    //解放破棄操作される前に _AddRef しておく
    AcroPDF1.ControlInterface._AddRef;
  end;
end;

    gotoFirstPage
    gotoLastPage
    gotoNextPage
    gotoPreviousPage
    setCurrentPage(n: Integer)

unit AcrobatShowUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, ExtCtrls, AcroPDFLib_TLB;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    AcroPDF1: TAcroPDF;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  ファイル選択ダイアログでPDFファイルを選択して表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.DefaultExt := 'PDF';
  OpenDialog1.Filter     := 'Acrobat PDFファイル|*.PDF';
  OpenDialog1.Options    := [ofReadOnly];

  if OpenDialog1.Execute then begin
    Update;
    AcroPDF1.LoadFile(OpenDialog1.FileName);
    AcroPDF1.setShowToolbar(False);
  end;
end;
//=============================================================================
//  表示方式の変更
//  Button2からButton8までに共通使用のイベント
//  その他のメソッド(関数)類は，AcroPDFLib_TLB.pas内を参照
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
begin
  if not AcroPDF1.Visible then exit;

  if Sender = Button2 then AcroPDF1.setView('fit');
  if Sender = Button3 then AcroPDF1.setView('fitwindow');
  if Sender = Button4 then AcroPDF1.setView('fith');
  if Sender = Button5 then AcroPDF1.setView('fitb');
  if Sender = Button6 then AcroPDF1.setView('fitbh');
  if Sender = Button7 then AcroPDF1.setView('fitbv');
  if Sender = Button8 then AcroPDF1.setView('fitv');
end;

end.

procedure TForm1.FormCreate(Sender: TObject);
var
  LPdfFilePath : string;
begin
  LPdfFilePath := ExpandFileName('..\TestAcro.pdf');
  AcroPDF1.LoadFile(LPdfFilePath);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  AcroPDF1.setView('fitv');
end;

unit AcrobatShowUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, ExtCtrls, AcroPDFLib_TLB, ComCtrls, ActiveX, Buttons;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    AcroPDF1: TAcroPDF;
    Edit1: TEdit;
    Edit2: TEdit;
    Timer1: TTimer;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure AcroPDF1Enter(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private 宣言 }
    AFocusControl : TWinControl;
  public
    { Public 宣言 }

  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  フォーカスをセットするコントロールを指定
//  タイマーコンポ設定
//  このコードでは，フォームを表示した時のフォーカスコントロールはEdit1となる
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  AFocusControl  := Edit1;
  ActiveControl  := AFocusControl;

  Timer1.Enabled  := False;
  Timer1.Interval := 10;
end;

//=============================================================================
//  ファイル選択ダイアログでPDFファイルを選択して表示
//  クリックで，このフォーカス移動しないようにTSpeedButtonを使用
//  TSpeedButtonを使用しているので，ここでAFocusContolにそのコントロールを設定
//  しておけば，PDF表示後にそのコントロールにフォーカス移動可能
//=============================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  OpenDialog1.DefaultExt := 'PDF';
  OpenDialog1.Filter     := 'Acrobat PDFファイル|*.PDF';
  OpenDialog1.Options    := [ofReadOnly];

  if OpenDialog1.Execute then begin
    Update;
    AcroPDF1.LoadFile(OpenDialog1.FileName);
    AcroPDF1.setShowToolbar(False);
    Timer1.Enabled := True;
  end;
end;

//=============================================================================
//  表示方式の変更
//  SpeedButton2からSpeedButton8までに共通使用のイベント
//  クリックで，このフォーカス移動しないようにTSpeedButtonを使用
//
//  その他のメソッド(関数)類は，AcroPDFLib_TLB.pas内を参照
//=============================================================================
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  if not AcroPDF1.Visible then exit;

  if Sender = SpeedButton2 then AcroPDF1.setView('fit');
  if Sender = SpeedButton3 then AcroPDF1.setView('fitwindow');
  if Sender = SpeedButton4 then AcroPDF1.setView('fith');
  if Sender = SpeedButton5 then AcroPDF1.setView('fitb');
  if Sender = SpeedButton6 then AcroPDF1.setView('fitbh');
  if Sender = SpeedButton7 then AcroPDF1.setView('fitbv');
  if Sender = SpeedButton8 then AcroPDF1.setView('fitv');
end;

//=============================================================================
//  フォーカス移動のためのタイマーイベント
//  PDF文書は，読み込み表示の際，PDF文書にフォーカス移動してしまうのでその対策
//=============================================================================
procedure TForm1.Timer1Timer(Sender: TObject);
var
  hWindow :HWnd;
  cName   : array[0..MAX_PATH - 1] of char;
begin
  if Form1.Active then begin
    hWindow := Windows.GetFocus;
    GetClassName(hWindow, cName, sizeof(cName));
    if cName = 'AVL_AVView' then begin
      if not AFocusControl.Focused then Windows.SetFocus(AFocusControl.Handle);
    end;
  end;
end;

//=============================================================================
//  PDFをクリックしたらPDFをキーやマウスで操作可能にするため，タイマーをOFF
//  これがない場合(タイマーイベントが有効な場合)は，PDF文書のページ移動は，ス
//  クロールバーのマウス操作．あるいは，操作用のコードでのみ可能となる
//=============================================================================
procedure TForm1.AcroPDF1Enter(Sender: TObject);
begin
  Timer1.Enabled := False;
end;

end.

unit AcrobatShowUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, ExtCtrls, AcroPDFLib_TLB, SHDocVw;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    WebBrowser1: TWebBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses ComObj;

{$R *.DFM}

//=============================================================================
//  ファイル選択ダイアログでPDFファイルを選択して表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.DefaultExt := 'PDF';
  OpenDialog1.Filter     := 'Acrobat PDFファイル|*.PDF';
  OpenDialog1.Options    := [ofReadOnly];

  if OpenDialog1.Execute then begin
    Update;
    //about:blankは表示のクリアとしても利用できる
    WebBrowser1.Navigate('about:blank');
    WebBrowser1.Navigate(OpenDialog1.FileName);
  end;
end;
//=============================================================================
//  表示方式の変更
//  Button2からButton8までに共通使用のイベント
//  その他のメソッド(関数)類は，AcroPDFLib_TLB.pas内を参照
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  AcroPDF : IAcroAXDocShim;
begin
  if WebBrowser1.Document = nil then exit;

  AcroPDF := (WebBrowser1.Document as IAcroAXDocShim);

  if Sender = Button2 then AcroPDF.setView('fit');
  if Sender = Button3 then AcroPDF.setView('fitwindow');
  if Sender = Button4 then AcroPDF.setView('fith');
  if Sender = Button5 then AcroPDF.setView('fitb');
  if Sender = Button6 then AcroPDF.setView('fitbh');
  if Sender = Button7 then AcroPDF.setView('fitbv');
  if Sender = Button8 then AcroPDF.setView('fitv');
end;

end.

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  AcroPDF : IAcroAXDocShim;
begin
  if WebBrowser1.Document = nil then exit;
  if UpperCase(ExtractFileExt(URL)) <> '.PDF' then exit;

  AcroPDF := (WebBrowser1.Document as IAcroAXDocShim);
  AcroPDF.setShowToolbar(False);
end;

    Print
    printWithDialog
    printPages(from: Integer; to_: Integer)
    printPagesFit(from: Integer; to_: Integer; shrinkToFit: WordBool)
    printAll
    printAllFit(shrinkToFit: WordBool)

unit AcrobatPrintUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, ExtCtrls, AcroPDFLib_TLB, SHDocVw;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    Button2: TButton;
    WebBrowser1: TWebBrowser;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    procedure WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  初期設定
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  //PDF文書を非表示にすると印刷できないので，事実上非表示に近い大きさにする
  WebBrowser1.Height := 1;
  WebBrowser1.Width  := 1;

  Button2.Enabled := False;
  //印刷ページ範囲を設定
  LabeledEdit1.Text := '5';
  LabeledEdit2.Text := '7';
end;

//=============================================================================
//  ファイル選択ダイアログでPDFファイルを選択して表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.DefaultExt := 'PDF';
  OpenDialog1.Filter     := 'Acrobat PDFファイル|*.PDF';
  OpenDialog1.Options    := [ofReadOnly];

  if OpenDialog1.Execute then begin
    Update;
    WebBrowser1.Navigate(OpenDialog1.FileName);
  end;
end;

//=============================================================================
//  [印刷]ボタン
//  LastPage < FirstPageの時は逆順印刷になる
//  印刷開始ページと終了ページがPDF文書のページ数を超える場合は全ページ印刷
//  AcroPDFLib_TLBには，ページ数取得の関数はないので注意
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  AcroPDF   : IAcroAXDocShim;
  FirstPage : Integer;
  LastPage  : Integer;
begin
  if WebBrowser1.Document = nil then exit;

  AcroPDF   := (WebBrowser1.Document as IAcroAXDocShim);
  FirstPage := StrToInt(LabeledEdit1.Text);
  LastPage  := StrToInt(LabeledEdit2.Text);
  AcroPDF.printPages(FirstPage, LastPage);
end;

//=============================================================================
//  文章をロードしたら印刷ボタンを使用可能にする
//  このイベント発生時，文書が完全に表示完了となっているわけではない
//=============================================================================
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if WebBrowser1.Document = nil then exit;
  if UpperCase(ExtractFileExt(URL)) <> '.PDF' then exit;

  Button2.Enabled := True;
end;

end.

function TDebenuPDFLibrary1015.LoadFromFile(FileName, Password: WideString): Integer; 

function TDebenuPDFLibrary1015.PrintDocument(PrinterName: WideString; StartPage, 
  EndPage, Options: Integer): Integer;