57
begin
Form1.MediaPlayer1.Play ;
if FindFirst(SOUNDPATCH+'*.wav', faAnyFile,
SearchRec) =0 then
begin
Form1.ListBox1.Items.Add(SearchRec.Name) ;
while (FindNext(SearchRec) = 0) do
Form1.ListBox1.Items.Add(SearchRec.Name);
end;
end;
procedure TForm1.ListBoxlClick(Sender:
TObject);
begin
Label2.Caption:=ListBox1.Items[ListBox1.itemlnde
x];
procedure TForm1.MediaPlayerlClick(Sender:
TObject; Button: TMPBtnType;
var DoDefault: Boolean); begin
if (Button = btPlay) and (Label2.Caption <> '')
then
begin
with MediaPlayerl do begin
FileName:=SOUNDPATCH+Label2.Caption;
Open;
end;
end;
end;
end.
Дыбысты жазу
Дыбыстық фрагментті алу үшін Windows-тың құрамындағы Звукозапись программасын
пайдалануға болады. Ол үшін Пуск | Программы | Стандартные | Развлечения | Звукозапись
командаларын таңдак керек.
Звукозапись
программасының диалогтық терезесі
WAV-файл келесі түрде құрылады. Алдымен дыбыстың қайнар кӛзін анықтау керек. Ол үшін
Параметры менюінен Свойства командасын алып Регулятор громкости таңдау керек. Сонан соң
Запись айырғышын таңдап Отображаемые регуляторы громкости тізіміндегі керекті сигналдарды
орнату үшін жалаушаларды таңдау керек. Енді дыбысты жазуға кӛшуге болады.