1 2 3 4 5 6 7 8 9
| SendMessage(Application.Mainform.handle,WM_KEYDOWN,VK_SPACE,Makelong(0,MapVirtualKey(VK_SPACE,
SendMessage(Application.Mainform.handle,WM_KEYUP,VK_SPACE,Makelong(0,MapVirtualKey(VK_SPACE,0)));
SendMessage(0, WM_MOUSEMOVE, 0, MAKELPARAM(468, 580));
SendMessage(Application.Mainform.handle, WM_MOUSEMOVE, 0, MAKELPARAM(468, 580));
mouse.cursorpos := point(mouse.cursorpos.x+5,mouse.cursorpos.y+5);
mouse.cursorpos := point(mouse.cursorpos.x-5,mouse.cursorpos.y-5);
SendMessage(0, WM_MOUSEMOVE, 0, MAKELPARAM(468, 580));
SendMessage(Application.Mainform.handle, WM_MOUSEMOVE, 0, MAKELPARAM(468, 580)); |
Partager