Hola tarco35.
No conozco, pero no es difícil de implementar, un ejemplo:
Código Delphi
[-]
uses mmSystem;
var
CountSec: Integer = 0;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled := False;
Timer1.Interval := 1000;
SaveDialog1.Filter := 'MP3|*.mp3';
SaveDialog1.DefaultExt := 'MP3';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(CountSec);
Label1.Caption := Format('Segundos: %d', [CountSec]);
end;
procedure TForm1.btStartClick(Sender: TObject);
begin
mciSendString('open new type waveaudio alias MP3Mic', nil, 0, 0);
mciSendString('record MP3Mic', nil, 0, 0);
CountSec := 0;
Label1.Caption := Format('Segundos: %d', [CountSec]);
Timer1.Enabled := True;
end;
procedure TForm1.btnSaveClick(Sender: TObject);
begin
Timer1.Enabled := False;
mciSendString('pause MP3Mic', nil, 0, 0);
if SaveDialog1.Execute then
begin
mciSendString(PChar('save MP3Mic ' + SaveDialog1.FileName), nil, 0, 0);
mciSendString('close MP3Mic', nil, 0, 0);
end
end;
Saludos