| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Alexander ©   (2002-09-17 12:40:00) 

?

---

Alexander   (2002-09-17 15:50:00) [1]

Ок! Спасибо.

---

troits   (2002-09-17 15:01:00) [2]

Ну, вот так у меня на 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 14:02:00) [3]

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

---

troits   (2002-09-17 13:38:00) [4]

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

---

Alexander   (2002-09-17 13:11:00) [5]

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

---

Marcus   (2002-09-17 12:47:00) [6]

uses Printers,...

var hPrinter: Handle;

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

---

Наверх