给另外的程序发送字符串(100分)

  • 主题发起人 主题发起人 smilboy
  • 开始时间 开始时间
S

smilboy

Unregistered / Unconfirmed
GUEST, unregistred user!
比如打开一个记事本,在程序中发送字符串,在记事本中能够显示<br>不知道是不是sendmessage,有个控件是sendkey是不是干这个的?<br>我不会用<br>请大家指点
 
利用ClipBoard,先把你的字符串复制到ClipBoard里面,然后向那个程序发送粘贴消息<br>是SendMessage
 
1、首先打开记事本<br>2、在DELPHI中创建一个程序,添加一个TTimer<br>3、在ONTimer事件中写入如下代码<br>&nbsp; var<br>&nbsp; &nbsp; MPoint:TPoint; <br>&nbsp; &nbsp; NowHwnd:HWnd;<br>&nbsp; begin<br>&nbsp; &nbsp; GetCursorpos(mPoint);<br>&nbsp; &nbsp; NowHwnd:=windowfromPoint(mPoint);<br>&nbsp; &nbsp; showmessage(inttostr(nowhwnd));<br>&nbsp; end;<br>&nbsp; 将鼠标移到记事本中MEMO框,即看到他的句柄。<br><br>4、放入一个EDIT和BUTTON<br>5、在BUTTON的ONCLICK中写<br>&nbsp; &nbsp;edit1.SelectAll;<br>&nbsp; &nbsp;edit1.CopyToClipboard;<br>&nbsp; &nbsp;SendMessage(525146,WM_PASTE,0,0);<br>&nbsp; &nbsp;其中525146就是在TIMER中show的记事本中MEMO框的句柄。
 
移解决,不过还是给你家分
 
后退
顶部