Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Симитировать WM_MOUSEMOVE

Автор: Леша 11.12.2004, 01:36

Без SetMousePos...

Автор: S.A.P. 11.12.2004, 01:41

PostMessage(hWnd, WM_MOUSEMOVE, NULL, NULL);

Тебе координаты надо задавать, или просто мессагу отправить?

Автор: Alex 11.12.2004, 03:01

Из MSDN:

Цитата

WM_MOUSEMOVE
The WM_MOUSEMOVE message is posted to a window when the cursor moves. If the mouse is not captured, the message is posted to the window that contains the cursor. Otherwise, the message is posted to the window that has captured the mouse.

A window receives this message through its WindowProc function.

LRESULT CALLBACK WindowProc(
HWND hwnd, // handle to window
UINT uMsg, // WM_MOUSEMOVE
WPARAM wParam, // key indicators
LPARAM lParam // horizontal and vertical position
);
Parameters
wParam
Indicates whether various virtual keys are down. This parameter can be one or more of the following values. Value Description
MK_CONTROL The CTRL key is down.
MK_LBUTTON The left mouse button is down.
MK_MBUTTON The middle mouse button is down.
MK_RBUTTON The right mouse button is down.
MK_SHIFT The SHIFT key is down.
MK_XBUTTON1 Windows 2000: The first X button is down.
MK_XBUTTON2 Windows 2000: The second X button is down.

lParam
The low-order word specifies the x-coordinate of the cursor. The coordinate is relative to the upper-left corner of the client area.
The high-order word specifies the y-coordinate of the cursor. The coordinate is relative to the upper-left corner of the client area.

Return Values
If an application processes this message, it should return zero.

Remarks
Use the following code to obtain the horizontal and vertical position:

xPos = GET_X_LPARAM(lParam);
yPos = GET_Y_LPARAM(lParam);
You can also use the MAKEPOINTS macro to convert the lParam parameter to a POINTS structure.

Автор: Леша 12.12.2004, 23:56

OK!
Добавлено @ 23:58
OK! Спасибо!

Переформулирую вопрос:
Мне надо не просто симитировать это сообщение, а непосредственно переместить курсор. Повторяю: БЕЗ SetMousePos!!!

Автор: S.A.P. 13.12.2004, 00:25

Скажи конкретно, чего тебе надо. Почему SetMousePos не устраивает?

Автор: Alex 13.12.2004, 11:48

Я знаю функцию SetCursorPos, а не SetMousePos.
Функция WinApi так, что нет ни какого смысла использовать сообщения т.к. для отправки сообщения тебе потребуется функция SendMessage или PostMessage, а они определены в модуле Windows, в котором определена и SetCursorPos.

Автор: Леша 14.12.2004, 15:58

SetCursorPos - согласен. Это своеобразная опечатка....

Я все прекрасно понимаю! Но ответте только можно ли это сделать именно отправкой сообщения? Нет так нет! А SetCursorPos не устраивает!!!

Автор: Yanis 18.12.2004, 21:31

Цитата

А SetCursorPos не устраивает!!!

IMHO бред

Автор: Леша 2.1.2005, 20:56

Нормальный такой подход... Сказано - не устраивает!!! Нужен вариант другой!!! Не в цикле менять позицию курсора, а именно двигать его с помощью передачи сообщения! Я же не прошу пример. Спрашиваю можно или нет?

Автор: Леша 2.1.2005, 21:07

ИМХО! Нету вариантов, лучше промолчать, чем просто постить вхолостую.

Автор: Alex 2.1.2005, 23:04

Код


Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, 10000, 10000, 0, 0);

Добавлено @ 23:10
Убедительная просьба объяснить, почему не подходит SetCursorPos. Можно в РМ.

Автор: Girder 5.1.2005, 13:17

Код

procedure TForm1.Button1Click(Sender: TObject);
var R:TRect;
    pR:PRect;
    i,y:Integer;
    j:Extended;
begin
 if DWord(GetClipCursor(R))<>0 then
  begin
   New(pR);
   j:=R.Bottom/R.Right;
   for i:=R.Left to R.Right do
    begin
     y:=R.Top+Trunc(j*i);
     pR^:=Rect(i,y,i,y);
     ClipCursor(pR);
     Sleep(10);
    end;
   pR^:=R;
   ClipCursor(pR);
   Dispose(pR);
  end;
end;

Цитата(Alex @ 2.1.2005, 23:04)

Убедительная просьба объяснить, почему не подходит SetCursorPos.

Имхо: денег хочет заработать на просмотре рекламы smile

, а для ентого надо мышкой двигать... smile

Удачи.