منتدى هواة البرامج
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

برمجة وبرامج


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

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

2 مشترك

اذهب الى الأسفل  رسالة [صفحة 1 من اصل 1]

Foxtromike

Foxtromike

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


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

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

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

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


تغيير الطابعة الافتراضية باستعمال الدلفي Defaut11
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;

https://ta3bir.exprimetoi.net

skaner

skaner

هذا مهم إذا كان بالجهاز أكثر من طابعة مثبتة

الرجوع الى أعلى الصفحة  رسالة [صفحة 1 من اصل 1]

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