Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Принтеры и Печать    >>    prnready
   
 
 Проверка готовности принтера  Михаил Муров 04.11.1994

Функция проверяет готовность принтера



1k 
 

{> Cut here. FileName= PRNREADY.PAS } {From: "Murow Mike" <prp@prp.rosten.djug.pyatigorsk.su> Примитив конечно, но вполне проверяет готовность принтера. Меня по крайней мере вполне устраивает. } function printerready:boolean; var check:byte; begin Delay(10); asm push cx push es push dx push ax mov ax,40h mov es,ax mov dx,es:[8] inc dx in al,dx and al,80h mov cx,7 @loop1: shr al,1 loop @loop1 mov check,al pop ax pop dx pop es pop cx end; printerready:=(check=1) end;