请教：关于报警播放一个音频文件，要怎么实现呢？？？ ( 积分: 50 )

我写的一段程序来检测局域网内的ip是否能ping通，然后不能ping通的旧立即播放一段警告声 wav格式的
请问怎么写这段播放声音的代码呢？

我写的一段程序来检测局域网内的ip是否能ping通，然后不能ping通的旧立即播放一段警告声 wav格式的
请问怎么写这段播放声音的代码呢？

窗体上放置一个TIdIcmpClient控件，uses MMSystem单元

procedure TForm1.Button1Click(Sender: TObject);
begin

IdIcmpClient1.Host:='192.168.1.50';
IdIcmpClient1.ReceiveTimeout:=1000;
IdIcmpClient1.Ping;
end;


procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin

if AReplyStatus.BytesReceived<=0 then
PlaySound(Pchar('c:/test.wav'),0,SND_ASYNC);
end;

接受答案了.