Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Wurde die Laustärkeregelung des BS geändert? (https://www.delphipraxis.net/2197-wurde-die-laustaerkeregelung-des-bs-geaendert.html)

Sharky 11. Jan 2003 22:22


Wurde die Laustärkeregelung des BS geändert?
 
Hai ihr,

meine Frage ist:

Bekomme ich einne Message vom BS wenn die Lauststärkeneinstellung meiner Soundkarte verändert wird?

Hintergrund:
Ich habe eine Kompo mit der ich das Mastervolume verändern kann. Aber wenn jemand die Lautstärke über die Systemsteuerung bzw. SysTray veränder beekomme ich (mein Programm) das nich mit.

Da in meinem Prg. aber eine "Anzeige" der Lautsträrke erfolgen soll wäre eine solche Infso nicht schlecht.

xbu58 12. Jan 2003 20:28

Hallo Sharky

Windows meldet das, Du musst dafür jedoch einen CallBack-Handler installalieren (und natürlich wieder freigeben, wenn die Komponente frei gegeben wird).

Das könnte etwa so aussehen:
Code:
type
  prMixerChange = procedure(Sender: TObject; MixerH: HMixer; ID: Integer) of object;
    { MixerH is handle of mixer, which sent this message.
      ID is ID of changed item (line or control).}

  TAudioMixer = class(TComponent)
  private
    FWndHandle      : HWnd;
    .....
  protected
    procedure MixerCallBack(var Msg: TMessage); dynamic;
   .....


constructor TAudioMixer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FWndHandle := 0;
  if not (csDesigning in ComponentState) then
    FWndHandle := AllocateHWnd(MixerCallBack);
end;      { TAudioMixer.Create }

destructor TAudioMixer.Destroy;
begin
  if not (csDesigning in ComponentState) and (FWndHandle <> 0) then
    DeAllocateHwnd(FWndHandle);
  inherited;
end;      { TAudioMixer.Destroy }

procedure TAudioMixer.MixerCallBack(var Msg: TMessage);
begin
  case Msg.Msg of
  MM_MIXM_LINE_CHANGE:
    if Assigned(OnLineChange) then
      OnLineChange(Self, Msg.wParam, Msg.lParam);
  MM_MIXM_CONTROL_CHANGE:
    if Assigned(OnControlChange) then
      OnControlChange(Self, Msg.wParam, Msg.lParam);
  else
    Msg.Result := DefWindowProc(FWndHandle, Msg.Msg, Msg.WParam, Msg.LParam);
  end;
end;      { TAudioMixer.MixerCallBack }
Natürlich kommt dazwischen nocheiniges mehr. Für die Meldung der Lautstärken-Aenderung ist das alles was Du benötigst, denke ich mal.

Gruss
Xaver

Sharky 13. Jan 2003 08:03

Zitat:

Zitat von xbu58
Hallo Sharky

Windows meldet das, Du musst dafür jedoch einen CallBack-Handler installalieren (und natürlich wieder freigeben, wenn die Komponente frei gegeben wird).


Hai Xaver,

danke für die Information,

ich werde es direkt mal ausprobieren und bescheid geben ob es funktioniert.


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:31 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf