没有合适的资源?快使用搜索试试~ 我知道了~
delphi 禁用win、alt_tab等其他组合键
4星 · 超过85%的资源 需积分: 50 97 下载量 108 浏览量
2013-08-28
11:21:33
上传
评论
收藏 2KB TXT 举报
温馨提示
试读
3页
在网上找到一个可以禁用win键的代码,但是不能禁用组合键,又找了几个代码,实现除win键处,其他alt_tab,ctrl_esc等组合键禁用
资源推荐
资源详情
资源评论
//***********************头部定义变量
var
WM_Sock :Integer;//禁用键用到变量
hHandle :HWND;//禁用键用到变量
const
LLKHF_ALTDOWN = $20;//屏蔽热键用
//************************定义函数
//禁用左右win,ALT_TAB等组合键
function LowLevelKeyboardProc(vNode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
type
KbDllHookStruct = record
vkCode:DWord;
ScanCode:DWord;
Flags:DWord;
Time:DWord;
dwExtraInfo:DWord;
end;
var
P:^KbDllHookStruct;
fEatKeystroke : boolean;
begin
Result := 0;
P := Pointer(LPARAM);
if vNode = HC_ACTION then
begin
case wParam of
WM_KEYDOWN,WM_SYSKEYDOWN,WM_KEYUP,WM_SYSKEYUP:
var
WM_Sock :Integer;//禁用键用到变量
hHandle :HWND;//禁用键用到变量
const
LLKHF_ALTDOWN = $20;//屏蔽热键用
//************************定义函数
//禁用左右win,ALT_TAB等组合键
function LowLevelKeyboardProc(vNode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
type
KbDllHookStruct = record
vkCode:DWord;
ScanCode:DWord;
Flags:DWord;
Time:DWord;
dwExtraInfo:DWord;
end;
var
P:^KbDllHookStruct;
fEatKeystroke : boolean;
begin
Result := 0;
P := Pointer(LPARAM);
if vNode = HC_ACTION then
begin
case wParam of
WM_KEYDOWN,WM_SYSKEYDOWN,WM_KEYUP,WM_SYSKEYUP:
dtl_cat
- 粉丝: 0
- 资源: 4
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
- 1
- 2
前往页