Нажатие левой кнопки мышки

[sashaxD]

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

Нажатии где ?

Хоть где. Хоть на рабочем столе.

[Аватар]

http://programmersforum.ru/showthrea...A+%EC%FB%F8%FC

[volod3000]

Вот проект-пример разбирайтесь, делает то , что Вы хотели.

[eoln]

volod3000, неудачный пример с WH_JOURNALRECORD, он не даст результат во многих случаях и в "приличных" приложениях, к тому же, имеет свойство кончать жизнь самоубийством при определённых сочетаниях клавиш (ctrl+esc и т.п.). Перехват мыши в системе делается через хук на мышь (WH_MOUSE_LL + WM_LBUTTONUP/WM_LBUTTONDOWN). Хук располагают в dll, примерно так:

...
function GlobalMouseHook(Code, wParam, lParam : integer): LResult stdcall;
begin
    if code<0 then begin
       GlobalMouseHook:=CallNextHookEx(CurrentMHook,code,wParam,lparam);
       Exit;
    end;
    case wParam of
       $0202{WM_LBUTTONUP}: //тут остановить таймер
       $0201{WM_LBUTTONDOWN}: //тут запустить таймер
    end;
    CallNextHookEx(CurrentMHook, code, wParam, lParam);
    GlobalMouseHook:=0
end;

procedure Hook; export; stdcall;
begin
   CurrentMHook:=SetWindowsHookEx(14{WH_MOUSE_LL}, @GlobalMouseHook, HInstance, 0)
end;
...

В заглушках для таймера можно просто отсылать сообщение назад к приложению.
Вобщем поиск, поиск и ещё раз поиск... а потом милости просим со своими наработками

[sashaxD]

У меня тут без длл такая программка есть. Чтобы было понятнее что хочу, вот программа.

Тыц

[eoln]

В этой программе по таймеру происходит опрос мыши через GetAsyncKeyState. Особенно замечательно эта программа работает у левшей
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[sashaxD]

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

В этой программе по таймеру происходит опрос мыши через GetAsyncKeyState. Особенно замечательно эта программа работает у левшей
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

if GetKeyState($01) > 1 then timer1.Enabled := false else timer1.enabled := true;

В моей программе так. Следует просто заменить GetKeyState на GetAsyncKeyState ?

UPD заменил - не получилось.

[eoln]

if GetAsyncKeyState($01) = 0 then
    timer1.Enabled := false else timer1.enabled := true;

[sashaxD]

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

if GetAsyncKeyState($01) = 0 then
    timer1.Enabled := false else timer1.enabled := true;

Спасибо огромное ! Все работает

Тему офф