Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Перемещение курсора мыши

Автор: MacTep 26.6.2009, 11:20

Делаю так:

Код


procedure SetCursorPosition(x, y: integer);
var p: TPoint;
    wnd: HWND;
begin
  p.X := x;
  p.Y := y;

  wnd := GetForegroundWindow;

  ClientToScreen(wnd, P);

  p.X := Round(p.X * (65535 / Screen.Width));
  p.Y := Round(p.Y * (65535 / Screen.Height));

  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, p.X, p.Y, 0, 0);
end;

Но почему-то в одну и ту же точку при разных разрешениях не удается переместить курсор. Подскажите, плиз, что я делаю не так.

Автор: ne_tru_e 28.6.2009, 23:37

Так. Например тебе нужно точку поместить в центр? Тогда нужно процентные соотношения считать пожалуй. Откуда взялось это дикое число 65535 - мне не очень понятно. Я сейчас набросал консольную программку, она выдает черезчур большие значения.

Ну вот в псевдокоде например:

x = 100;
y = 200;

x = (x * (65535 / 800));
y = (y * (65535 / 600));

Получается

x = 8100
y = 21800

Мне кажется лучше консольную программку написать и проверить что она выдает, и тогда уже вставлять в проект.

Добавлено через 7 минут и 39 секунд
Т.е. для того чтобы тебе в ту же точку при другом разрешении перевести курсор - нужно знать исходное разрешение. Либо я не понял. Уточни.