var AHandle : THandle; begin AHandle := Application.Handle; SendMessage(AHandle, WM_MouseMove, 0, LOWORD(752) HIWORD(528)); end; ↑↑↑↑↑↑↑滑鼠不會動到我指定的地方↑↑↑↑↑↑請問我有用錯? 還有我找了一個ＨＯＯＫ範例～～請問我要如何～讓他透過攔截到ＮＵＭ ＬＯＣＫ鍵的時候～ 將上面的訊息送到我指定的程式～～下面的ＨＯＯＫ程式請會的人幫我組合看看～～我稿的快啪了～～ var hhook:Integer; function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; var msg:TEventMsg; begin Result:=0; if iCode < 0 then Result := CallNextHookEx(hHook,iCode,wParam,lParam) else if icode=HC_ACTION then begin msg:=pEventMSG(lParam)^; if msg.message=WM_LBUTTONDOWN then begin form1.Memo1.Lines.add(inttostr(msg.hwnd) '':'' inttostr(msg.paramL) ''-'' inttostr(msg.paramH)); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin hHook:=SetwindowsHookEx(WH_JOURNALRECORD,hookProc,HInstance,0); end; procedure TForm1.Button2Click(Sender: TObject); begin UnHookWindowsHookEx(hHook); hHook:=0; end; procedure TForm1.FormDestroy(Sender: TObject); begin if hHook <> 0 then begin UnHookWindowsHookEx(hHook); hHook:=0; end; end;

引言:

var
  AHandle : THandle;
begin
  AHandle := Application.Handle;
  SendMessage(AHandle, WM_MouseMove, 0, LOWORD(752) HIWORD(528));
end;

改用這個 Mouse_Event(MOUSEEVENTF_ABSOLUTE MOUSEEVENTF_MOVE, dX, dY, 0, 0);

引言:

引言:

var
  AHandle : THandle;
begin
  AHandle := Application.Handle;
  SendMessage(AHandle, WM_MouseMove, 0, LOWORD(752) HIWORD(528));
end;

改用這個 Mouse_Event(MOUSEEVENTF_ABSOLUTE MOUSEEVENTF_MOVE, dX, dY, 0, 0);

我想使用快速鍵啟動這程式~~用那行? 我要在一個全螢幕的視窗下~讓我的程式背景執行~~好像有所謂的焦點問題??

引言: Mouse_Event(MOUSEEVENTF_ABSOLUTE MOUSEEVENTF_MOVE, dX, dY, 0, 0);

這是讓你的滑鼠游標移到你指定的位置

Mouse_Event 直接模擬滑鼠動作!
SendMessage 傳送訊息到指定的視窗(背景使用)    var
  Pos:TSmallPoint;
begin
  Pos.x:=Trunc(Random*Width);
  Pos.y:=Trunc(Random*Height);
  SendMessage(Handle,WM_MOUSEMOVE,0,Integer(Pos));
  //SendMessage 可改用PostMessage or PostThreadMessage 或其他代替..
  //至於詳細說明請參閱Help
  //註：他是送出一個WM_MOUSEMOVE訊息給Handle，並不是移動滑鼠到指定位置!
end;      if(Msg.Message = WM_KEYDOWN)and(Byte(Msg.paramL)=VK_NUMLOCK)then ...

發表人 - jest0024 於 2005/03/25 03:12:57

上面各位大大~~我感謝一個先~~~ 我測試之後~~我發覺~~滑鼠在遊戲中完全沒反應~~ 我甚至在開遊戲前就先讓滑鼠在那邊跑了~~ 但是一進遊戲後~~滑鼠就沒反應了~~這是為什麼~~?? 因為是DX遊戲的關西? 這要怎解決~~要用什麼函數~~或者哪裡有範例可查~~

如果使用 SendMessage Hanldle 應為遊戲或對象的 Window Handle 可以利用 FindWindow 找到. 否則 Mouse_Event 就沒這各問題. 另外 本身自己程式執行時,焦點會在自身視窗上. 因此也要將焦點轉移至遊戲視窗 如果您要寫外掛的話? HOOk 一般用來接管訊息 跟您的需求不是很.....