老大能不能也帮我以下呀？谢谢了！
function hookproc(icode:integer;wpadram:wparam;lparam:lparam):lresult;stdcall;
var
evtmsg:teventmsg;
begin
evtmsg:=peventmsg(lparam)^;
if evtmsg.message=WM_keyDOWN then
begin
if form1.IsKey(evtmsg.paramL)=true then //如果为true,则不打这个字,否则不做处理.
// form1.Label1.Caption:='不能碰那个键'
begin
result:=1;//不行呀！！！
end;
// else
// form1.Label1.Caption:='可以碰那个键';
end;
end;
