得到窗口并发送消息

作者在 2010-03-07 21:14:37 发布以下内容
var
 wh:hwnd;
begin
     wh:=findWindow(nil,'追影虚拟多桌面');
    //把记事本窗口激活
    SetForegroundWindow(wh);  //设置当前窗口为活动窗口
    
   keybd_event(VK_CONTROL,0,KEYEVENTF_EXTENDEDKEY     or     0,0);
    keybd_event(76,0,KEYEVENTF_EXTENDEDKEY     or     0,0);
    sleep(1000);
    keybd_event(76,0,KEYEVENTF_EXTENDEDKEY     or     KEYEVENTF_KEYUP,0);
    keybd_event(VK_CONTROL,0,KEYEVENTF_EXTENDEDKEY     or     KEYEVENTF_KEYUP,0);
   //发送消息ctrl +L的组合键
end;
编程点滴 | 阅读 322196 次
文章评论,共0条
游客请输入验证码
浏览2342010次