Program do sterowania bitami portu LPT z wiersza poleceń w Windows XP

Nie mam teraz dostępu do kompilatora, więc programu nie napiszę, ale postaram sie pokrótce opisac jak to powinno wyglądać. Przykłady będą dotyczyły Delphi.

Jeśli bawisz się w Delphi to parametry wpisywane przy uruchomieniu programu zwraca funkcja(kurcze nie jestem pewny nazwy)
ParamStr. Argumentem jej jest nr parametru do pobrania (po co ograniczac sie do jednego) np. ParamStr(0) zwróci nazwę programu, ParamStr(1) - pierwszy parametr itd.

Zakładam, że poczytałes sobie o obsłudze LPT pod XP ,masz już odpowiednie biblioteki udostępniajace port i przerobiłes rejestr windy aby nie niszczyła Twoich ustawień.

No to jak powinno to wyglądać:

Jako parametr zostanie podany nr. linii do zmiany (0-7)

1. Odczytujesz bajt z pod adresu $378 i wpisujesz go do jakiejś zmiennej np. pmc1:byte.
2. Odczytujesz parametr i zmieniasz go na liczbę (po odczycie jest łańcuchiem) : pmc2:=StrToInt(ParamStr(1))
3. Sprawdzasz stan wybranego bitu:
pmc1 and (1 shl pmc2)

Jeśli powyższe wyrażenie ma wartość zero to ustawiasz wybrany bit:

pmc1:=pmc1 or (1 shl pmc2);

Jeśli natomiast jest różne do zera to wybrany bit zerujesz:
pmc1:=pmc1 and not (1 shl pmc2);

4. Na koniec przerobiona zmienną pmc1 wysyłasz znów do portu (pod adres $378).

Po tej opoeracji powinien zmienić się stan wybranej linii.

Kod oczywiście nie jest optymalny, ale samo wstukanie nazwy programu zajmie więcej czasu niż jego wykonanie.

O'kij, jest programik.

Dołączyłem też biblioteke InpOut32.dll pozawalajacą podobno na dostęp do portów pod XP, chciaż tego akurat nie testowałem. Pod win98 działa jak powinno (inna sprawa, że wtedy t abiblioteka jest kwiatkiem do kożucha).
Dołączyłem też źródła, więc jeśli nie zadziała będzie można przerobić.

Pocztaj tez sobie to :

http://www.elnec.com/appnotes/winxp1uk.php

i zastosuj się do podanych informacji. Dzięki temu nie osiwiejesz podczas pracy z XP. To nie jest system do pracy z komputerem