列出本地打印机

Question

我正在使用此例程列出机器上安装的本地打印机：

var
  p: pointer;
  hpi: _PRINTER_INFO_2A;
  hGlobal: cardinal;
  dwNeeded, dwReturned: DWORD;
  bFlag: boolean;
  i: dword;
begin
  p := nil;
  EnumPrinters(PRINTER_ENUM_LOCAL, nil, 2, p, 0, dwNeeded, dwReturned);
  if (dwNeeded = 0) then exit;
  GetMem(p,dwNeeded);
  if (p = nil) then exit;
  bFlag := EnumPrinters(PRINTER_ENUM_LOCAL, nil, 2, p, dwneeded, dwNeeded, dwReturned);
  if (not bFlag) then exit;
  CbLblPrinterPath.Properties.Items.Clear;
  for i := 0 to dwReturned - 1 do
  begin
    CbLblPrinterPath.Properties.Items.Add(TPrinterInfos(p^)[i].pPrinterName);
  end;
  FreeMem(p);

---

TPrinterInfos(p^)[i].pPrinterName

返回打印机名称的“P”。我安装了 PdfCreator 作为打印机。

TPrinterInfos

是

_PRINTER_INFO_2A

的数组。

我该如何解决这个问题？

Answer 1

您只需使用 Printer 变量中提供的列表即可获取本地打印机列表。简单如

uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Assign(Printer.Printers);
end;

我会使用这种方法，除非你有特定的理由去做你正在做的事情。

最近，我创建了一个 github 存储库，其中包含执行此操作的实用程序。

github.com/tobya/listprn

Answer 2

好吧，首先……因为你标记了这个 Delphi-2010，我假设你在使用 D2010 时遇到了这个问题。

您的问题始于您对 _PRINTER_INFO_2A 的使用，这是函数 EnumPrinters 的 Ansi 版本使用的结构。自从引入 unicode 以来，“EnumPrinters”函数映射到该函数的 unicode 版本，因此，您应该使用 _PRINTER_INFO_2W。 （或显式调用 EnumPrintersA）。如果您使用的是 EnumPrinters（无 A/W），则应使用 _PRINTER_INFO_2（无 A/W）。这样，如果有一天 UTF32 版本成为新标准，它就不太可能崩溃。

Answer 3

由于您使用的是 unicode Delphi 版本，因此您应该使用 _PRINTER_INFO_2W 结构而不是 _PRINTER_INFO_2A