Hook на Клавиши Win и Ctrl+ESc

← →
MaximCHR (2003-12-07 11:06) [0]

Нашёл,я тут примерчик похожего хука который мне нужен а путевое
ничего сделать не могу,если сможите помогите пожалуйста
library MyHook;

uses
Windows, Messages;
var
SysHook :HHook=0;
Wnd :Hwnd=0;

function SusMsgProc(code:integer;wParam:word;lparam:Longint):longint;stdcall;
begin
CallNextHookEx(SysHook,Code, wParam, lparam);
if code=HC_ACTION then
begin
Wnd:=TMsg(Pointer(lParam)^).hwnd;
if Tmsg(pointer(lParam)^).message = //сюда нужно вставить Esc,у меня ругаеться на VC_Esc
then
if ((Tmsg(Pointer(lParam)^).wParam and MK_Control) then
begin
//здесь нужно выключить эти клавишы,я не знаю как
end;
end;
end;

procedure RunStopHook(State:Boolean) export; stdcall;
begin
if State=true then
begin
SysHook:=SetWindowsHookEx(WH_GETMESSAGE,@SysMsgProc, HInstance, 0);
end
else
begin UnHookWindowsHookEx(SysHook):
SysHook:=0;
end;
end;
exports
RunStopHook index 1;
begin
end.

← →
Delphi5.01 © (2003-12-07 13:43) [1]

Uje est otvet!
http://delphimaster.net/view/7-1070701626/
Jelau udachi

← →
DVM © (2003-12-08 18:25) [2]

В XP Ctrl+Esc можно отключить либо убив эксплорер либо Low-Level хуком клавиатуры.

MaximCHR у тебя в мыльнице долже лежать мой пример.

Hook на Клавиши Win и Ctrl+ESc Найти похожие ветки