Jak napisać program w Delphi do sterowania LPT (D0-D3)?

procedure TForm1.Button1Click(Sender: TObject);
begin
asm
mov dx,$378
mov ax,1; {bit d0}
out dx,ax
end;
end;

Jesli nie bedzie (nie sprawdzalem powyzszego kodu) to moze tak (ten sprawdzilem).

var l,m,k:byte;
k=1, 2, 4 lub 8 dla d0, d1, d2, d3

l:=lo(k);
m:=hi(k);
asm
mov dx,$378
mov al,l
mov ah,m
out dx,ax
end;

Dodano po 3 [minuty]:

Opisze drugi przyklad. Do k ladujesz wartosc kolejnej potegi 2. Rozbijasz na czesc bardziej znaczaca i mniej znaczaca. Ustawiasz adres docelowy (adres LPT), ladujesz do zmiennej ax (poprzez al i ah) wartosc k i wysylasz na adres out.

Mam nadzieje, ze wiesz o blokowaniu portow przez niektore edycje windows

program dziala w delphi - wykorzystuje go do wyswietlania zuzycia procesora procentowego na diodach.

Sciagnij program userport - on umozliwi odblokowanie portow.

Nie dziala = nie kompiluje czy nie reaguje port LPT?

To jest caly program. Odwolanie do portu LPT to 3 instrukcje w asm. Nie widze sensu wklejania calego zrodla.

Dodano po 34 [minuty]:

Moze program do zaluzji ma wbudowana opcje odblokowywania portow, ktora dziala jedynie dla tego programu? Czy probowales sciagac program userport?