在复活节彩蛋中怎样屏蔽掉系统的声音？？？在线等。。。。 &nb

在复活节彩蛋中怎样屏蔽掉系统的声音？？？在线等。。。。 有源码！(50分)<br />在复活节彩蛋中怎样屏蔽掉系统的声音？？？在线等。。。。 有源码！

不知各位玩过delphi中的彩蛋吗？比如：在delphi的关于窗口中按下alt输入developers
现在我要实现这个功能，怎么我按住alt进行输入时系统总是会发出出错的声音，怎样屏
蔽这个声音？？

全部代码如下：

var lkey:string;

procedure TFSetNewIC.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssAlt in shift) and (key&lt;&gt;$12) then
begin
lkey:= lkey + char(key);
key:=0;
if lkey = 'INPUT' then
begin
//执行复活节彩蛋。
lkey:=''
end;
end;

你的复合键与系统热键冲突,
你的健值连续值最好用数组设置.

不是冲突的问题，不行你试试，只要按住alt输入任何键都会发出声音。
string本身也是数组呀！只不过未分配长度！
谢谢china_delphi,！！！

拦截键盘消息，就是自己处理keydown消息，并且不要把消息往下传

？？？我的程序不是写了吗！
key：＝＃0