Низкоуровневая имитация мыши.

[alex4321]

В общем вопрос в том, как правильно имитировать работу мыши (всякие SendInput и прочее - не прокатят, к сожалению).
Решено было писать драйвер. Как я понял из этих 2 описаний :
http://ru.osdev.wikia.com/wiki/%D0%9...%81%D0%B0_PS/2
http://src-code.net/neposredstvennay...shyu-ps2-tipa/
Необходимо по готовности 8042 передать ему сперва D3h а потом записать описывающий состояние мыши байт.
Соответственно был переделан из имеющегося клавиатурного такой драйвер : http://pastebin.com/vgMQ7KrX (внимания вроде заслуживает лишь KbPs2Write )

Пытаюсь вызвать его из Delphi так :

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows;

var
  code:byte;
  c:array [0..1] of byte;
  ret:Cardinal;
  h:THandle;

function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';

begin
  Sleep(10000);
  h := CreateFile('\\.\r0modrv', GENERIC_READ + GENERIC_WRITE, 0,
    nil, OPEN_EXISTING, 0, 0);
  c[0]:=1;
  c[1]:=32;
  DeviceIoControl(h, 1,@c[0],2*sizeof(Byte),nil,0,ret, nil);
  Sleep(500);
  c[0]:=1;
  c[1]:=0;
  DeviceIoControl(h, 1,@c[0],2*sizeof(Byte),nil,0,ret, nil);
  Sleep(500);
  CloseHandle(h);
  Sleep(10000);
end.

(Функции работы с сервисами не вызываются, т.к. драйвер уже встроился в систему)
Но ничего не происходит. В чём может быть проблема?

[alex4321]

Inp32, Out32 - по ходу просто забыл удалить их :-)