1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

var
  DInput8:IDirectInput8 = nil;
  DIKeyboard8:IDirectInputDevice8 = nil;

  KeyBuffer : array[0..255] of byte;
...
function dmInitKeyboard(WinHandle:HWND):boolean;
begin
  result := not failed(DInput8.CreateDevice(GUID_SysKeyboard, DIKeyboard8, nil));
  if result then
  begin
    DIKeyboard8.SetCooperativeLevel(WinHandle, DISCL_FOREGROUND or DISCL_NONEXCLUSIVE);
    DIKeyboard8.SetDataFormat(@c_dfDIKeyboard);
    DIKeyboard8.Acquire;
  end;
end;


procedure dmKeyboardState;
begin
  DIKeyboard8.GetDeviceState(sizeof(KeyBuffer), @KeyBuffer);
end;

function isKeyDown(const key:byte):boolean;
begin
  result := (keybuffer[key] and $80) = $80;
end;