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.