多线程问题

Question

我创建了一个播放声音文件的线程，执行后只能播放一段，而不能循环播放，也不能停止其播放。如下：
  ......
function ThreadPlay(p:pointer):longint;stdcall;
function ThreadStop(p:pointer):longint;stdcall;
implementationfunction ThreadPlay(p:pointer):longint;stdcall;
begin
sndPlaySound ('s.wav',SND_LOOP or SND_SYNC);
end;function ThreadStop(p:pointer):longint;stdcall;
begin
sndPlaySound (nil,SND_LOOP or SND_SYNC);
end;//播放过程
procedure TForm1.btn_playClick(Sender: TObject);
var hThread:Thandle;
    ThreadID:DWord;
begin
    try
    hThread:=createthread(nil,0,@ThreadPlay,nil,0,ThreadID);
    except
    messagebox(handle,'error',nil,mb_ok);
    end;
end;//停止过程
procedure TForm1.btn_stopClick(Sender: TObject);
var hThread:Thandle;
    ThreadID:DWord;
begin
    try
    hThread:=createthread(nil,0,@ThreadStop,nil,0,ThreadID);
    except
    messagebox(handle,'error',nil,mb_ok);
    end;
end;
各位大哥，帮忙看看，什么地方错了？

Answer 1

1,要想循环播放，必须使用异步的方式；SND_LOOP
The sound plays repeatedly until sndPlaySound is called again with the lpszSoundName parameter set to NULL. You must also specify the SND_ASYNC flag to loop sounds.
2，播放完后就停止了啊，因为是同步的，我看停不了；