Problemas com função...

[Hugo Slepicka 0]

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...

[marcio.theis 3]

Dê uma olhada em um destes links:

 

Link1

Link2

Link3

Fonte