SendInput

[penpen]

Hey.
I'm wanting to use SendInput with lazarus and found it in the windows.h (redef.inc).
It was commented so I uncommented It.

To use it you need a variable of type TInput though.

But I cant find the definition for this type. Where is the Tinput var declared ? and how does that look ?

Hope you can help me D:

[User137]

What do you need TInput for? There is already a component MouseAndKeyInput in Lazarus, without having to go modify source code, and crossplatform way...

[penpen]

I'm wanting to send Clicks without moving the mouse.

And I tried about everything but the window that is to receive the clicks only accepts the clicks when the mouse is over the target. So I've red about SendInput and thought I'd give it a shot.

[howardpc]

You would do better to post your code so others can see how you "send clicks" and comment on it.
Calling Form1.Click in code works as expected here, whether the mouse cursor happens to be above Form1 or not.

[penpen]

Okay here are my tries:
        v:= MakeLParam(127,116); 
         SendMessage(pokerhwnd, WM_RBUTTONDOWN, MK_RBUTTON, v);
         SendMessage(pokerhwnd, WM_RBUTTONUP,MK_RBUTTON, v);         

         POSTMessage(pokerhwnd, WM_RBUTTONDOWN, MK_RBUTTON, v);
         POSTMessage(pokerhwnd, WM_RBUTTONUP,MK_RBUTTON, v);     

   mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

All the above functions work in windows like Firefox, but only mouse_event works in the window I'm targeting... But... I dont want it to really move the mouse, just send the clicks.

[User137]

Well, like i said the MouseAndKeyInput above can do things like that. There are for example procedures:

Code: [Select]

procedure Click(Button: TMouseButton; Shift: TShiftState); // This seems like what you need
procedure Click(Button: TMouseButton; Shift: TShiftState; ScreenX, ScreenY: Integer);

[penpen]

I dont want to move the mouse cursor though.

[Leledumbo]

I dont want to move the mouse cursor though.

The first click method does NOT move the cursor, did you even read User137 answer?

[penpen]

I Tried that function and it did move the mouse to the target location.

[Leledumbo]

I Tried that function and it did move the mouse to the target location.

Show us your code, because the source code (winmouseinput.pas) doesn't say so according to MSDN.

[penpen]

hmmn..

  MouseInput.Click(mbLeft, [], 2078, 698);     

[Leledumbo]

MouseInput.Click(mbLeft, [], 2078, 698);

As expected, you're executing the second method, not the first one. Make the main window on focus, get the mouse cursor out of there, and use the first method (without ScreenX and ScreenY parameters).

[taazz]

hmmn..

  MouseInput.Click(mbLeft, [], 2078, 698);     

Code: [Select]

Var
  TempPos:Tpoint;
Begin
  TempPos := Mouse.CursorPos;
  MouseInput.Click(mbLeft, [], 2078, 698);     
  MouseInput.Move([],TempPos.X,TempPos.Y);
end;

That's simple enough?

[penpen]

This probably wont work on windows in background though.

[penpen]

I'm wanting to get back to this again, since its still not solved 

So what can we try to send clicks on a background Window when SendMessage and PostMessage doesnt work ?