Sound mitschneiden....

[Hador]

^Dazu reicht auch 'n TMediaPlayer.
Hier mal ein Auszug aus so'nem Recorder von mir:

Delphi-Quellcode:

Rec: TMediaPlayer;

{...}

procedure TForm1.StartClick(Sender: TObject);
begin
  if Save.Execute then
  begin
    CopyFile(PChar(ExtractFilePath(ParamStr(0))+'\empty.wav'), PChar(Save.FileName), true);
    Rec.FileName := Save.FileName;
    Start.Enabled := false;
    Stop.Enabled := true;
    Rec.Open;
    Rec.StartRecording;
  end;
end;

procedure TForm1.StopClick(Sender: TObject);
begin
  Rec.Save;
  Rec.Stop;
  Start.Enabled := true;
  Stop.Enabled := false;
end;