Определение принтера в системе (Повтор)

← →
Ura (2002-01-23 12:46) [0]

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

← →
cdaDmitriy © (2002-01-24 13:01) [1]

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

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

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;

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

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

← →
Ura (2002-01-28 16:57) [3]

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

Определение принтера в системе (Повтор) Найти похожие ветки