Параллельные процессы?

← →
alexdn © (2013-02-02 20:32) [0]

По событию onClick проигрывается звук из ресурсов, затем идёт ещё код. Но звук вызывает задержку. Как распараллелить процессы или вообще что можно придумать?
form1.click; //процедура звука cha:=chapot; chb:=chbpot; ...

← →
Германн © (2013-02-02 20:44) [1]

> alexdn © (02.02.13 20:32)
>
> По событию onClick проигрывается звук из ресурсов

Как именно проигрывается?

← →
alexdn © (2013-02-02 20:53) [2]

> Германн © (02.02.13 20:44) [1]
Это просто процедура, но дело не в ней, дело в том, как всё это распараллелить -
procedure TForm1.click; var hResource: THandle; pData: Pointer; begin hResource:=LoadResource( hInstance, FindResource(hInstance, "XPMC",RT_RCDATA)); try pData := LockResource(hResource); if pData = nil then raise Exception.Create("Cannot read MyWave"); PlaySound(pData, 0, SND_MEMORY); finally FreeResource(hResource); end; end;

← →
Сергей М. © (2013-02-02 21:08) [3]

SND_ASYNC

← →
имя (2013-02-02 21:22) [4]

Удалено модератором

← →
alexdn © (2013-02-02 21:59) [5]

> Сергей М. © (02.02.13 21:08) [3]
написал PlaySound(pData, 0, SND_ASYNC); звук вообще перестал проигрываться

SND_MEMORY OR SND_ASYNC

Да, спасибо всем, так гораздо лучше.

> alexdn © (02.02.13 22:16) [7]
>
> Да, спасибо всем, так гораздо лучше.
>

P.S.
Надеюсь ты прочитал справку по PlaySound. Там ещё есть и другие флаги влияющие на проигрывание звуков.

Параллельные процессы? Найти похожие ветки