Как сделать, чтобы по событию зазвучала музыка?

[utro35]

Здравствуйте.
Ну например написал я что-то определенное в edit и зазвучал муз.файл?

[TorrentTor]

Самое быстрое и простое я могу предложить только: с вкладки System кинуть MediaPlayer, у него в FileName указать воспроизводимый файл, далее вписать код у Edit на KeyUp

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Edit1.Text='пуск'
  then begin
        MediaPlayer1.Open;
        MediaPlayer1.Play;
  end;
end;

Открытие и воспроизведение на слово "пуск"

[Кольша]

uses mmsystem;
.........
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Edit1.Text='пуск' then
PlaySound(pchar('filename'),0, SND_ASYNC);
end;
подробней сдесь http://delphiexpert.ru/view_lesson.php?id=71

[utro35]

Спасибо ВАМ!