跪求delphi怎样清除其它程序界面中某个文本框的内容，然后将剪贴板里面的字符串复制到这个文本框。解决后再单独送500分。

Question

跪求delphi怎样清除其它程序界面中某个文本框的内容，然后将剪贴板里面的字符串复制到这个文本框。解决后再单独送500分。

Answer 1

我现在都可以取到该文本框的句柄了，现在就是要修改文本框的内容，看资料是用sendmessage函数，但是我不会用啊，请高手给个例子（假定该文本框的句柄已经知道）

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  CalcEdit: HWND;
begin
  WinExec('Calc', SW_SHOW);
  CalcEdit := FindWindowEx(FindWindow('SciCalc', '计算器'), 0, 'Edit', nil);
  SendMessage(CalcEdit, WM_SETTEXT, 0, Integer(PChar('0123456789')));
end;

Answer 3

xiedewei ：非常感谢，要的就是这个啊。哈哈，结贴了。