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

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

Определение принтера в системе (Повтор) [D6, Win95/98, WinME, Win2k, WinXP]

Ura ©   (2002-01-23 12:46:00) 

Нужно определить есть ли принтер в системе.
И проверить на физическом уровне.

---

Ura   (2002-01-28 16:57:00) [1]

Винда при плуг энд плее как-то же тестит оборудование?
Может можно подсоедениться к ее системе?

---

Sergey123   (2002-01-24 17:03:00) [2]

PrinterIsOk:=True;
try
Printer.Handle;
except
PrinterIsOk:=False;
end;

---

cdaDmitriy   (2002-01-24 13:01:00) [3]

И проверить на физическом уровне --???


Нужно определить есть ли принтер в системе.

Function GetPrinterCount:DWORD; var Flags, NumInfo: DWORD; Level: Byte;
begin
Result := 0;
try
if Win32Platform = VER_PLATFORM_WIN32_NT then begin
Flags := PRINTER_ENUM_CONNECTIONS or PRINTER_ENUM_LOCAL; Level := 4;
end else begin
Flags := PRINTER_ENUM_LOCAL; Level := 5;
end;
EnumPrinters(Flags, nil, Level, nil, 0, Result, NumInfo);
except
Result := 0;
End;
IF Result=0 Then Begin
Application.MessageBox(" In your system the printers are not installed , "+#10#13+
" Therefore functions of a seal are inaccessible "+#10#13+
" Establish the printer and reload the program ","Attention", MB_OK);
End;
End;

---

Наверх