AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Wurde die Laustärkeregelung des BS geändert?

Wurde die Laustärkeregelung des BS geändert?

Ein Thema von Sharky · begonnen am 11. Jan 2003 · letzter Beitrag vom 13. Jan 2003
Antwort Antwort
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.250 Beiträge
 
Delphi 2006 Professional
 
#1

Wurde die Laustärkeregelung des BS geändert?

  Alt 11. Jan 2003, 22:22
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.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
xbu58

Registriert seit: 10. Dez 2002
Ort: Bäretswil / Schweiz
121 Beiträge
 
Delphi 7 Enterprise
 
#2
  Alt 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
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.250 Beiträge
 
Delphi 2006 Professional
 
#3
  Alt 13. Jan 2003, 08:03
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.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:38 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