Welche Nachricht bei Änderung der Lautstärke?

[bitsetter]

Moin,

eventuell hilft sowas hier:

Delphi-Quellcode:

  private
    { Private declarations }
    Procedure MixControlChange(var msg : TMessage); message MM_MIXM_CONTROL_CHANGE;
    Procedure MixLineChange(var msg : TMessage); message MM_MIXM_LINE_CHANGE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.MixControlChange(var msg : TMessage);
begin
  beep;//DEMO
end;

Procedure TForm1.MixLineChange(var msg : TMessage);
begin
  beep;//DEMO
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Mix: HMIXER;
begin
  mixerOpen(@Mix, 0, Handle, 0, CALLBACK_WINDOW);
end;

Ohne mixerOpen() geht es anscheinend nicht.