Как можно узнать что было изменениие -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.144.127.232]

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

Как можно узнать что было изменениие (Наприме сдвиг мыши или нажатие клавиши)

Как можно узнать что было изменениие , Наприме сдвиг мыши или нажатие клавиши

Rouse_

Сообщ. #1 , 29.09.05, 18:14

Moderator

Профиль · PM

Поощрения: 4 Dgm

Рейтинг (т): 320

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Memo1: TMemo;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var

MouseHook: HHOOK;

function LowLevelMouseProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;

begin

Result := CallNextHookEx(MouseHook, nCode, WParam, LParam);

case WParam of

WM_LBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась левой кнопкой.');

WM_LBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась левой кнопкой.');

WM_LBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась левой кнопкой.');

WM_RBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась правой кнопкой.');

WM_RBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась правой кнопкой.');

WM_RBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась правой кнопкой.');

WM_MBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась средней кнопкой.');

WM_MBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась средней кнопкой.');

WM_MBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась средней кнопкой.');

WM_MOUSEMOVE: Form1.Memo1.Lines.Add('Мыша побежала.');

WM_MOUSEWHEEL: Form1.Memo1.Lines.Add('Мыша тащиться.');

else

Form1.Memo1.Lines.Add('Мыша сошла с ума, купите новую мышу.');

end;

procedure TForm1.FormCreate(Sender: TObject);

const

WH_MOUSE_LL = 14;

begin

MouseHook := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, HInstance, 0);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

UnhookWindowsHookEx(MouseHook);

end;

end.

Тож самое и на клавиатуру, код хука - Цыфира 13

Соответственно принимайте уже мессаги от клавиатуры...
Только начиная с Win 2000

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0159 ] [ 16 queries used ] [ Generated: 27.04.24, 19:44 GMT ]