mouse_event(dwFlags,dx,dy,dwData,dwExtraInfo);
keybd_event(bVk,bScan,dwFlags,dwExtranfo);
这两个API函数是从C++那边看到的。在Delphi里怎么用?

解决方案 »

  1.   

    模拟鼠标右键
        mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
        mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);
    模拟键盘Ctrl+V
        keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
        keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
        keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
        keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP,0);