أضف رمز مصدر Delphi للورق المخصص ضمن Win2000/XP

////////////////////////////////////////////////////////////// /////////////////////////////

// Wuhan استكشاف Computer Studio //

//http://tansuo.51.net//

////////////////////////////////////////////////////////////// /////////////////////////////

// أضف لتخصيص مواصفات الورق

// papername: اسم الورق المخصص

// paperwidth: عرض الورقة ، بوحدات 0.1 مم

// paperlength: ارتفاع الورق ، بوحدات 0.1 مم

الإجراءات.

var

PrintDevice ، printdriver ، printport: Array [0..255] ofchar ؛

Hdmode: Thandle ؛

Hprinter: Thandle ؛

forminfo: tforminfo1 ؛

يبدأ

printer.getPrinter (printDevice ، printdriver ، printport ، hdmode) ؛

OpenPrinter (printDevice ، hprinter ، nil) ؛

ifhprinter = 0then

raiseexception.create ('فشل الانضمام الطابعة!') ؛

withForminFodo

يبدأ

أعلام: = form_user ؛

pname: = pchar (papername) ؛

size.cx:=paperwidth*100 ؛

size.cy:=paperlength*100 ؛

ImageAblearea.left: = 0 ؛

ImageBlearea.top:=0 ؛

ImageAblearea.right: = paperwidth*100 ؛

ImageBleArea.bottom: = paperlength*100 ؛

نهاية؛

// قم بتعديل نوع الورق ، إن لم يكن ، أضف نماذج جديدة

ifnotsetform (hprinter ، pchar (papername) ، 1 ،@forminfo) ثم

addForm (hprinter ، 1 ،@forminfo) ؛

ClosePrinter (hprinter) ؛

نهاية؛

// حذف ورقة المواصفات المخصصة

// papername: اسم الورق المخصص

الإجراءات.

var

PrintDevice ، printdriver ، printport: Array [0..255] ofchar ؛

Hdmode: Thandle ؛

Hprinter: Thandle ؛

يبدأ

printer.getPrinter (printDevice ، printdriver ، printport ، hdmode) ؛

OpenPrinter (printDevice ، hprinter ، nil) ؛

ifhprinter = 0then

raiseexception.create ('فشل الانضمام الطابعة!') ؛

DELETEFORM (HPRINTER ، PCHAR (papername)) ؛

ClosePrinter (hprinter) ؛

نهاية؛