[nikkilla]

Здраствуйте ув. Форумчяне) У меня такая проблема. Для моей программы нужна проверка на глобальное нажатие левой кнопки мыши. Именно глобальная, так как программа должна работать даже свернутой.

[angvelem]

Смотри в сторону хуков:

Код:

function MouseHook(Code, wParam, lParam: Integer): Integer; export; stdcall;
begin
  Result := 0;

  Msg := PMouseHookStruct(lParam);
  if (Code >= 0) and ... then
  begin
    // что-то делаем
  end
  else
    Result := CallNextHookEx(hMouseHook, Code, wParam, lParam);
end;
...
  SetWindowsHookEx(WH_MOUSE, MouseHook, 0, GetCurrentThreadID);

[nikkilla]

Возможно я дно, но я не особо понял что к чему, да и код не работает(

Не мог бы ты обяснить что делают эти комманды:

SetWindowsHookEx(WH_MOUSE, MouseHook, 0, GetCurrentThreadID);

Result := CallNextHookEx(hMouseHook, Code, wParam, lParam);

и что такое Code, hMouseHook, lParam.

[angvelem]

Конечно не работает , это только направление куда смотреть, а не полный код.

Код:

hMouseHook := SetWindowsHookEx(WH_MOUSE, MouseHook, 0, GetCurrentThreadID);

устанавливает хук на мышь с указанием функции MouseHook, которая будет заниматься обработкой

Код:

Result := CallNextHookEx(hMouseHook, Code, wParam, lParam);

вызвать обработчик по-умолчанию, если программа не обработала нажатия мыши.
Code и lParam - передаются в функцию системой.

[Pyro]

PHP код:

function isDown(vKey: Integer) : Boolean;
begin
  Result := GetAsyncKeyState(vKey) <> 0;
end; 


1 - левая кнопка
делать надо по таймеру; хуки надёжнее

[nikkilla]

спс пойду пробовать

[nikkilla]

У меня при выполнении программы всё зависает. Дайте если не сложно рабочий кусок кода с хуком на ЛМБ.

function MouseHook(Code, wParam, lParam: Integer): Integer; export; stdcall;
begin




end;



procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowsHookEx(WH_MOUSE, MouseHook, 0, GetCurrentThreadID);
end;

[nikkilla]

Всё, всем большое спасибо. Уже разобрался

[angvelem]

Смотри аттач. Давай готовый пример смысла нет, вставишь в программу и забудешь, а так узнаешь много нового.
использование хуков
Опоздал.