Проигрывание звука из ресурсов
Создайте раздел SOUND в файле ресурсов, который будет содержать звуковой файл.
{$R MySoundRes.RES} {$R *.DFM} procedure TForm1 . Button1Click(Sender: TObject); begin PlaySound( 'SOUND' , 0 , SND_RESOURCE); end ; |
Комментарии