Настройка регулятора кода.

[Vladya]

Короче у меня такая проблема, пишу проигрыватель в котором естественно есть регулятор громкости, но дело в том что после того как я в проигрывателе убираю громкость до минимума и выключаю проигрыватель то громкость так и остаётся выключенной, что делать не знаю. Подскажите кто может. Вот код моего регулятора:

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  HWO: HWAVEOUT;
  WF: TWAVEFORMATEX;
  V: DWORD;
begin
  TrackBar1.Max:=65535;
  FillChar(WF,SizeOf(WF),0);
  WaveOutOpen(@HWO,WAVE_MAPPER,@WF,0,0,0);
  V:=TrackBar1.Position+TrackBar1.Position shl 16;
  WaveOutSetVolume(HWO,V);
  WaveOutClose(HWO);
end;

[EvKont]

Самое простое - вернуть звук на при закрытии формы (событие OnClose)

[Vladya]

да но как это сделать? Напиши код, пожалуйста

[Terran]

Можно так же при запуске программы записать в переменную значение громкости в данный момент, а при закрытии программы установить громкость как и была. Используйте свой код, только вместо TrackBar'а подставляйте напрямую значение.

[Vladya]

Дайте кто нибудь код, пожалуйста, потомучто я пробовал восстанавливать значение громкости при выключении но что то ничего не получается. Что делать?

[Terran]

Вот, примерчеГ:

Uses
   MMSystem,...
...
Var
V: DWord;
Function GetWaveVolume: DWord;
Var
Woc: TWaveOutCaps;
Volume: DWord;
Begin
Result:=0;
If WaveOutGetDevCaps(WAVE_MAPPER,@Woc,Sizeof(Woc)) = MMSYSERR_NOERROR Then
Begin
If Woc.DwSupport And WAVECAPS_VOLUME = WAVECAPS_VOLUME Then
Begin
WaveOutGetVolume(WAVE_MAPPER,@Volume);
Result:=Volume;
End;
End;
End;
Procedure SetWaveVolume(Const AVolume: DWord);
Var
Woc: TWaveOutCaps;
Begin
If WaveOutGetDevCaps(WAVE_MAPPER,@Woc,Sizeof(Woc)) = MMSYSERR_NOERROR Then
Begin
If Woc.DwSupport And WAVECAPS_VOLUME = WAVECAPS_VOLUME Then
WaveOutSetVolume(WAVE_MAPPER,AVolume);
End;
End;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
V:=GetWaveVolume;
End;
Procedure TForm1.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
SetWaveVolume(V);
End;