r0keyboard driver usage

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  h:THandle;
  ret:Cardinal;
  codes:array[0..2]of Byte;

begin
  Sleep(2500);
  codes[0]:=2;
  codes[1]:=28;
  codes[2]:=156;
  h:=CreateFile('\\.\r0kedrv',GENERIC_READ + GENERIC_WRITE,
                0,nil,OPEN_EXISTING,0,0);
  DeviceIoControl(h, $800, @codes[0],3*sizeof(codes),
                         nil,0,ret,nil);
    CloseHandle(h);
end.