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
I want to read your E-Mail