＋设为首页 ＋添加到收藏夹
目前我想做的就是通过我自己的程序来控制外界的程序，比如关闭windows的记事本等！这个功能我已经实现了。是用findwindow找到hwnd，然后sendmessage就可以了
但是目前的我的问题是:我想向外界的程序发送一个事件，目的是触发另外程序中的一个button!就好像亲自在那个程序点击了一样。不知道该怎么样实现。
至于关闭外界的程序，直接发送wm_close就可以了。可以触发button就不知道了。。希望指点！！！
setwindowtext
sendmessage
唉！给你个例子吧！你把鼠标在Edit1里按下，拖到记事本上放开，就这么得到了！呵呵
procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
WH:HWND;
begin
WH:= WindowFromPoint(Mouse.CursorPos);
SendMessage(WH,WM_SETTEXT,0,Integer(PChar(Edit1.Text)));
end;
