function hookproc(ncode:smallint;wparam,lparam:integer):integer;
begin
result:=-1;
if ncode<0 then
result:=callnexthookex(hhk,ncode,wparam,lparam);
end;
屏蔽右键也简单,
function hookproc(ncode:smallint;wparam,lparam:integer):integer;
begin
if wparam=$0204 then//按了右键。
result:=-1
else
result:=0;
if ncode<0 then
result:=callnexthookex(hhk,ncode,wparam,lparam);
end;