Mega Code Archive
Categories
/
Delphi
/
Hardware
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.