Playsound and altering volume

[joyfulspring3]

Dear all, thank you.

Reading through these posts helps me feel supported before I undertake my next sound project which involves some dubbing and remixing. If I get stuck, I know where to ask my first question!! Great, thanks again, 

[w click]

I can certianly help you with points 1 to 4, but can you help me with points 5 (mute) and 6 (position and length of wav)?

[Fred vS]

Hello everybody...
Sorry to come back but why dont you try the Bass library :
http://www.un4seen.com/
It works perfectly with Lazarus and do all what you want...

[w click]

Thanks for the pointer.  Much appreciated.  I had a look.

I really don't want to get involved in learning another library when I'm only two magic spells short of finishing.  Everything else, change volume for example, is only a screen's worth of code; I can't believe there isn't a solution somewhere.

[w click]

I've got this:-

Code: [Select]

function GetMasterMute(
  Mixer: hMixerObj;
  var Control: TMixerControl): MMResult;
  // Returns True on success
var
  Line: TMixerLine;
  Controls: TMixerLineControls;
begin
  ZeroMemory(@Line, SizeOf(Line));
  Line.cbStruct := SizeOf(Line);
  Line.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
  Result := mixerGetLineInfo(Mixer, @Line,
    MIXER_GETLINEINFOF_COMPONENTTYPE);
  if Result = MMSYSERR_NOERROR then
  begin
    ZeroMemory(@Controls, SizeOf(Controls));
    Controls.cbStruct := SizeOf(Controls);
    Controls.dwLineID := Line.dwLineID;
    Controls.cControls := 1;
    Controls.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
    Controls.cbmxctrl := SizeOf(Control);
    Controls.pamxctrl := @Control;
    Result := mixerGetLineControls(Mixer, @Controls,
      MIXER_GETLINECONTROLSF_ONEBYTYPE);
  end;
end;                 
Which compiles fine, but I've no idea how to call the function.

[w click]

I can set the mute now, I found a page on the internet with some example code that worked!!!  Sadly I don't know why because it was all in a language I couldn't even identify.  Thank goodness the reserved words are in English.

I just need to call this:-

function GetMasterMute(
  Mixer: hMixerObj;
  var Control: TMixerControl): MMResult;

Mixer is probably just "0", but the rest...