Delphi EnumPrinters 简单用法

最新推荐文章于 2022-02-25 11:34:32 发布

JDD_KK

最新推荐文章于 2022-02-25 11:34:32 发布

阅读量1.2k

点赞数

分类专栏： Delphi 被我搞丢的语言文章标签： delphi

本文链接：https://blog.csdn.net/qq_23044209/article/details/77100157

版权

Delphi 被我搞丢的语言专栏收录该内容

5 篇文章 0 订阅

订阅专栏

（JDD_KK原创）

EnumPrinters 这个函数在msdn上有详细介绍，多的就不说了。手上有个项目就用到了这个函数，简单的举个例子，也是给自己做了一个笔记。自己是菜鸟，希望大家能一起学习，共同进步。有不对的地方也请指出，谢谢。
具体代码如下：

//引用单元
uses WinSpool；
//枚举打印机
procedure TForm1.Button7Click(Sender: TObject);
var
  Netp4 , PLocator  :  PPrinterInfo4;
  Need, Ret             :  Cardinal;
  I                            :  Integer;
begin
  //枚举本机上**所有**打印机
  EnumPrinters(PRINTER_ENUM_CONNECTIONS or PRINTER_ENUM_LOCAL , nil, 4, nil, 0, Need, Ret);
	 Netp4 := AllocMem(Need);
  if EnumPrinters(PRINTER_ENUM_CONNECTIONS or PRINTER_ENUM_LOCAL , nil, 4, Netp4, Need, Need, Ret) then
  begin
    Memo1.Clear;
    PLocator := Netp4;//不是特别明白为什么需要赋值，若不赋值，就会报错
    for I := 0 to Ret - 1 do
    begin
      Memo1.Lines.Add(PLocator^.pPrinterName);
      Memo1.Lines.Add(PLocator^.pServerName);
      Memo1.Lines.Add(IntToStr(PLocator^.Attributes));
      Inc(PLocator);
    end;
  end;
  FreeMem(netp4);
end;