Source position: winapih.inc line 227
function ScreenToClient(
Handle: HWND;
var P: TPoint
):Integer;