大家帮忙锁定键盘和鼠标的问题————在线等待！！！？？？？

大家好：
       请问怎么样锁定键盘和鼠标，又怎么样恢复啊？？？
       我在网上找了些列子和代码，有的出错有的不知道怎么用啊！！
       请大家帮忙！！！？？？？？
       procedure TForm1.Lockkey(lock: boolean);
       begin
         if lock = true then
            begin
              asm    //封锁20端口 锁定键盘 98&95
               IN AL,21H
               OR AL,02H
               OUT 21H,AL
              end;
            end
         else
            begin
              asm     //解锁20端口 解锁键盘
               IN AL,21H
               AND AL,0FDH
               OUT 21H,AL
              end;
            end;
       end;
 
这段代码运行后是有错的？？？请问怎么改正啊？？？
锁定鼠标和键盘    
var KHK: HHook;
tmp: integer;
function HookProc(ICode: integer;WP:WParam;LP:LParam):LResult;
begin
Result:=CallNextHookEx(KHK,0,0,0);
end;
使用下列语句开始锁定：
KHK:=SetWindowsHookex(WH_JOURNALPLAYBACK,@HookProc,HInstance,0);
使用下列语句结束锁定：
UnHookWindowsHookEx(KHK);
这时候不能屏蔽Windows的系统键Ctrl-Alt-Tab,Ctrl-Esc,Alt-Tab等
你就可以使用：
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @tmp, 0);//锁起来
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @tmp, 0);//打开吧
这个方法我不会用啊！！！请问怎么用啊？在什么地方写这些代码啊？请高手们
指教指教！！！？？？