У меня при выполнении программы всё зависает. Дайте если не сложно рабочий кусок кода с хуком на ЛМБ.
Цитата:
function MouseHook(Code, wParam, lParam: Integer): Integer; export; stdcall;
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowsHookEx(WH_MOUSE, MouseHook, 0, GetCurrentThreadID);
end;
|