Форум: "Система";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Внизmouse Найти похожие ветки
← →
ed (2003-01-09 13:26) [0]Мастера бросте, если можете, пример как узнать пробег мыши за текущий сеанс работы компьютера.
← →
Игорь Шевченко (2003-01-09 13:35) [1]Скачать в инете программу MouseOdometer
← →
Axis_of_Evil (2003-01-09 13:41) [2]ловить WM_MouseMove
и считать
Path := Path + Sqrt(
(Mouse.CursorPos.X - OldX)^2 +
(Mouse.CursorPos.Y - OldY)^2
);
OldX := Mouse.CursorPos.X;
OldY := Mouse.CursorPos.Y;
или по таймеру
← →
ed (2003-01-09 16:31) [3]Axis_of_Evil, спасибо. Но я пока только учусь программировать, причём я самоучка. Если можно расширирь свой ответ.
Поподробнее пожалуйсто. С уважением. Эд.
← →
Axis_of_Evil (2003-01-09 16:45) [4]Самоучка ... я тоже.
Делаешь в программе TTimer (компонент), его Interval := где-то 1;
Глобальные переменные:
OldX, OldY: Integer;
Path: Cardinal; // обнули в начале
procedure TForm1.Timer1Timer(Sender: TObject);
//короче процедура таймера
begin
Path := Path + Sqrt(Sqr((Mouse.CursorPos.X - OldX)) +
Sqr((Mouse.CursorPos.Y - OldY)) );
OldX := Mouse.CursorPos.X;
OldY := Mouse.CursorPos.Y;
end;
Чего пояснить?
← →
ed (2003-01-09 17:14) [5]Axis_of_Evil, спасибо!!!
← →
Ketmar (2003-01-09 18:09) [6]вообще-то хук писать надо.
а TTimer.Interval, кстати, делай-не делай, а меньше 50ms фиг будет. да и тормозит оно.
Satanas Nobiscum! 09-Jan-XXXVIII A.S.
← →
Diamond Cat (2003-01-10 00:59) [7]Могу выслать пример с использованием перехвата сообщений от мыши,
пользоваться таймером не советую, Ketmar прав
Diamond_cat@newmail.ru
← →
ed (2003-01-10 13:22) [8]Diamond Cat, Если можете вышлите пожалуйсто пример на nokk9@mail.ru.
С уважением. Эд.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c