Показать сообщение отдельно
  #21  
Старый 22.02.2007, 15:37
KING KING вне форума
Прохожий
 
Регистрация: 21.02.2007
Сообщения: 4
Репутация: 10
По умолчанию Вот простой пример изменения громкости

procedure TForm1.TrackBar1Change(Sender: TObject);
var v:integer;
begin
v := TrackBar1.Position;
v := v + (v shl 16);
waveOutSetVolume(WAVE_MAPPER,v);
end;
// Значение TrackBar1.Max должно быть 65535
Ответить с цитированием