我使用此例程列出计算机上安装的本地打印机:
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
.
我怎样才能解决这个问题?
您只需使用 Printer 变量中提供的列表即可获取本地打印机列表。简单如
uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Assign(Printer.Printers);
end;
我会使用这种方法,除非你有特定的理由去做你正在做的事情。
最近,我创建了一个 github 存储库,其中包含执行此操作的实用程序。
github.com/tobya/listprn https://github.com/tobya/listprn
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)