unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, MPlayer, StdCtrls;type  TForm1 = class(TForm)    MediaPlayer1: TMediaPlayer;    Button1: TButton;    Button2: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}uses MMSystem;//建立一个空白 Wave 文件的函数function CreateWav(chan, freq, bit: Word; const FilePath: string): Boolean;var  h: HMMIO;  ckiRiff, ckiFmt, ckiData: TMMCKInfo;  fmt: TPCMWaveFormat;begin  ZeroMemory(@ckiRiff, SizeOf(TMMCKInfo));  ckiRiff.cksize := 36;  ckiRiff.fccType := mmioStringToFOURCC('WAVE', 0);  ZeroMemory(@ckiFmt, SizeOf(TMMCKInfo));  ckiFmt.ckid := mmioStringToFOURCC('fmt', 0);  ZeroMemory(@ckiData, SizeOf(TMMCKInfo));  ckiData.ckid := mmioStringToFOURCC('data', 0);  fmt.wf.wFormatTag := WAVE_FORMAT_PCM;  fmt.wf.nChannels := chan;  fmt.wf.nSamplesPerSec := freq;  fmt.wf.nAvgBytesPerSec := freq * chan * bit div 8;  fmt.wf.nBlockAlign := chan * bit div 8;  fmt.wBitsPerSample := bit;  h := mmioOpen(PChar(FilePath), nil, MMIO_CREATE or MMIO_WRITE);  if h = 0 then Exit(False);  if (mmioCreateChunk(h, @ckiRiff, MMIO_CREATERIFF) = MMSYSERR_NOERROR) and    (mmioCreateChunk(h, @ckiFmt, 0) = MMSYSERR_NOERROR) and    (mmioWrite(h, PAnsiChar(@fmt), SizeOf(TPCMWaveFormat)) = SizeOf(TPCMWaveFormat)) and    (mmioAscend(h, @ckiFmt, 0) = MMSYSERR_NOERROR) and    (mmioCreateChunk(h, @ckiData, 0) = MMSYSERR_NOERROR) then Result := True;  mmioClose(h, 0);end;//文件路径const path = 'C:\Temp\Test.wav';//开始录音procedure TForm1.Button1Click(Sender: TObject);begin  CreateWav(2, 22050, 16, path);  MediaPlayer1.FileName := path;  MediaPlayer1.Open;  MediaPlayer1.StartRecording;  Button2.Enabled := True;end;//停止录音并播放procedure TForm1.Button2Click(Sender: TObject);begin  MediaPlayer1.Stop;  MediaPlayer1.Play;end;procedure TForm1.FormCreate(Sender: TObject);begin  MediaPlayer1.Visible := False;  Button2.Enabled := FileExists(path);end;end.