VPF::Перемещение курсора мыши - Форум программистов

MacTep

Дата 26.6.2009, 11:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Делаю так:

Код


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;

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

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

ne_tru_e

Дата 28.6.2009, 23:37 (ссылка)

(нет голосов)

Загрузка ...

Приношу жертвы MS

Профиль
Группа: Участник
Сообщений: 94
Регистрация: 20.1.2008

Репутация: нет
Всего: 4

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

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

x = 100;
y = 200;

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

Получается

x = 8100
y = 21800

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

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

Это сообщение отредактировал(а) ne_tru_e - 28.6.2009, 23:38

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »