Witam.
Mam taki problem, mianowicie nie mogę sobie poradzić z obsługą portu LPT,
znalazłem takie coś:

var dana : byte
......
DataPort := $378;
Dana :=TestLPT.DLPortIO.Port[DataPort]; // bierz dane
Dana := (Dana or $10); //5BIT NA 1
TestLPT.DLPortIO.Port[DataPort]:=Dana; , // daj nan port dane
....

Ja potrzebuje umieścić w programie "przycisk". Jeżeli ten przycisk jest wciśnięty(ciągłe trzymanie LPP) to pin D2 ma wartość 1, analogicznie jeżeli nie to 0. Cały problem jest w tym, że ja nie siedzę za bardzo w Delphi i nie mogę sobie z tym poradzić. Wielkie dzięki.