| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Hook на Клавиши Win и Ctrl+ESc [D6, WinXP]
MaximCHR © (2003-12-07 11:06:00)
Нашёл,я тут примерчик похожего хука который мне нужен а путевое
ничего сделать не могу,если сможите помогите пожалуйста
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.
Cash (2003-12-16 22:17:00) [1]
MaximCHRу тебя в мыльнице долже лежать мой пример.
DVM (2003-12-08 18:25:00) [2]
В XP Ctrl+Esc можно отключить либо убив эксплорер либо Low-Level хуком клавиатуры.
Delphi5.01 (2003-12-07 13:43:00) [3]Uje est otvet!
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1070701626&n=2
Jelau udachi
| |
