Форум: "Система";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Вниз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 хуком клавиатуры.
← →
Cash (2003-12-16 22:17) [3]MaximCHR у тебя в мыльнице долже лежать мой пример.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c