Arsip: Bikin Rekaman Suara Sendiri Dengan Delphi

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses mmSystem;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
//Buka Saluran WaveAudio
  mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Form1.Handle);
//Seting Saluran WaveAudio dengan 16 Bit Stereo 44100Khz
  mciSendString('SET mysound TIME FORMAT MS ' +   // Set time
        'BITSPERSAMPLE 16 ' +         // 16 Bit
        'CHANNELS 2 ' +           // STEREO
        'SAMPLESPERSEC 44100 ' +      // 44100 KHz
        'BYTESPERSEC 16000',        // 16000 Bytes/s
  nil, 0, Form1.Handle);
//Mulai Proses rekam suara yang keluar
  mciSendString('RECORD mysound', nil, 0, Form1.Handle)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//Simpan hasil rekaman menjadi file audio wav
  //yang nama filenya telah kita tentukan di edit1.
  mciSendString(PChar('SAVE mysound ' + edit1.text), nil, 0, Form1.Handle);
//Tutup kembali Saluran WaveAudio
  mciSendString('CLOSE mysound', nil, 0, Form1.Handle)
end;
end.