Mausklick ausführen, ohne Mauszeigerbewegung.

[Aphton]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var P:TPoint;
    X, Y:integer;
begin
  X:=100;
  Y:=100;
  if GetCursorPos(P) then begin
    SetCursorPos(X, Y);
    Mouse_Event(MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0);
    Mouse_Event(MOUSEEVENTF_LEFTUP, X, Y, 0, 0);
    SetCursorPos(P.X, P.Y);
  end;
end;

Dies ist nur eine leicht abgeänderte Form der hier zuvor geposteten Routine.
Bei mir funktionierts!

MfG

[lowF]

Hi, wie wäre es hiermit (ungetestet!!)

Delphi-Quellcode:

var h : hwnd;
    p : TPoint;
    ClientPoint : TPoint;
    lparam : integer;
begin
  h := WindowFromPoint(p);
  ClientPoint.x := p.x;
  ClientPoint.y := p.y;
  ScreenToClient(h,ClientPoint);
  lparam := ClientPoint.X + ClientPoint.Y shl 16;
  Sendmessage(h,WM_LBUTTOMDOWN,0,lparam);  //Oder Sendmessage(h,WM_LBUTTOMDOWN,MK_LBUTTON,lparam);
  Sendmessage(h,WM_LBUTTUP,0,lparam);
end;

GGf. statt "sendmessage" "postmessage" verwenden.

g
lowF

[implementation]

@Lostriga:
Es ist schon eine unsaubere Methode, dass ganze über die Maus zumachen. Was auch immer du damit für ein Problem lösen willst - es gibt ganz sicher eine bessere Möglichkeit!