Главная страница
    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.007 c
1-80871
Rammst
2002-04-13 10:29
2002.04.25
Закрытие программ


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


3-80823
Alexandr_
2002-04-05 15:00
2002.04.25
ODAC. Проблема с чтением из BLOB


1-80957
Dimaiv
2002-04-12 09:16
2002.04.25
Как на форму запихать jpeg.


1-80917
hm
2002-04-11 12:35
2002.04.25
RichEdit





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский