Как получить имя принтера, установленного в системе по умолчанию?

← →
Вован_ (2004-01-19 11:53) [0]

Собственно вопрос в теме:)

← →
Вован_ (2004-01-19 12:38) [1]

Ответ самому себе (часто ли так бывает:)?

1. Подключить unit Printers

2. Printer.Printers[Printer.PrinterIndex]

← →
Dingo (2004-01-19 14:30) [2]

а на чистом API?

← →
Anatoly Podgoretsky © (2004-01-19 14:37) [3]

Исходные тексты модуля доступны.

Ф-ция PrintDlg()

← →
Penal (2004-01-20 11:17) [5]

Писалось давно, выдрано грубо, м.б. чегото не хватает
Заполняет листбокс списком принтеров и позиционирует его на используемом по умолчанию.

const MaxPrint = 20;
var
Buf: array [0..MaxPrint] of TPrinterInfo5;
ByteCnt, StructCnt: cardinal;
i: integer;
begin
EnumPrinters(PRINTER_ENUM_LOCAL , nil, 5, @Buf, SizeOf(Buf), ByteCnt, StructCnt);
for i:=0 to StructCnt-1 do begin
Lb.Items.Add(Buf[i].pPrinterName);
If (Buf[i].Attributes and PRINTER_ATTRIBUTE_DEFAULT) = PRINTER_ATTRIBUTE_DEFAULT then begin
Lb.ItemIndex:=i;
cd:=i;
end;
end;
end;

Как получить имя принтера, установленного в системе по умолчанию? Найти похожие ветки