delphi的键盘和鼠标钩子

键盘和鼠标钩子 procedure TForm1.BitBtn1Click(Sender: TObject); begin InstallKeyboardHook(nil); end; procedure TForm1.BitBtn2Click(Sender: TObject); begin InstallMouseHook(nil); end; end.