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.