VPF::Перехват нажатия кнопки и подмена значения

Keeper89

Дата 23.7.2009, 01:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Конкретно помочь - это весь код написать?
niteo, в принципе расписал последовательность действий, осталось только поискать примеры.
З.Ы. Кстати с каким приложением идет работа если не секрет?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

niteo

Дата 23.7.2009, 07:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 23.11.2006
Где: Брянск

Репутация: нет
Всего: 1

Чуть грубовато, но.. это глобальный хук на мышку и клаву.
По событию, делаешь WindowFromPoint и юзаешь..

Код


function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
  msg: PEVENTMSG;
begin
  if Code >= 0 then begin
     result := 0;
     msg := Pointer(LParam);
     with Form1 do
       case msg.message of
         WM_MOUSEMOVE: ;// Двигаем мышой msg.ParamL - это Х msg.ParamH - Это У
         WM_LBUTTONDOWN: ;// Нажали ЛКМ
         WM_LBUTTONUP:   ; // Отпустили ЛКМ
         WM_RBUTTONDOWN: ; // Нажали ПКМ
         WM_RBUTTONUP:   ; // Отпустили ПКМ
         WM_KEYUP:       ;// Отпустили кнопочку
         WM_KEYDOWN:   ;// Нажали кнопочку
       end;
  end else
     result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
  if HookHandle = 0 then
    MessageDlg(IntToStr(GetLastError), mtInformation, [mbOK], 0);
end;

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

Код


library MegaHook;
uses
  Windows, Messages;
var
  SysHook: HHook = 0;

function SysMsgProc(Code: Integer; WParam: LongInt; LParam: LongInt): LongInt; stdcall;
begin
  if Code > 0 then
  begin
    ...
  end
  else
    Result := CallNextHookEx(SysHook, Code, WParam, LParam);
end;

procedure Hook(Flag: Boolean); export; stdcall;
begin
  if Flag then
    SysHook := SetWindowsHookEx(WH_GETMESSAGE, @SysMsgProc, HInstance, 0)
  else
    begin
      UnhookWindowsHookEx(SysHook);
      SysHook:=0;
    end;
end;

exports Hook;

begin
end.

И программа которая юзает dll-ку с хуком

Код



procedure TForm1.Button1Click(Sender: TObject);
var
  Hook: MyProcType;
begin
  HDLL := LoadLibrary(PChar('MegaHook.dll'));
  if HDLL > HINSTANCE_ERROR then
  begin
    @Hook := GetProcAddress(HDLL, 'Hook');
    Hook(True);
  end
  else
    MessageDlg('плохо с DLL.', mtError, [mbIgnore], 0);
end;

procedure TForm1.Button2Click(Sender: TObject);

var
  Hook: MyProcType;
begin
  if HDLL > HINSTANCE_ERROR then
  begin
    @Hook := GetProcAddress(HDLL, 'Hook');
    Hook(False);
  end;
End;

--------------------

Мне чужого лишнего не нада.Ешь ананасы, рябчиков жуй,день твой последний приходит, буржуй...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »