Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
8-12461
Rog
2003-11-01 08:11
2004.03.05
недостаточно ресурсов для обработки команды


1-12412
Ghost.
2004-02-22 17:39
2004.03.05
шрифты в Label


14-12500
Verg
2004-02-13 09:50
2004.03.05
Сегодня можно программировать?


14-12499
syte_ser78
2004-02-13 11:28
2004.03.05
недокачанный zip


7-12568
The Vizit0r!
2003-12-12 14:21
2004.03.05
Раскладка клавы