Fórum Gravar Wav #177445

uses mmSystem; 

{....} 

procedure TForm1.Button1Click(Sender: TObject);
begin 
  // inicia a graavação
  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);
begin 
  // pára a gravação
  mciSendString(´STOP mysound´, nil, 0, Handle) 
end; 


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