TKeyboardDriver

type TKeyboardDriver = record

  InitDriver: procedure;

  DoneDriver: procedure;

  GetKeyEvent: function: TKeyEvent;

  PollKeyEvent: function: TKeyEvent;

  GetShiftState: function: Byte;

  TranslateKeyEvent: function(

  KeyEvent: TKeyEvent

):TKeyEvent;

  TranslateKeyEventUniCode: function(

  KeyEvent: TKeyEvent

):TKeyEvent;

  GetEnhancedKeyEvent: function: TEnhancedKeyEvent;

  PollEnhancedKeyEvent: function: TEnhancedKeyEvent;

end;