, 贴上来算了(测试过的）<br>uses Mmsystem;<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> i: Integer;<br> hwo: HWAVEOUT;<br> wfx: TWAVEFORMATEX;<br> woh: TWAVEHDR;<br> WaveBuffer: Array[0..2047] of Byte;<br>begin<br> for i := 0 to 1203 do<br> WaveBuffer := Round(128+32*Sin(i));<br> wfx.nChannels := 1;<br> wfx.wBitsPerSample := 8;<br> wfx.nSamplesPerSec := 11025;<br> wfx.wFormatTag := WAVE_FORMAT_PCM;<br> waveOutOpen(@hwo,0,@wfx,Handle,0,CALLBACK_WINDOW);<br> with woh do<br> begin<br> lpData := @WaveBuffer[0];<br> dwBufferLength := 1024;<br> dwBytesRecorded := 0;<br> dwUser := 0;<br> dwFlags := 0;<br> dwLoops := 0;<br> lpNext := nil;<br> reserved := 0;<br> end;<br> waveOutPrepareHeader(hwo,@woh,SizeOf(TWAVEHDR));<br> waveOutWrite(hwo, @woh, sizeof(TWAVEHDR));<br> waveOutUnprepareHeader(hwo,@woh,sizeof(TWAVEHDR));<br> waveOutClose(hwo);<br>end;