添加打印机

摘　要：如何使用代码添加打印机
　关键字：打印机 Windows API
　类　别：API

使用代码添加打印机，需要调用API函数AddPrinter，它有三个参数：

1) 打印机名
2) 打印质量
3) 打印机说明

以下代码把函数封装起来。你只需要提供出现在Windows Explorer中的打印机名，打印机的接口名（例如LPT1:），驱动器名和打印程序名（通常是winprint）。代码调用了API函数。

unit unit_AddPrinter;

interface

function AddAPrinter(PrinterName, PortName, DriverName, PrintProcessor: string): boolean;

implementation

uses
SysUtils,
WinSpool,
Windows;

function AddAPrinter(PrinterName, PortName, DriverName, PrintProcessor: string): boolean;
var
pName: PChar;
Level: DWORD;
pPrinter: PPrinterInfo2;
begin

pName := nil;
Level := 2;
New(pPrinter);
pPrinter^.pServerName := nil;
pPrinter^.pShareName := nil;
pPrinter^.pComment := nil;
pPrinter^.pLocation := nil;
pPrinter^.pDevMode := nil;
pPrinter^.pSepFile := nil;
pPrinter^.pDatatype := nil;
pPrinter^.pParameters := nil;
pPrinter^.pSecurityDescriptor := nil;
pPrinter^.Attributes := 0;
pPrinter^.Priority := 0;
pPrinter^.DefaultPriority := 0;
pPrinter^.StartTime := 0;
pPrinter^.UntilTime := 0;
pPrinter^.Status := 0;
pPrinter^.cJobs := 0;
pPrinter^.AveragePPM :=0;

pPrinter^.pPrinterName := PCHAR(PrinterName);
pPrinter^.pPortName := PCHAR(PortName);
pPrinter^.pDriverName := PCHAR(DriverName);
pPrinter^.pPrintProcessor := PCHAR(PrintProcessor);

if AddPrinter(pName, Level, pPrinter) <> 0 then
Result := true
else begin
// ShowMessage(inttostr(GetlastError));
Result := false;
end;

end;

end.