如何屏蔽 除了a键和鼠标右键 其他所有键呢,如何屏蔽个别按键,谢谢

[gamaster]

up

[火鸟李国平]

Mouse Hook 或keyboard Hook

[火鸟李国平]

具体到API就是SetWindowsHookEx和UnhookWindowsHookEx

[火鸟李国平]

给你一个KeyBoard hook的Delphi例子:
//keyhook
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
Function KeyHook(iCode: Integer; wParam: Longint; var Msg: TMsg): Longint; stdcall;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

Function KeyHook(iCode: Integer; wParam: Longint; var Msg: TMsg): Longint; stdcall;
begin
messagebox(0,pchar(inttostr(icode)),pchar(inttostr(wParam)),mb_ok);
Keyhook:=1;//为1时应收窗口将收不到键盘消息
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
tag:=SetWindowsHookEx(WH_KEYBOARD, @Keyhook, hInstance, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(tag);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;

end.

[zhangchao_7622]

可以试一试楼上的。

[blueshu]

if not (key= #..) then key := #0;

[blueshu]

keydown事件中加入

[qrlvls]

设置Hook