Не могу нормально дорбавить звук

[snake-as]

Здравствуйте, помогите мне с такой проблемой: Добавляю звук в программе, а пока он проигрывается, все виснет.. Через таймер пробовал, не помогает.. Буду очень признателен

[SERG1980]

Через чего проигрываешь звук?
если можно строчку кода

[snake-as]

procedure PlaySound;
var
  h: THandle;
  p: pointer;
begin
  h := FindResource(hInstance, 'HELLO', 'WAVE');
  h := LoadResource(hInstance, h);
  p := LockResource(h);
  sndPlaySound(p, SND_MEMORY or SND_SYNC);
  UnLockResource(h);
  FreeResource(h);
end;

Звук, как понятно, подгружаю из ресурсов..

[SERG1980]

Всё ясно!!
вот эту строку sndPlaySound(p, SND_MEMORY or SND_SYNC); замени на
sndPlaySound(p, SND_MEMORY or SND_ASYNC);
и посмотри ещё вот это

Описание значений параметра dwFlags:

Const SND_SYNC = &H0 ' Файл воспроизводится синхронно
' и функция не возвращает управление до окончания воспроизведения

Const SND_ASYNC = &H1 ' Файл воспроизводится асинхронно
' и функция возвращает управление сразу же после
' начала воспроизведения. Для того, чтобы
' прервать воспроизведение, необходимо вызвать
' функцию sndPlaySound с именем файла, равным ""

Const SND_NODEFAULT = &H2 ' Указывает на то, что если файл,
' заданный первым параметром, не найден, то не должен
' воспроизводиться файл по умолчанию

Const SND_MEMORY = &H4 ' Указывает на то, что имя файла
' соответствует WAV-файлу, находящемуся в памяти,
' например, загруженному из ресурса

Const SND_LOOP = &H8 ' Файл воспроизводится от начала до
' конца бесконечное число раз до тех пор, пока не
' вызвана функцию sndPlaySound с именем файла, равным "".
' При таком воспроизведении должен быть указан и флаг
' SND_ASYNC

Const SND_NOSTOP = &H10 ' Функция возвращает FALSE, если
' в момент ее вызова уже воспроизводится какой-нибудь файл

[snake-as]

Спасибо!! Везде искал, нигде не мог найти, все книжки перерыл.. большое спасибо

[SERG1980]

Я све эти дела находил в яндексе. посмотри ещё вот эти файлы