Хмм... Надо подумать...

Ставиш трэк бар.
В свойсте Max прописываеш 65535,а в процедуре:

procedure TForm1.TrackBar1Change(Sender: TObject);
var

Value: DWord;

begin

Value := $FFFF - TrackBar1.Position;

WaveOutSetVolume(0, (Value SHL 16) + Value);

end;

не забудь подключить MMsystem

> clickmaker ©   (17.09.07 15:32) [15]


Интересная идея)


> Неудобно, много букав набирать, все же 21 век на дворе)


Зато солидно)

Соберем для Вас по сети интернет базу
данных потенциальных клиентов для Вашего Бизнеса
(название, адрес, телефон, факс, e-mail, www, и др информация)
Более подробно узнайте по
ICQ: 62-888-62
Тел +79133913837
Email: bazy.potencialnyh.klientov@gmail.com
Skype: prodawez

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