Как программно удалить принтер из системы?

← →
Alexander © (2002-09-17 12:40) [0]

← →
Marcus (2002-09-17 12:47) [1]

uses Printers,...

var hPrinter: Handle;

if OpenPrinter("PrinterName", hPrinter, nil) then
DeletePrinter(hPrinter);

← →
Alexander © (2002-09-17 13:11) [2]

У меня так почему-то не удаляет.
Win2000

← →
troits © (2002-09-17 13:38) [3]

Попробуй
DeletePrinterConnection("PrinterName");

← →
Alexander © (2002-09-17 14:02) [4]

То-же самое. Не удаляет!

Ну, вот так у меня на 2000 удаляется локальный принтер:

procedure RemoveLocalPrinter;
var
hPrinter: THandle;
PrinterDefaults: TPrinterDefaults;
begin
with PrinterDefaults do
begin
pDatatype := nil;
pDevMode := nil;
DesiredAccess := PRINTER_ALL_ACCESS;
end;

if OpenPrinter("PrinterName", hPrinter, @PrinterDefaults) then
Win32Check(DeletePrinter(hPrinter));
end;

Ок! Спасибо.

Как программно удалить принтер из системы? Найти похожие ветки