Как прикрутить GiveIO ?

[caveman]

Мне необходимо работать с LPT-портом. Скачал пакет, в котором лежит модуль GIVEIO.pas.
Вот листинг моего тестового модуля:

unit LPTforHobby;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, GIVEIO;

  type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure OutPort(PortAddr:
          word; Databyte: byte);
{$IFDEF WIN32}
assembler; stdcall;
asm
   mov al,Databyte
   mov dx,PortAddr
   out dx,al
end;
{$ELSE}
begin
  Port[PortAddr] := DataByte;
end;
{$ENDIF}

procedure TForm1.Button1Click(Sender: TObject);
begin
InitDriver;
OutPort(888, 200);
DoneDriver;
end;


end.

В данном случае пытаюсь записать в порт байт 200. Мне Windows при нажатии на button1 выдает ошибку про Priveleged Level. В чем могут быть грабли?
PS все файлы giveio лежат в той же папке, где и мой модуль.

[rpy3uH]

GiveIO должен быть драйвером (файл giveio.sys), а не модулем подключенным к твоей программе! (кстати а что это за модуль giveio, что там?)
здесь можно скачать sys файл и файл установки http://www.pcports.ru/files/giveio.rar
установить перезагрузиться, и потом в программе открывать через CreatreFile
h=CreateFile('\\.\giveio', GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0);
и обращаться к портам ввода-вывода!

[Vedrus]

http://www.wasm.ru/docs/1/kmdtut.zip