1、首先打开记事本<br>2、在DELPHI中创建一个程序,添加一个TTimer<br>3、在ONTimer事件中写入如下代码<br> var<br> MPoint:TPoint; <br> NowHwnd:HWnd;<br> begin<br> GetCursorpos(mPoint);<br> NowHwnd:=windowfromPoint(mPoint);<br> showmessage(inttostr(nowhwnd));<br> end;<br> 将鼠标移到记事本中MEMO框,即看到他的句柄。<br><br>4、放入一个EDIT和BUTTON<br>5、在BUTTON的ONCLICK中写<br> edit1.SelectAll;<br> edit1.CopyToClipboard;<br> SendMessage(525146,WM_PASTE,0,0);<br> 其中525146就是在TIMER中show的记事本中MEMO框的句柄。