Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Media Player - Lautstärke - Box auswählen

    Delphi
    by Matze, 18. Jan 2004
  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;