Подмена нажатия кнопок

[Kronos913]

Недавно скачал "X-Mouse Button Control"
И возник вопрос: а как самостоятельно сделать программу, которая бы перехватывала нажатие и подменяла его?

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

И чтобы пока зажата боковая - программа считала шифт нажатым.

[NetSpace]

глобальный хук на всю систему надо ставить. он отлавливает событие нажатия клавиши и заменяет его другим кодом. типа, нажимаешь пробел, а тебе ставит букву А.
------
где-то тут на форуме это было.
один из шагов - это скомпилировать библиотеку Hook.dll, чтоб потом его ставить и удалять из системы.

library HookKey;
//----- типы переменных и функции вытащил из модуля Windows.pas ----------------
type TKeyboardState=array[0..255]of Byte;
     TFNHookProc=function(code:Integer;wparam:LongInt;lparam:LongInt):LongInt;stdcall;
function CallNextHookEx(hhk:LongWord;nCode:Integer;wParam:LongInt;lParam:LongInt):LongInt;stdcall;external 'user32.dll' name 'CallNextHookEx';
function FindWindow(lpClassName,lpWindowName:PChar):LongWord;stdcall;external 'user32.dll' name 'FindWindowA';
function GetKeyboardState(var KeyState:TKeyboardState):LongBool;stdcall;external 'user32.dll' name 'GetKeyboardState';
function PostMessage(hWnd:LongWord;Msg:LongWord;wParam:LongInt;lParam:LongInt):LongBool;stdcall;external 'user32.dll' name 'PostMessageA';
function SetWindowsHookEx(idHook:Integer;lpfn:TFNHookProc;hmod:LongWord;dwThreadId:LongWord):LongWord;stdcall;external 'user32.dll' name 'SetWindowsHookExA';
function UnhookWindowsHookEx(hhk:LongWord):LongBool;stdcall;external 'user32.dll' name 'UnhookWindowsHookEx';

var HookHandle:LongWord=0;
    KeybrdState:TKeyboardState;
//----- в параметре WParam передаём код клавиши --------------------------------
function KeyHook(code,WParam,LParam:LongWord):LongWord;stdcall;
begin
   if(code=0)then
   begin
      GetKeyboardState(KeybrdState);
      PostMessage(FindWindow(nil,'EXFar'),$0400+1,WParam,0);
   end;
   Result:=CallNextHookEx(HookHandle,code,WParam,0);
end;

//----- ставим хук -------------------------------------------------------------
procedure SetKeyHook;stdcall;export;
begin
   if(HookHandle=0)then HookHandle:=SetWindowsHookEx(2,@KeyHook,hInstance,0);
end;

//----- удаляем хук ------------------------------------------------------------
procedure DelKeyHook;stdcall;export;
begin
   if(HookHandle<>0)then UnHookWindowsHookEx(HookHandle);
   HookHandle:=0;
end;

exports SetKeyHook,DelKeyHook;//экспортируем процедуры в другие программы

begin
end.

[NetSpace]

потом в своём модуле подключаешь этот DLL

implementation
procedure SetHook;stdCall;external'HookKey.dll';
procedure UnHook;stdCall;external'HookKey.dll';
{$R *.DFM}

[NetSpace]

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

procedure TForm1.FormCreate(Sender:TObject);
begin
   SetKeyHook;
end;

procedure TForm1.FormDestroy(Sender:TObject);
begin
   DelKeyHook;
end;

[NetSpace]

делал на основе этого хука файловый менеджер, по принципу двух окон, как FAR или TotalCommander, но за основу брал два окна проводника. что-то доделал, что-то не стал - переключился на другой проект, более важный на тот момент.
там можешь много чего удалить лишнего и из папки, и из самого кода. но он рабочий благодаря хуку.
TAB - переключение между окнами
F7 -создать папку
DEL - удалить объект.
и т.д. - надписи на кнопках расскажут.

[Kronos913]

А возможно ли добавить это не как еще один dll, а как часть программы?

Кстати, внешняя программа проблему полностью так и не решила. Всё равно проблема с боковой кнопкой есть

[NetSpace]

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

[Vapaamies]

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

А возможно ли добавить это не как еще один dll, а как часть программы?

Странно, что отвечающий выше не знает или забыл матчать. Из описания функции SetWindowsHookExA:

For a specified hook type, thread hooks are called first, then global hooks. Be aware that the WH_MOUSE, WH_KEYBOARD, WH_JOURNAL*, WH_SHELL, and low-level hooks can be called on the thread that installed the hook rather than the thread processing the hook. For these hooks, it is possible that both the 32-bit and 64-bit hooks will be called if a 32-bit hook is ahead of a 64-bit hook in the hook chain.

The global hooks are a shared resource, and installing one affects all applications in the same desktop as the calling thread. All global hook functions must be in libraries.

[NetSpace]

посмотрите мой первый комментарий там в коде DLL есть эта функция.
--------------
локальный хук отслеживает только те события, которые происходят только в одной программе (или потоке). глобальный хук отслеживает события во всей системе (во всех потоках). оба типа хуков устанавливаются одинаково, однако единственно отличие заключается в том, что локальная ловушка вызывается в пределах вашего приложения, в то время как глобальный хук необходимо хранить и вызывать из отдельной DLL.
------------
автору надо, чтоб работало не зависимо от того, какая форма активна -значит, надо делать глобальный хук. DLL+ своя программа отдельно, а не в одном проекте.
-----------
вот, чего ты такой вредный, Vapppmies?! это вообще за всю мою историю мучания Delphi единственная DLL, которую я делал аж 4 года назад - уже и забыл все тонкости. короче, я ему дал рабочий код, а нерабочий он сможет из него сделать сам, когда сделает всё в одном проекте.

[Vapaamies]

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

короче, я ему дал рабочий код

А я матчасть.