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

bini

来自： http://social.msdn.microsoft.com ... 9-a8c9-2e27eb9ec058
- s% n+ X: \  S9 `8 U; p1 I' HBy Mukta & ToxicDream

1. 
   
2. //for delphi 5
   % j7 k* R0 }' W4 r, S5 G2 H" M: r
3. unit MMDevApi_tlb;
   : j7 x3 T2 C1 V5 t0 l+ u
4. 
   
5. interface
   8 g( P- C, \& j4 m4 g+ [
6.   uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,ComObj;
   ( l0 f+ f& ^" J+ H$ G
7. const
   7 e* k( m; A, m' ^1 M1 ?& _
8.   // TypeLibrary Major and minor versions
   
9. 
   " X0 Z8 h4 c8 }7 W; o  j7 h
10.   CLASS_IMMDeviceEnumerator: TGUID              = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    
11.   IID_IMMDeviceEnumerator: TGUID                = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
      n& K) N5 R+ d% ~( P; A' V, Z
12.   IID_IMMDevice: TGUID                          = '{D666063F-1587-4E43-81F1-B948E807363F}';
    ; q& U: v1 A3 `, R: t8 C7 |
13.   IID_IMMDeviceCollection: TGUID                = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    ' b1 I% N) n# A- m' H( [/ v* M
14.   IID_IAudioEndpointVolume: TGUID               = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    9 T3 M" |1 _( i& |
15.   IID_IAudioMeterInformation : TGUID            = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    2 J" r/ ?: e' r" H! N( T. Q! f
16.   IID_IAudioEndpointVolumeCallback: TGUID       = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    ! f9 s; j. o0 w# S+ m6 \- q$ t
17. 
      V- C  U4 [( w
18.   DEVICE_STATE_ACTIVE                   = $00000001;
    0 l4 F) u) c. b/ Z
19.   DEVICE_STATE_UNPLUGGED                = $00000002;
    + f* k6 O6 ^9 \
20.   DEVICE_STATE_NOTPRESENT               = $00000004;
    
21.   DEVICE_STATEMASK_ALL                  = $00000007;
    
22. 
    . M* x$ b6 _' g# E
23. type
    
24.   EDataFlow = TOleEnum;
    . _6 c( i4 G1 |3 m1 k9 h* f( ?: f4 U
25. const
    0 K! k) ~6 b* o7 q* t8 G' `7 u
26.   eRender                               = $00000000;
    
27.   eCapture                              = $00000001;
    
28.   eAll                                  = $00000002;
    4 q! x: ]- `0 X' ]+ u
29.   EDataFlow_enum_count                  = $00000003;
    
30. 
    ' c7 z' G. M1 _+ q) g5 ?/ c; M9 U
31. type
    ' |5 ]5 \% Q, N
32.   ERole = TOleEnum;
    $ R0 [! E6 w; b' J! J' X- M6 O
33. const
    * l  A$ ?+ V, N0 K6 P# g' H
34.   eConsole                              = $00000000;
    
35.   eMultimedia                           = $00000001;
    
36.   eCommunications                       = $00000002;
    
37.   ERole_enum_count                      = $00000003;
    
38. 
    7 m! @7 z) s1 p9 T3 z* N, A5 ]
39. type
    
40.   IAudioEndpointVolumeCallback = interface(IUnknown)
    ( F% q6 L4 C- y( a4 B+ f
41.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    : \  Y6 M. ^3 \6 O( A" ?  X
42.   end;
    
43. 
    4 L- K9 W5 O' ]( J3 H* a6 {
44.   IMMAudioEndpointVolume = interface(IUnknown)
    
45.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    
46.     Function RegisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    / C/ P5 J2 {3 O1 {4 G5 H: Z3 P! K+ o
47.     Function UnregisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
48.     Function GetChannelCount(out PInteger): Integer; stdcall;
    
49.     Function SetMasterVolumeLevel(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    5 u8 w4 v- ^% j3 e
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;
    , |( s: J  e& ^1 l1 J+ y
53.     Function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
54.     Function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
55.     Function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double) : Integer; stdcall;
    9 V$ w& R( D$ S+ a2 R# `, E
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;
    # X% ?7 P& @0 W
59.     Function GetVolumeStepInfo( pnStep: Integer; out pnStepCount: Integer):Integer; stdcall;
    
60.     Function VolumeStepUp(pguidEventContext: TGUID) :Integer; stdcall;
    , o, F& W+ T6 q5 i1 ^
61.     Function VolumeStepDown(pguidEventContext: TGUID) :Integer; stdcall;
    
62.     Function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    ' ]4 ~* @; z3 K7 e& V
63.     Function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
64.   end;
    
65. 
    
66. {  IAudioMeterInformation = interface(IUnknown)
    7 m4 h: E/ O5 d3 n. h
67.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064']
    + B2 z# u; z, v# H/ {
68.   end;}
    
69. 
    
70.   IPropertyStore = interface(IUnknown)
    
71.   end;
    
72. 
    
73. type
    
74.   IMMDevice = interface(IUnknown)
    
75.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    $ V* \+ s9 G# Z6 w% I
76.     Function Activate(  refId :TGUID;
    % J+ |3 r7 T7 h" D; _$ ^
77.                         dwClsCtx: DWORD;
    ) x, `7 D8 d! w' C3 G- }$ l
78.                         pActivationParams: PInteger ;
    5 V8 t  t# W( y4 f
79.                         out pEndpointVolume: IMMAudioEndpointVolume): Hresult; stdCall;
    
80.     Function OpenPropertyStore(stgmAccess: DWORD; out ppProperties :IPropertyStore): Hresult; stdcall;
    # R6 b2 I! p+ _# x1 s
81.     Function GetId(out ppstrId: PLPWSTR ): Hresult; stdcall;
    $ Y0 c4 p% j5 K: R
82.     Function GetState(out State :Integer): Hresult; stdcall;
    / W2 Y2 V, L/ ^. d) Z) v
83. 
    5 z7 {  Z6 M* I. k3 R6 H) m
84.   end;
    
85. 
    6 ~2 t4 \4 G* U% ^
86. 
    
87.   IMMDeviceCollection = interface(IUnknown)
    
88.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    
89.   end;
    
90. 
    - M7 j  N+ M! j) K# p0 w
91.   IMMNotificationClient = interface (IUnknown)
    , F* Q! r# Y7 s) i
92.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    
93.   end;
    
94. 
    2 x' I9 j2 Y& {0 D: t7 K  u
95.   IMMDeviceEnumerator = interface(IUnknown)
    
96.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    5 c/ C* S- K$ k6 w" z9 {6 z
97.     Function EnumAudioEndpoints( dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection:IMMDeviceCollection ): Hresult ; stdcall;
    . a5 B4 r) W& S8 h- j. v' l; h( Z8 a
98.     Function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult ; stdcall;
    
99.     Function GetDevice( pwstrId: pointer ; out Dev :IMMDevice) : HResult; stdcall;
    " U; n+ A" a* n) B' f
100.     Function RegisterEndpointNotificationCallback(pClient :IMMNotificationClient) :Hresult; stdcall;
     ' M" j2 k2 f+ B! [
101.   end;
     2 Q; B( ~9 I) B: ?( a7 O1 w
102. 
     
103.   implementation
     
104. end.
     + B" j* d) Z- Z) o" Y
105. 
     
106. Thanks & Reagrds,
     9 X: M* D: K- f. f: Y
107. Mukta ...
     9 N7 a. s# [! ?0 E( r/ s3 q

复制代码

1. 
   
2. it's work in Delphi 7
   
3. //////////////////////////
   & W7 D  X7 m3 o% z6 R8 p9 @4 Q
4. 
   3 B+ ]: u+ _( m4 V$ Y
5. unit MMDevApi;
   
6. 
   5 u6 g0 Q: N" O% x3 a
7. interface
   
8. 
   $ ~3 k0 Q. @, E( U( I
9. uses
   
10.   Windows, ActiveX, ComObj;
    
11. 
    
12. const
    9 S0 n8 w+ e# _% \6 Q
13.   CLASS_IMMDeviceEnumerator             : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    
14.   IID_IMMDeviceEnumerator               : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    % u/ o' `' h) Z& q& a# f
15.   IID_IMMDevice                         : TGUID = '{D666063F-1587-4E43-81F1-B948E807363F}';
    6 T# a1 X( Z$ C  q1 S
16.   IID_IMMDeviceCollection               : TGUID = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    " J, T3 W# z6 }
17.   IID_IAudioEndpointVolume              : TGUID = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    
18.   IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    * C) m0 ^5 o$ m; l- C" K
19.   IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    
20. 
    3 h" Z0 K) _3 C8 U
21.   DEVICE_STATE_ACTIVE                   = $00000001;
    
22.   DEVICE_STATE_UNPLUGGED                = $00000002;
    0 D: V% {2 o% ]) s4 R
23.   DEVICE_STATE_NOTPRESENT               = $00000004;
    
24.   DEVICE_STATEMASK_ALL                  = $00000007;
    
25. 
      k: z  k, z, B5 m4 X% ^7 ]
26. type
    & R* ]5 P( L: k- L) n4 d
27.   EDataFlow = TOleEnum;
    
28. 
    + E: o1 j$ N$ I4 Q+ d8 o
29. const
    
30.   eRender                               = $00000000;
    
31.   eCapture                              = $00000001;
    9 E& m& T/ G' A5 ~
32.   eAll                                  = $00000002;
    
33.   EDataFlow_enum_count                  = $00000003;
    
34. 
    
35. type
    
36.   ERole = TOleEnum;
    
37. 
    
38. const
    
39.   eConsole                              = $00000000;
    1 ?4 ~# q+ [& O6 |
40.   eMultimedia                           = $00000001;
    
41.   eCommunications                       = $00000002;
    / {' k' O0 n7 u2 \9 {1 @
42.   ERole_enum_count                      = $00000003;
    ; j$ e! Q+ P8 k9 ~4 u+ p5 W7 b7 U
43. 
    # A$ D/ e1 }! Z$ W
44. type
    " W9 l2 l0 ^. R- M: Y: |
45.   IAudioEndpointVolumeCallback = interface(IUnknown)
    
46.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    & ?# \+ p1 S- E
47.   end;
    3 I, g3 P7 n$ Y" S5 d
48. 
    
49.   IAudioEndpointVolume = interface(IUnknown)
    0 q( x# N3 |% Q9 Y& d! w6 m/ I
50.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    : {1 m! o# ]* P- _2 X5 ~: i
51.     function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    % g$ @1 N) k) X, H( F
52.     function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    ! e4 P2 m* L6 C. j
53.     function GetChannelCount(out PInteger): Integer; stdcall;
    
54.     function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    8 S  r1 P7 x( D
55.     function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    
56.     function GetMasterVolumeLevel(out fLevelDB: single): Integer; stdcall;
    1 ?$ s1 j, L# H
57.     function GetMasterVolumeLevelScaler(out fLevelDB: single): Integer; stdcall;
    
58.     function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    
59.     function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    $ `/ s" z5 H' p* P$ K6 Y
60.     function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double): Integer; stdcall;
    ; s' J% v) A& W% x+ r  ~& Z/ [# F
61.     function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double): Integer; stdcall;
    % {+ p. ^2 T" i2 H. z+ q4 Z
62.     function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall;
    0 L' _" M. A. D+ w
63.     function GetMute(out bMute: Boolean): Integer; stdcall;
    ; M/ ]8 {0 R" G( q7 j. h8 T
64.     function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
    
65.     function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    $ d; u; w) p8 r& A7 v# W) [
66.     function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall;
    8 M) x  j3 b+ `8 w  B
67.     function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    
68.     function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
69.   end;
    
70. 
    4 R8 O- @4 o. Y
71.   IAudioMeterInformation = interface(IUnknown)
    
72.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
    
73.   end;
    & q& \& j3 U+ V1 e7 h
74. 
    
75.   IPropertyStore = interface(IUnknown)
    & f6 ~3 Q* n4 Z8 U9 n3 ]
76.   end;
    
77. 
    
78.   IMMDevice = interface(IUnknown)
    5 K+ ]+ [. m2 g
79.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
80.     function Activate(const refId: TGUID;
    0 P; z9 t% i( |4 f* |
81.                       dwClsCtx: DWORD;
    % C  ]4 @2 }% `6 j! l) l8 Y4 E
82.                       pActivationParams: PInteger;
    7 h' M6 q; [( }! F) l
83.                       out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall;
    
84.     function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): Hresult; stdcall;
    
85.     function GetId(out ppstrId: PLPWSTR): Hresult; stdcall;
      C4 j4 Q8 Z/ w* M4 [
86.     function GetState(out State: Integer): Hresult; stdcall;
    
87.   end;
    8 X+ T7 m& T4 f5 A, p4 @' u/ C
88. 
    $ E  `; s8 ~$ k3 B$ z8 N, n( |; j- j
89. 
    * k# x' H$ p" M8 O
90.   IMMDeviceCollection = interface(IUnknown)
    
91.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    / z& H  v& [# ~; C* y0 {; o. q
92.   end;
    
93. 
    + r5 J- Z* G- R; Y6 c; X
94.   IMMNotificationClient = interface(IUnknown)
    . m# _, G4 W5 [% c8 E$ b
95.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    3 G$ F% Y7 z8 @' y1 X, }
96.   end;
    & D; V; q8 Q- d3 j4 s2 Z0 ?2 Y, B
97. 
    1 k% `( t& s- \
98.   IMMDeviceEnumerator = interface(IUnknown)
    
99.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
      C5 \$ D' v+ q+ M% T
100.     function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
     7 _( n0 B! f; O0 s
101.     function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall;
     
102.     function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall;
     ! ^* ^" G5 {: i0 S9 p
103.     function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall;
     + W0 R% `9 L. Q! A& Y* E
104.   end;
       {& y2 e9 R* b; `- n# Z# C
105. 
     2 \9 N4 h" n) `3 z" g4 F
106. implementation
     
107. 
     % \2 R2 m5 R, f7 X
108. end.
     
109. 
     + F* c$ i! K/ ?3 T  i
110. ///////////////////////
     ' J; ]5 c* n0 S" M" i- F& X+ H: T
111. simple sample :)
     7 @$ Y! e4 \' U- r# t
112. ///////////////////////
     
113. 
     ! w. l$ X* }! f8 _* x
114. //...... other code
     5 S% _& \) n  q! v% K8 ?- v
115. 
     4 L' w: y" w& \7 v+ @
116. uses ... ActiveX, MMDevApi, ...;
     
117. 
     
118. //...... other code
     1 V% b+ S) g, U3 `4 }0 z
119. 
     
120. var
     
121.   endpointVolume: IAudioEndpointVolume = nil;
     # S, F7 q$ K5 a* ]# _% g4 Q
122. 
     
123. procedure TForm1.FormCreate(Sender: TObject);
     ) k! ?; \& M  h9 U2 ]
124. var
     
125.   deviceEnumerator: IMMDeviceEnumerator;
     
126.   defaultDevice: IMMDevice;
     4 k9 ~- L/ W* M2 d
127. begin
     " V& @0 [: m. b* s; G. \/ C
128.   CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
     $ Y! L) F) }2 N" ?. E8 V
129.   deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
     
130.   defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
     ( J; C5 B! e& p4 N* t% r4 o
131. end;
     
132. 
     2 j7 ?2 \# B- Y0 R8 f& Z1 R
133. procedure TForm1.Button1Click(Sender: TObject);
     1 Q* z$ E) e/ S2 H
134. var
     2 x. }/ S5 T; l8 O% [/ `  B0 p
135.   VolumeLevel: Single;
     / v- I6 ?: r% I& m  ]; e7 O' i$ V+ r
136. begin
     
137.   if endpointVolume = nil then Exit;
     
138.   VolumeLevel := 0.50;
     
139.   endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
     
140.   Caption := Format('%1.8f', [VolumeLevel])
     
141. end;
     5 c2 t7 J- s, c4 i+ Y  {" a
142. 
     & X5 @; ?3 n" C. M7 o+ Q- D
143. /////////////////////////////////////
     * _8 q+ S  P2 n# j+ v7 o' |3 j
144. 
     6 \! }5 K& g! @% G5 |4 q; E6 F* S
145. // with best regards ToxicDream
     

复制代码