如题,谢谢!

解决方案 »

  1.   

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    edit1.Setfocus;
    keybd_event(110,0,KEYEVENTF_EXTENDEDKEY or 0,0);
    keybd_event(110,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
    end;
      

  2.   

    SendMessage(另一个要感觉的程序的handle,WM_KEYDOWN,110,0);
      

  3.   

    To: 楼上
        不行,我用了
        SendMessage(另一个要感觉的程序的handle,WM_KEYDOWN,13,0);
        SendMessage(另一个要感觉的程序的handle,WM_KEYUP,13,0);
        而另一个程序在我按下Enter时那个窗口会自动关闭的,面我用向该窗口发送上面的消息之后那个窗口却没有消失.
      

  4.   

    keybd_event(190,0,KEYEVENTF_EXTENDEDKEY,0); keybd_event(190,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);