Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.005 c
3-80836
Alexsys
2002-04-05 23:38
2002.04.25
GRID + несколько колонок в внем же...


1-80889
Darlok
2002-04-14 15:03
2002.04.25
Program Files Dir


1-80873
LazorenkoX
2002-04-11 11:58
2002.04.25
Русский язык в консоле


3-80776
Labert
2002-04-04 13:19
2002.04.25
TQuery.Filter не работает


3-80817
Zak
2002-04-05 08:38
2002.04.25
Печать МЕМО записей в Qreport





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский