Mausklick ausführen, ohne Mauszeigerbewegung.

[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