ضبط صدا

[_abiriamir]

با سلام
من قبلا کد زیر را راجع به ضبط صدا با دلفی از بچه های همین سایت گرفتم
وقتی با این ضبط میکنم یا با کامپوننت KDTele صدای یک نفر رو ضبط میکنم دیگه ویندوز مدیاپلیر بازش نمیکنه
ولی وقتی صدا با همون مشخصات رو با Sound Recorder ویندوز ضبط میکنم این مشکل رو مشاهده نمیکنم . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

procedure TForm1.btnStopStartRecClick(Sender: TObject);

begin

  if btnStopStartRec.Caption = 'Record' then begin

    btnStopStartRec.Caption := 'Stop';

    mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,Handle);

    mciSendString('SET mySound ' +

                  'TIME FORMAT MS ' +

                  'BITSPERSAMPLE 16 ' +

                  'CHANNELS 1 ' +

                  'SAMPLESPERSEC 8000 ' +

                  'BYTESPERSEC 14000 ' +

                  'ALIGNMENT 4',

                   nil,0,handle);

    mciSendString('RECORD mySound',nil,0,Handle);

  end else begin

    btnStopStartRec.Caption := 'Record';

    mciSendString('STOP mySound',nil,0,Handle);

    mciSendString('SAVE mySound "C:\First8bitMono.wav"',nil,0,Handle);

    mciSendString('CLOSE mySound',nil,0,Handle);

  end;

end;