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