Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom galera, segua abaixo respectivamente, a função e o erro gerado...
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;Nota: Não desenvolvi essa função... peguei na net...e agora o Erro:
[Warning] Funcoes.pas(204): Unsafe code 'ASM'
bom, se alguem puder me ajudar aew!!!Ficarei muito grato...
Dê uma olhada em um destes links:
Link1
Link2
Link3
Fonte