Запись WAV-файлов

Оформил: DeeCo

uses mmSystem;

 {....}

 procedure TForm1.Button1Click(Sender: TObject);     // Record 
begin
   mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
   mciSendString('SET mysound TIME FORMAT MS ' +     // set time 
    'BITSPERSAMPLE 8 ' +                // 8 Bit 
    'CHANNELS 1 ' +                     // MONO 
    'SAMPLESPERSEC 8000 ' +             // 8 KHz 
    'BYTESPERSEC 8000',                // 8000 Bytes/s 
    nil, 0, Handle);
   mciSendString('RECORD mysound', nil, 0, Handle)
 end;


 procedure TForm1.Button2Click(Sender: TObject);     // Stop 
begin
   mciSendString('STOP mysound', nil, 0, Handle)
 end;


 procedure TForm1.Button3Click(Sender: TObject);      // Save 
var
    verz: String;
 begin
   GetDir(0, verz);
   mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
   mciSendString('CLOSE mysound', nil, 0, Handle)
 end;