Delphi EnumPrinters 简单用法

2017-08-11 20:20:07来源:CSDN作者:qq_23044209人点击

分享

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;

(显示出来的代码就没有空格了,不好看)

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台