[转载]Vista volume control using delphi 5 & 7

bini

来自： http://social.msdn.microsoft.com ... 9-a8c9-2e27eb9ec058
  h* p8 j3 q; wBy Mukta & ToxicDream

1. 
   7 _1 G2 T4 v( m: e: y$ |+ V
2. //for delphi 5
   + R: n1 h8 ~! T) o. @/ j
3. unit MMDevApi_tlb;
   . U0 s7 U, Y9 u+ T
4. 
   4 T- ]& z2 F5 G+ f. H
5. interface
   
6.   uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,ComObj;
   - m( E" D: s6 O; ?
7. const
   7 d  T0 w" C; \" N: Z8 P. V
8.   // TypeLibrary Major and minor versions
   9 d$ k; H- L1 s2 P1 h9 R5 t  f
9. 
   
10.   CLASS_IMMDeviceEnumerator: TGUID              = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    
11.   IID_IMMDeviceEnumerator: TGUID                = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    ; b5 y; P. S; p. d  O: X4 y7 `
12.   IID_IMMDevice: TGUID                          = '{D666063F-1587-4E43-81F1-B948E807363F}';
    
13.   IID_IMMDeviceCollection: TGUID                = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    
14.   IID_IAudioEndpointVolume: TGUID               = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    2 P$ _4 m, i6 h) s, }
15.   IID_IAudioMeterInformation : TGUID            = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    
16.   IID_IAudioEndpointVolumeCallback: TGUID       = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    * m( l% ^# n8 ]' j$ _
17. 
    0 k- K+ g5 {2 U
18.   DEVICE_STATE_ACTIVE                   = $00000001;
    " c- |6 c; H9 I* H, {/ m! k
19.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
20.   DEVICE_STATE_NOTPRESENT               = $00000004;
    , j3 c, X. j# [( @! b  F8 [
21.   DEVICE_STATEMASK_ALL                  = $00000007;
    - k5 V6 B. u* P" x' c2 H
22. 
    2 l% W9 w0 [5 i+ z- v8 t9 V
23. type
    
24.   EDataFlow = TOleEnum;
    5 ^- U' M, G, g$ b
25. const
    
26.   eRender                               = $00000000;
    
27.   eCapture                              = $00000001;
    : C5 ^- u; B" ~7 Q! n" I+ W
28.   eAll                                  = $00000002;
    4 Y/ W' H1 K- X- C
29.   EDataFlow_enum_count                  = $00000003;
    
30. 
    ) q0 z1 v7 ?7 F+ ^, ?( o
31. type
    
32.   ERole = TOleEnum;
    1 R: N5 m. Q/ x! u9 ^8 |
33. const
    4 i+ Y: t/ D; C3 e
34.   eConsole                              = $00000000;
    3 Z- ~! s! X: ]- |6 S
35.   eMultimedia                           = $00000001;
    
36.   eCommunications                       = $00000002;
    * ]4 k- @6 v3 {* C7 @; G9 P6 j
37.   ERole_enum_count                      = $00000003;
    
38. 
    / Y" ?+ n3 d0 n# R
39. type
    6 R. C& W6 L( M" X1 c; D
40.   IAudioEndpointVolumeCallback = interface(IUnknown)
    ! a0 v! R! G  ]: D$ e0 U) A
41.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    * r2 D3 f/ X, m" O7 @0 |7 \4 Z
42.   end;
    - ^7 w# Y* c5 R4 s( D
43. 
    : e3 b# w& b- X$ z' {5 I& Z& P+ s
44.   IMMAudioEndpointVolume = interface(IUnknown)
    
45.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    8 a. l1 M8 \1 h' k0 Q& E8 s
46.     Function RegisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    ' r7 b3 }* [! g: {
47.     Function UnregisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    , u) n9 _# [  r. `
48.     Function GetChannelCount(out PInteger): Integer; stdcall;
    
49.     Function SetMasterVolumeLevel(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
50.     Function SetMasterVolumeLevelScalar(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
51.     Function GetMasterVolumeLevel(out fLevelDB: double):Integer; stdcall;
    
52.     Function GetMasterVolumeLevelScaler(out fLevel: double):Integer; stdcall;
    . `& Z  S6 \* D* Z) B$ ^. x/ m! A! H
53.     Function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    . U% K9 Q/ @' i9 l  l+ w% j5 n
54.     Function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
55.     Function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double) : Integer; stdcall;
    5 i! F8 Q! x/ _9 a
56.     Function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double) : Integer; stdcall;
    
57.     Function SetMute(bMute: Boolean ; pguidEventContext: TGUID) :Integer; stdcall;
    
58.     Function GetMute(out bMute: Boolean ) :Integer; stdcall;
    
59.     Function GetVolumeStepInfo( pnStep: Integer; out pnStepCount: Integer):Integer; stdcall;
    
60.     Function VolumeStepUp(pguidEventContext: TGUID) :Integer; stdcall;
    : B# n+ u2 P4 j' F
61.     Function VolumeStepDown(pguidEventContext: TGUID) :Integer; stdcall;
    
62.     Function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    ! D' m" x6 h( A- D
63.     Function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
64.   end;
    - s' o- ?4 G3 ?# Y
65. 
    ( g$ V5 O# h+ B+ g
66. {  IAudioMeterInformation = interface(IUnknown)
    
67.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064']
      R+ A$ R, w+ g( I; R) P  @; k* z" Y
68.   end;}
    # a/ u# U- K  G
69. 
    
70.   IPropertyStore = interface(IUnknown)
    
71.   end;
    * o, \+ n$ X  b# v$ j0 k: }9 i7 I; [
72. 
    
73. type
    9 o' x5 f0 c+ c- x8 `- Q% V
74.   IMMDevice = interface(IUnknown)
    
75.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
76.     Function Activate(  refId :TGUID;
    ! k, o4 k! t# S% d2 q
77.                         dwClsCtx: DWORD;
    
78.                         pActivationParams: PInteger ;
    ' l: p7 a  o9 m+ z5 E
79.                         out pEndpointVolume: IMMAudioEndpointVolume): Hresult; stdCall;
    
80.     Function OpenPropertyStore(stgmAccess: DWORD; out ppProperties :IPropertyStore): Hresult; stdcall;
    
81.     Function GetId(out ppstrId: PLPWSTR ): Hresult; stdcall;
    ) }4 f/ i  E0 H) p# P5 z6 |- o6 B- R
82.     Function GetState(out State :Integer): Hresult; stdcall;
    * m3 H7 a6 O! k. H
83. 
    
84.   end;
    
85. 
    : C. z/ q8 O% m9 w* l1 t
86. 
    
87.   IMMDeviceCollection = interface(IUnknown)
    ( O1 T; \& f  |3 P! z
88.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    
89.   end;
    : ~/ J* a2 n+ ]$ Z. {
90. 
    5 A! x3 t1 Y" a8 M) D
91.   IMMNotificationClient = interface (IUnknown)
    : c0 Z8 _, ^& {& c2 i+ s5 G  K
92.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    * j/ A& g: E+ k  E: I( M) d
93.   end;
    7 Y. Q% O% N, o0 J4 L. c
94. 
    ; r* \7 s: H! W$ f+ P% _  _9 U
95.   IMMDeviceEnumerator = interface(IUnknown)
    / z5 i5 K! g& D
96.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    : n# l' p" S/ e$ E
97.     Function EnumAudioEndpoints( dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection:IMMDeviceCollection ): Hresult ; stdcall;
    
98.     Function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult ; stdcall;
    
99.     Function GetDevice( pwstrId: pointer ; out Dev :IMMDevice) : HResult; stdcall;
    
100.     Function RegisterEndpointNotificationCallback(pClient :IMMNotificationClient) :Hresult; stdcall;
     
101.   end;
     ; K. N- A9 s# o6 r% g
102. 
     
103.   implementation
     
104. end.
     
105. 
     , G) N( o, l. s( J6 ^
106. Thanks & Reagrds,
     
107. Mukta ...
     ! X- ?. z9 k, Z7 f

复制代码

1. 
   * D; _; X1 p) \& r  G" h# L
2. it's work in Delphi 7
   - M( R/ ]  E4 e) \6 |
3. //////////////////////////
   5 D5 ~7 N+ N8 S1 _
4. 
   
5. unit MMDevApi;
   - G/ g5 [7 \& ]6 \
6. 
   $ R( t4 U& {. f: h5 ?# K
7. interface
   * H0 A2 B2 b9 L7 F1 Q
8. 
   8 P5 K% o' L9 M4 ^) k( n
9. uses
   3 w9 n0 D, `4 _$ P/ ^
10.   Windows, ActiveX, ComObj;
    * e$ d/ h  |6 `3 z
11. 
    1 a- Q& _$ p1 b  m" I, r/ c& N
12. const
    
13.   CLASS_IMMDeviceEnumerator             : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    
14.   IID_IMMDeviceEnumerator               : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    
15.   IID_IMMDevice                         : TGUID = '{D666063F-1587-4E43-81F1-B948E807363F}';
    
16.   IID_IMMDeviceCollection               : TGUID = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    ) U" l# g+ l8 u1 _
17.   IID_IAudioEndpointVolume              : TGUID = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    
18.   IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    6 I. ^+ ^& ]% D7 T& s5 {% ]6 s
19.   IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    + N! L  O3 n% p& Q$ k4 y! B
20. 
    5 R$ k1 @% z( @  T7 e$ F8 y
21.   DEVICE_STATE_ACTIVE                   = $00000001;
    . x/ d, \  t% P8 z
22.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
23.   DEVICE_STATE_NOTPRESENT               = $00000004;
    # K- U; L6 C& t, x. C7 D( L4 k
24.   DEVICE_STATEMASK_ALL                  = $00000007;
    
25. 
    0 l7 C/ h. a" a' @0 }; o
26. type
    
27.   EDataFlow = TOleEnum;
    
28. 
    4 x3 v. A8 Q4 m
29. const
    , p+ G5 Y. N4 [- d8 ?7 }9 e
30.   eRender                               = $00000000;
    . d7 v/ E) `6 D/ j
31.   eCapture                              = $00000001;
    
32.   eAll                                  = $00000002;
    
33.   EDataFlow_enum_count                  = $00000003;
    
34. 
    + C: ^* Z" h2 [" b( ?
35. type
    , j  j/ \; B( n9 s- J9 c* ^
36.   ERole = TOleEnum;
    0 ^1 q$ O$ T- i7 f- j
37. 
    
38. const
    # E' r& v+ n8 D5 Y" d
39.   eConsole                              = $00000000;
    + A6 n  X! j# {- z
40.   eMultimedia                           = $00000001;
    
41.   eCommunications                       = $00000002;
    5 J7 ~; _3 `; I% T4 m
42.   ERole_enum_count                      = $00000003;
    $ f2 E4 X4 d0 a1 i
43. 
    ( R5 ?4 q: u0 X$ A" t
44. type
    
45.   IAudioEndpointVolumeCallback = interface(IUnknown)
    % U8 r$ b( M6 o& r( Z3 k
46.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    
47.   end;
    
48. 
    
49.   IAudioEndpointVolume = interface(IUnknown)
    
50.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    , k! |& V7 ~' B1 O4 y: i# J
51.     function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
52.     function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
53.     function GetChannelCount(out PInteger): Integer; stdcall;
    - U  H1 G' H: ^& x- d' T7 e) ?
54.     function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    3 E: S! G( @6 _4 c0 E- {8 m
55.     function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    , H; h+ W* w8 c1 g- a( C5 ~
56.     function GetMasterVolumeLevel(out fLevelDB: single): Integer; stdcall;
    ) t: A/ o% G% b  g; o/ T
57.     function GetMasterVolumeLevelScaler(out fLevelDB: single): Integer; stdcall;
    
58.     function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    ' h# a9 I6 U3 y3 u( @
59.     function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    ) H) g  d2 k2 J5 v9 d1 _
60.     function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double): Integer; stdcall;
    
61.     function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double): Integer; stdcall;
    
62.     function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall;
    " ^" j' j3 J% q$ D. M0 n2 b* i+ v2 ~* T
63.     function GetMute(out bMute: Boolean): Integer; stdcall;
    ) J, a# F1 ?! L: @3 B8 y
64.     function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
    * F! E- |! Y* e' H# P* Q5 j8 m1 k7 O
65.     function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    8 C" U% p" Z4 I0 B5 z* i( m
66.     function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall;
    
67.     function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    
68.     function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
69.   end;
    
70. 
    : Y8 k2 p6 ~5 }- W( v# I
71.   IAudioMeterInformation = interface(IUnknown)
    ; @8 Q( ?/ B6 P' C  w) }% R
72.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
    
73.   end;
    ; I& \! B+ K0 `( g2 V6 w
74. 
    & U# F% Y3 \2 i) g; g
75.   IPropertyStore = interface(IUnknown)
    
76.   end;
    
77. 
    + P  D/ G6 `6 u3 M' v6 Y; P
78.   IMMDevice = interface(IUnknown)
    % n, i- D2 X' q; J1 K) N9 O3 @$ o
79.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
80.     function Activate(const refId: TGUID;
    . ~( q) Y# Z1 H. a% G
81.                       dwClsCtx: DWORD;
    
82.                       pActivationParams: PInteger;
    ) g: \* V6 S+ c- ^+ c5 R* S
83.                       out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall;
    9 a& h- P6 K$ V( o2 X
84.     function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): Hresult; stdcall;
    & j  n! r( I* H! u
85.     function GetId(out ppstrId: PLPWSTR): Hresult; stdcall;
    # Z$ ]- ^, p1 i9 g* U# {# o
86.     function GetState(out State: Integer): Hresult; stdcall;
    
87.   end;
    
88. 
    
89. 
    
90.   IMMDeviceCollection = interface(IUnknown)
    $ ^. e/ A4 _8 b8 a, {% t
91.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    
92.   end;
    
93. 
    
94.   IMMNotificationClient = interface(IUnknown)
    4 g4 T. u  b8 u6 L. T
95.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    5 O$ H$ {) L/ m/ U6 \2 Q7 U3 n
96.   end;
    
97. 
    - d; x. J7 b4 E  q# ^
98.   IMMDeviceEnumerator = interface(IUnknown)
    
99.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    7 s& {4 c' f( F2 n8 g
100.     function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
     
101.     function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall;
     ; z+ f. F1 {) k' `  @  d
102.     function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall;
     : `  T, W2 J+ e0 _9 p
103.     function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall;
     . O! i* {* @" {0 U& i9 V
104.   end;
     
105. 
     
106. implementation
     
107. 
     
108. end.
     6 Y$ E/ t: W) \* c- Q
109. 
     
110. ///////////////////////
     0 i7 J6 D! X1 e/ C1 ^; D( G6 g
111. simple sample :)
     * I7 j( B( F  @" h+ h
112. ///////////////////////
     0 u; c/ ]% a# R7 d% T$ Z, g
113. 
     
114. //...... other code
     ( q, }$ f5 D# F  _5 J
115. 
     ! d0 n( v: i+ X+ R& _9 Q: W
116. uses ... ActiveX, MMDevApi, ...;
     + m, d/ S5 F) p; \% G* M" T: I- O8 p
117. 
     
118. //...... other code
     $ R; `/ r: W* C8 I- `( A
119. 
     
120. var
     9 h4 r: F9 n" I% h% ^0 R; R* [
121.   endpointVolume: IAudioEndpointVolume = nil;
     
122. 
     
123. procedure TForm1.FormCreate(Sender: TObject);
     3 w) l# r# W9 U7 c4 O0 d* R9 `
124. var
     2 Q" O$ }9 E) i6 f% W
125.   deviceEnumerator: IMMDeviceEnumerator;
     
126.   defaultDevice: IMMDevice;
     
127. begin
     " D6 j6 L/ b  [, X* |1 b7 d# p; Q6 N. ~
128.   CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
     
129.   deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
     1 d& N( k' }0 q. S0 |
130.   defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
     - B) Q9 S$ X( J# X1 J, A; H
131. end;
     
132. 
     * m$ d5 z5 K) B7 ~7 x
133. procedure TForm1.Button1Click(Sender: TObject);
     $ o! a- Q( U: ~/ h  q
134. var
     * J: n9 s* ?! N+ ~" ]1 Y( N5 J+ }2 ~$ E
135.   VolumeLevel: Single;
     3 y  u* e* y5 }. S- w& L
136. begin
     * x: X8 {+ H; ^. @
137.   if endpointVolume = nil then Exit;
     
138.   VolumeLevel := 0.50;
     " }0 a1 W. ^- r; H
139.   endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
     6 S- b/ Y- j- w" g
140.   Caption := Format('%1.8f', [VolumeLevel])
     
141. end;
     0 M" b: `9 P6 b4 C
142. 
     2 E+ D# [. l2 u7 f) k9 g
143. /////////////////////////////////////
     
144. 
     
145. // with best regards ToxicDream
     

复制代码