通过发送消息enable、check鼠标指向的控件

针对想点中其它软件中的某个控件的问题
var
  Pmouse: TPoint;
  hClientWindow,hWindow:Thandle;
begin
  //enable 一个控件
  GetCursorPos(pMouse);
  hWindow:=WindowFromPoint(pMouse);
  Windows.ScreenToClient(hWindow,pMouse);
  hClientWindow:=ChildWindowFromPoint(hWindow,pMouse);
  if hClientWindow<>0 then
       hWindow:=hClientWindow;
  EnableWindow(hWindow,true);
  SendMessage(hWindow, BM_SETCHECK, 1, 0);
  //EnableWindow(hWindow,false);
  //SendMessage(Handle, BM_SETCHECK, Integer(Checked), 0);

还有sendMessage 改变dropdown
PostMessage(Cmb.Handle, CB_SHOWDROPDOWN, 1, 0); // 设定为下拉方式
PostMessage(Cmb.Handle, CB_SETCURSEL, 1, 0); // 指定当前下标为1