Hello,

noticed a bug in the type definition of the InputRecord record used in Win32 keyboard handling causing problems with input in conjunction with W2k/NT + crt unit. Somehow with W9x this doesn't show up....

Here is the correct type definition:

type
  PInputRecord = ^TInputRecord;
  _INPUT_RECORD = record
    EventType: Word;
    Reserved: Word;   // this record member was missing
    case Integer of
      0: (KeyEvent: TKeyEventRecord);
      1: (MouseEvent: TMouseEventRecord);
      2: (WindowBufferSizeEvent: TWindowBufferSizeRecord);
      3: (MenuEvent: TMenuEventRecord);
      4: (FocusEvent: TFocusEventRecord);
  end;

Note that in Delphi this record is different, it rather looks like the following:

type
  PInputRecord = ^TInputRecord;
  _INPUT_RECORD = record
    EventType: Word;
    Reserved: Word;
    Event : record case Integer of
      0: (KeyEvent: TKeyEventRecord);
      1: (MouseEvent: TMouseEventRecord);
      2: (WindowBufferSizeEvent: TWindowBufferSizeRecord);
      3: (MenuEvent: TMenuEventRecord);
      4: (FocusEvent: TFocusEventRecord);
    end;
  end;

Checked with today's rtl source snapshot (1.1 version).

Regards,
Thomas