
24.11.2011, 22:30
|
 |
Активный
|
|
Регистрация: 22.01.2010
Сообщения: 211
Версия Delphi: 7, 2010
Репутация: 1349
|
|
как-то так:
Код:
Min := BASS_ChannelSeconds2Bytes(Ch, 20); // 20 секунд в байтах
Max := BASS_ChannelGetLength(Ch, BASS_POS_BYTE) - Min; // длина минус 20 секунд, в байтах
BASS_ChannelSetPosition(Ch, RandomRange(Min, Max), BASS_POS_BYTE);
|