The Keyboard structure contains functions to select the window to receive keyboard input.
structure Keyboard: sig type HWND val EnableWindow : HWND * bool -> bool val GetActiveWindow : unit -> HWND option val GetFocus : unit -> HWND option val IsWindowEnabled : HWND -> bool val SetActiveWindow : HWND -> HWND val SetFocus : HWND option -> HWND option end