Тогда забил на это, но теперь снова вылезла задача, где двигать мышку просто не вориант. Вот даже тестовый вариант на осеове кода выше, который, в итоге кликает в томесто, где находиться мышка
Код:
procedure TForm1.Clicking(x,y:Integer);
var
aPT:TPoint;
begin
aPT.X:=x;
aPT.Y:=y;
//apt := ClientToScreen(apt);
apt.X := Round(apt.X * (65535 / Screen.Width));
apt.Y := Round(apt.Y * (65535 / Screen.Height));
ShowMessage('x= '+inttostr(apt.X)+'y= '+inttostr(aPT.Y));
Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, apt.X, apt.Y, 0, 0 );
Sleep(500);
Mouse_Event( MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP, apt.X, apt.Y, 0, 0 );
end;
Clicking(1077,577)
apt на выходе содержит 36761,33799.
В чем собственно проблема?
если раскрыть
Код:
//apt := ClientToScreen(apt);
, то арт меняется, но кликает всеравно в томесто, где мышь.