Форум: "WinAPI";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
ВнизКак программно удалить принтер из системы? Найти похожие ветки
← →
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]То-же самое. Не удаляет!
← →
troits (2002-09-17 15:01) [5]Ну, вот так у меня на 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;
← →
Alexander (2002-09-17 15:50) [6]Ок! Спасибо.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.10.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c