برمجة وبرامج


أهلا وسهلا بك زائرنا الكريم, أنت لم تقم بتسجيل الدخول بعد! يشرفنا أن تقوم بالدخول أو التسجيل إذا رغبت بالمشاركة في المنتدى

منتدى هواة البرامج » المنتدى التقني » نصوص برمجية بلغة الدلفي » تغيير الطابعة الافتراضية باستعمال الدلفي

تغيير الطابعة الافتراضية باستعمال الدلفي

إرسال موضوع جديد  إرسال مساهمة في موضوع

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل  رسالة [صفحة 1 من اصل 1]

1 تغيير الطابعة الافتراضية باستعمال الدلفي في الثلاثاء أغسطس 26, 2014 6:39 pm

لجعل إحدى الطابعات طابعة افتراضية نستعمل الخطوات التالية


  1. نقرأ جميع الطابعات المثبتة على الجهاز

  2. نستعمل عنصر combobox لتخزين اسماء الطابعات

  3. نقوم بعرض اسم الطابعة الافتراضية على الفورم

  4. نستعمل زر لتبديل الطابعة الافتراضية



1- الكود الخاص بقراءة اسماء الطابعات المثبتة :
function GetDefaultPrinter : string;
var
ResStr : array[0..255] of char;
begin
GetProfileString('Windows','device','',ResStr,255);
Result:=StrPas(ResStr);
end;

2- الكود الخاص بعرض الطابعة الافتراضية والطوابع المثبتة :
procedure TForm2.FormCreate(Sender: TObject);
begin
Combobox1.Items.AddStrings(Printer.Printers);
Combobox1.ItemIndex= Combobox1.Items.IndexOf(GETDEFAULTPRINTER);
end;

3- الكود الخاص بتعيين الطابعة الافتراضية :
procedure SetDefaultPrinter(NewDefPrinter : string);
var
ResStr : array[0..255] of char;
begin
StrPCopy(ResStr,NewdefPrinter);
WriteProfileString ('windows', 'device', ResStr);
StrCopy (ResStr, 'windows');
SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@ResStr));
end;

4- عرض اسم الطابعة على الفورم :

procedure TForm2.FormPaint(Sender: TObject);
begin
canvas.TextOut( width div 2, height div 4,' الطابعة الافتراضية هي:  ' +combobox1.Text);
end;

5- الكود الخاص بتطبيق طابعة افتراضية :
procedure TForm2.Button1Click(Sender: TObject);
begin
SetDefaultPrinter(Combobox1.Text);
repaint;
end;

معاينة صفحة البيانات الشخصي للعضو http://ta3bir.exprimetoi.net
هذا مهم إذا كان بالجهاز أكثر من طابعة مثبتة

معاينة صفحة البيانات الشخصي للعضو

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة  رسالة [صفحة 1 من اصل 1]

إرسال موضوع جديد  إرسال مساهمة في موضوع

صلاحيات هذا المنتدى:
تستطيع الرد على المواضيع في هذا المنتدى