LPT-Port steuern

[xstream]

Hallo

Ich hab die Suche benutz und bin auf diesen Topic gestossen: http://www.delphipraxis.net/internal...ect.php?t=5119

nun hab ich dieses skript bei mir bei einem neuen project eingefügt:

Delphi-Quellcode:

function  PortIn( PortNum: word): byte;
Var a : byte;
Begin
  asm
    mov DX, PortNum;
    in  AL, DX;
    mov a, AL;
  end; {asm}
  PortIn := a;
end;

procedure PortOut( PortNum: word; a: byte);
Begin
  asm
    mov DX, PortNum;
    mov AL, a;
    out DX, AL;
  end; {asm}
end;

Nun kommt aber beim Complimieren:

Zitat:

Im Projekt Project1.exe ist eine Exception der Klasse EPRivilege aufgetreten. Meldung: 'Priviligierte Anweisung'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzten.

Könnt Ihr mir helfen? Brauch ich noch eine dll oder sonst was?

MfG

xstream