ISPRINTER

Joao Paulo Schwarz Schuler
uses DOS;

function ISPRINTER:boolean;
{ devolve verdadeiro se impressora esta pronta para receber }
{ returns TRUE if printer is redy to recive }
var R:registers;
begin
R.AH:=2;
R.DX:=0;
intr($17,R);
ISPRINTER:=(R.AH and 128)<>0;
end;

Return to the Home Page

Return to the Fontes em Pascal Page

I want to read your E-Mail