Delphi EnumPrinters 简单用法

（KK_DDj 原创）

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;