Можно и без использования потока, вместо.
Цитата:
var
R: TResourceStream;
begin
R:= TResourceStream.CreateFromID(hLib, Random(7)+1, 'sound');
SndPlaySound(R.Memory, SND_ASYNC or SND_MEMORY);
R.Free;
end;
|
Код:
PlaySound('01.wav', hLib, SND_RESOURCE or SND_ASYNC or SND_MEMORY);
рандомность вычисляется также.