各位大俠,進來看看.類似qq的聊天室,有點小題(100分)

我做了一個局域網的聊天軟件,不過有問小問題,還請各位大俠幫忙.......
問題: 可以接收對話,不過當接收到訊息時,沒有聲音;而且當最小化時,收到訊息時也不能彈出窗,怎麼回事?
下面的代碼是發送及接收的代碼:
procedure TForm1.Button2Click(Sender: TObject);
begin
if memo2.Lines.text<>'' then
begin
memo1.Lines.add(edit2.Text+#13+Statusbar1.Panels[1].Text+#13+'說:'+#13+memo2.Lines.text);
SndPlaySound(pchar(ExtractFilePath(Application.ExeName)+'sound/msg.wav'),SND_FILENAME or SND_SYNC or snd_async);
form1.show;
if IsServer then
begin
ServerSocket1.Socket.Connections[0].SendText(edit2.Text+#13+'說:'+#13+memo2.Lines.text);
SndPlaySound(pchar(ExtractFilePath(Application.ExeName)+'sound/msg.wav'),SND_FILENAME or SND_SYNC or snd_async);
form1.show;
end
else
ClientSocket1.Socket.SendText(edit2.Text+#13+'說:'+#13+memo2.Lines.text);
SndPlaySound(pchar(ExtractFilePath(Application.ExeName)+'sound/msg.wav'),SND_FILENAME or SND_SYNC or snd_async);
form1.show;
end;
memo2.Lines.text:='';
memo2.SetFocus;
end;

怎麼都沒人回答呀......[]

else
begin //加
ClientSocket1.Socket.SendText(edit2.Text+#13+'說:'+#13+memo2.Lines.text);
SndPlaySound(pchar(ExtractFilePath(Application.ExeName)+'sound/msg.wav'),SND_FILENAME or SND_SYNC or snd_async);
form1.show;
end; //加
添加MMSystem单元
把form1.show 改为form1.windowstate:=wsnormal;


给分吧！ ：）

TO:mr.hl
你的方法我早試過了,一樣的結果.(謝謝你的回復)
請各位大俠,繼續關注....[]

错了，呵呵

这位兄弟好像曾经在qq中问过我这个问题吧，呵呵

多人接受答案了。