Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: CL | DM;

Вниз

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

 
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]

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



Страницы: 1 вся ветка

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-80871
Rammst
2002-04-13 10:29
2002.04.25
Закрытие программ


14-81073
D'Aron
2002-03-21 11:15
2002.04.25
Исходники для склада


14-81063
vopros
2002-03-19 15:20
2002.04.25
Кто как отдыхает после тяжелой нашей работы?


14-81057
fliz
2002-03-20 09:22
2002.04.25
Если на машине нет и никогда не было установлено Access, то через BDE можно работать с аксесовской базой. Или я что-то путую?


3-80803
trever
2002-04-05 10:22
2002.04.25
Помогите советом, пожалуйста!