Программа для исчисления количества кликов мышкой

[Delphi_ProGer]

Привет, форумчане! Мне пришла идея сделать программу для исчисления количества кликов мышкой за день, время работы за компьютером и т.д.
Вопрос: как определить клики мышкой, запустить программу в Tray, поставить программу в автозапуск? Если не трудно, то подскажите.

[Ghost of Night]

запустить программу в Tray

Для этого есть много компонентов, все их можно найти в гугле!

поставить программу в автозапуск

Для этого пропиши её в реестре, по этому адресу

HKLM\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run

А чтобы

определить клики мышкой

Поставь таймер с интервалом 100 мс

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if GetAsyncKeyState(vk_LButton)<>0 then Form1.Caption:=Form1.Caption+'1';
end;

Это для левой, а для правой кнопки vk_RButton

[Delphi_ProGer]

Подскажите пожалуйста как измерить растояние, которая мышь "прошла" на мониторе за определенное время? Для этого нужно сравнивать пиксели или есть какието события?

[Ghost of Night]

Пиксели тут не причем, обрабатывать нужно координаты мыши (Х и У) за короткие промежутки времени. Алгоритм похож на алгоритм от "Спидометра для мыши"

[Delphi_ProGer]

Можете подробней?
можете дать кусок кода? please

как достать координаты мыши (Х и У) вне программы?

[DomiNick]

GetCursorPos
Яндекс вам ответил бы моментально... =\\

измерить растояние, которая мышь "прошла" на мониторе за определенное время?

Складывать расстояния от предыдущей позиции курсора до новой при каждом передвижении?

Для этого нужно сравнивать пиксели или есть какието события?

Эм... Какие ещё пиксели? о__О

[Ghost of Night]

var
  Form1: TForm1;
  x_pos,y_pos:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
  foo: TPoint;
begin
  GetCursorPos(foo);
  x_pos:=x_pos + foo.X;
  y_pos:=y_pos + foo.y;
  Label1.Caption:='(' + IntToStr(x_pos) + ' ,' + IntToStr(y_pos) + ')';
end;

Интервал таймера 100.
Примерно так

[Fog]

Насчет компонента Delphi для трея:
используй TTrayIcon он есть во всех версиях Delphi в палитре компонентов.
Создаеш при помощи него иконку в области трея. Далее делаеш
Form1.Hide; //или ипспользуй ShowWindow();
Для автозапуска:
Используй класс TRegistry (uses Registry)
Создаем строковой параметр в реестре по адресу:
H_KEY_LOCAL_MACHINE\Software\Micros oft\Windows\CurentVersion\Run
Пишем туда адрес своего екзешника.
Для крысы даю API функции():
GetCursorPos(); // Берем позицию курсора
SetCursorPos(); //Задаваем позицию
GetWindowFromPoint() //над каким окном курсор
Далее уже дело техники... обмозгуеш напишеш

PS. Не пиши большими красными буквами когда вопрос задаеш. Нагло.

[Delphi_ProGer]

PS. Не пиши большими красными буквами когда вопрос задаеш. Нагло.

новичок еще , не знал


P.S. спасибо всем за помочь!

[Ghost of Night]

Сообщение от Fog

Насчет компонента Delphi для трея:
используй TTrayIcon он есть во всех версиях Delphi в палитре компонентов.

Не во всех, у меня в 7-ой нету такого.