program PDFInfo;

{$APPTYPE CONSOLE}

uses

SysUtils,

Graphics,

Classes,

HPDFDoc;

var

  HPDF: THotPDF;

begin

HPDF:= THotPDF.Create(nil);

try

   HPDF.AutoLaunch := true;                                              // PDFファイルは自動的に表示されます

   HPDF.ShowInfo := true;                                                   // ドキュメントにメタ情報を追加します

   HPDF.FileName := 'Hello world.pdf';      

   HPDF.Author := 'http://www.loslab.com/';                            // 著者情報を設定します

   HPDF.Subject := 'HotPDF console information demo';        // ドキュメントの件名を設定します

   HPDF.Title := 'Information Demo';                                     // ドキュメントのタイトルを設定します

   HPDF.BeginDoc;                                                             // PDFファイルを作成します

   HPDF.CurrentPage.TextOut(10, 10, 0, 'Information Demo');  // テキストを描画します

   HPDF.EndDoc;                                                                // PDFファイルを閉じます

finally

     HPDF.Free;

end;

end.