tagINPUT

type tagINPUT = record

  type_: DWORD;

  case Integer of

    0: (

        mi: MOUSEINPUT;

      );

    1: (

        ki: KEYBDINPUT;

      );

    2: (

        hi: HARDWAREINPUT;

      );

end;