S
shadowno
Unregistered / Unconfirmed
GUEST, unregistred user!
在复活节彩蛋中怎样屏蔽掉系统的声音???在线等。。。。 有源码!(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<>$12) then
begin
lkey:= lkey + char(key);
key:=0;
if lkey = 'INPUT' then
begin
//执行复活节彩蛋。
lkey:=''
end;
end;
不知各位玩过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<>$12) then
begin
lkey:= lkey + char(key);
key:=0;
if lkey = 'INPUT' then
begin
//执行复活节彩蛋。
lkey:=''
end;
end;