/]/]@t
-
Content Count
1 -
Joined
-
Last visited
Everything posted by /]/]@t
-
Test print is OnLine Function PrinterOnLine : Boolean;Const PrnStInt : Byte = $17; StRq : Byte = $02; PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }Var nResult : byte;Begin (* PrinterOnLine*)Asm mov ah,StRq; mov dx,PrnNum; Int $17; mov nResult,ah;end; PrinterOnLine := (nResult and $80) = $80;End; Error: [Warning] Funcoes.pas(204): Unsafe code 'ASM'