1:
在uses中加入MMsystem 函數(shù).
2:
在implementation中增加
 var
   noHide: Boolean;
3:
在創(chuàng) 建 主 窗 體From1 的OnCreate 事 件 處 理 程 序，以 初 始 化noHide 變 量： 
  noHide:=True
4：
將Label1的OnMouseMove 事 件 處 理 程 序 寫為(begin 與end 之 間 的 語 句)： 
 if noHide then
	begin
          PlaySound('Sounds\Growl.wav',0,SND_ASYNC);
	  noHide:=False;
	end;
5:在 主 窗 體From1 的OnMouseMove 事 件 處 理 程 序，以 初 始 化noHide 變 量： 
  noHide:=True;


這個過程可以改動:

1:
在uses中加入MMsystem 函數(shù).
2:
在相應(yīng)事件中加入:
PlaySound('Sounds\Growl.wav',0,SND_ASYNC);