var Hand, sHand: tHandle; begin Hand := FindWindow(nil, '168'); sHand := findwindowex(Hand, 0, nil, '是(&Y)'); SendMessage(Hand, WM_SETFOCUS, 0, 0); SendMessage(sHand, WM_LBUTTONDOWN, 0, 0); SendMessage(sHand, WM_LBUTTONUP, 0, 0); lbl1.Caption := IntToStr(sHand); //SendMessage(btn3.Handle,WM_LBUTTONDOWN,0,0); //SendMessage(btn3.Handle,WM_LBUTTONUP,0,0); //SendMessage(sHand,WM_SETTEXT,0,Integer(pchar('abc'))); end;