1。怎样读取另一个程序窗口中的文本。如记事本中的文本内.2。向记事本送字符时怎么控制位置，还有光标当前位置？(200分)

1。怎样读取另一个程序窗口中的文本。如写字板中的文本内容<br>2。向记事本送字符时怎么控制起始位置，还有光标当前位置？

1. 可以用GetWindowText() API函数<br>2. 试试发送光标移动消息,

1. findwindow()<br>2. findwindowex()<br>3. sendmessage()<br>函数用法请查帮助。这是进步最快的方法

用ｆｉｎｄｗｉｎｄｏｗ找到窗体的ｈａｎｄｌｅ，然后用ｇｅｔｗｉｎｄｏｗｔｅｘｔ取得<br><br>第二个问题，应该可以向程序发送消息把

up

仅供参考<br>procedure TForm1.BitBtn1Click(Sender: TObject);<br>var<br>&nbsp; Handle: Integer;<br>&nbsp; tmpHandle,tmphandle1: Integer;<br><br>&nbsp; rchedt:trichedit;<br>&nbsp;begin<br><br>&nbsp; rchedt:=TrichEdit(PopupMenu1.PopupComponent);<br><br><br>&nbsp; Handle := FindWindow(nil,'对话模式');<br>&nbsp; if Handle&lt;&gt;0 then<br>&nbsp; begin<br>&nbsp; &nbsp; tmpHandle := Handle;<br>&nbsp; &nbsp; tmpHandle1 := Handle;<br>&nbsp; &nbsp; EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));<br>&nbsp; &nbsp; FButtonHandle := Handle;<br><br><br>&nbsp; &nbsp; EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));<br>&nbsp; &nbsp; FTextHandle := tmpHandle;<br><br>&nbsp; &nbsp; //showwindow(tmpHandle1,SW_HIDE);<br>&nbsp; &nbsp; //setwindowlong(tmpHandle1,GWL_EXSTYLE,WS_EX_TOOLWINDOW);<br><br><br>&nbsp; end;<br>&nbsp; SendMessage(FTextHandle,WM_SETTEXT,0,Integer(pchar(rchedt.text)));<br>&nbsp; SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);<br>&nbsp; SendMessage(FButtonHandle,WM_LBUTTONUP,0,0);<br>&nbsp; rchedt.clear;<br>end;<br>

GetEditHandle 内容是什么? 如果多于一个编辑框,怎么判断? 象"写字板"就有多个可输入框? <br>我现在可以做到向记事本送字符.不过只能从第一个位置开始..从第10个位置要怎么办?<br>我现在知道输入框的句柄:handle &nbsp;<br>怎么用这个getwindowtext? <br>我怎么用GetWindowText读不到内容?

我不知道上面各位说的对不对，但是我知道，用DDE(Dynamic Data Exchange)是比较正统的办法，DDE的控件在System页上，Ole后面的4个都是，你可以看看帮助文件，有相关的说明，我今天很累不想写代码，I'm sorry

学习

找到记事本的句柄　handle &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br>&nbsp; GetWindowText(handle,@buff[0],100);<br>可以得到记事本的标题。。<br>用　EnumChildWindows　得到编辑窗口句柄（设　Ehandle）。<br>可以用sendmessage（Ehandle ...) 向窗口内送文本。<br>可是记事本编辑窗口的内容用　GetWindowText(Ehandle,@buff[0],100);怎么就取不到？<br>

怎么把一个窗口内的所有编辑窗口句柄都找出来　？

接受答案了.