Hardware Delphi

  1. Home
  2. Delphi
  3. Hardware
  4. Paralel porttan data gönderilmesi
Program Send_A_To_LPT1;
Var
PrinterPort:Array[1..4] Of Byte Absolute $40:$8;
Begin
Port[PrinterPort[1]]:=Ord('A');
End.