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

bini

来自： http://social.msdn.microsoft.com ... 9-a8c9-2e27eb9ec058
By Mukta & ToxicDream

1. 
   0 {; t7 z/ |* h9 f% ~* e; a% g7 H
2. //for delphi 5
   9 k  |, ]9 |, `9 ]
3. unit MMDevApi_tlb;
   , r: p; z. t+ Z$ d
4. 
   - ^3 W8 w5 c0 _0 O2 Z  M. _
5. interface
   ! Y$ o8 e2 y9 u" C9 a4 ]
6.   uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,ComObj;
   , ?  }0 i# G7 T/ B1 w
7. const
   ! n: g* `, C9 S, o, P
8.   // TypeLibrary Major and minor versions
   
9. 
   $ C4 R  P9 t7 S1 t/ F" w
10.   CLASS_IMMDeviceEnumerator: TGUID              = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    
11.   IID_IMMDeviceEnumerator: TGUID                = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    
12.   IID_IMMDevice: TGUID                          = '{D666063F-1587-4E43-81F1-B948E807363F}';
    $ Z! ~) ~8 O0 F  e0 b# q
13.   IID_IMMDeviceCollection: TGUID                = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    % p, A1 }$ F2 V% K1 \& S
14.   IID_IAudioEndpointVolume: TGUID               = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    
15.   IID_IAudioMeterInformation : TGUID            = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    2 o& W5 s' `! P) W5 G
16.   IID_IAudioEndpointVolumeCallback: TGUID       = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    
17. 
    
18.   DEVICE_STATE_ACTIVE                   = $00000001;
    $ L! O& i7 f) z0 r) m
19.   DEVICE_STATE_UNPLUGGED                = $00000002;
    0 T' d$ u5 G/ G7 {) S7 `8 }
20.   DEVICE_STATE_NOTPRESENT               = $00000004;
    
21.   DEVICE_STATEMASK_ALL                  = $00000007;
    
22. 
    
23. type
    $ V" s8 g# B! H, [
24.   EDataFlow = TOleEnum;
    
25. const
    ! c- W/ C9 b9 o1 \, e. V7 u
26.   eRender                               = $00000000;
    
27.   eCapture                              = $00000001;
    
28.   eAll                                  = $00000002;
    & m# A) W% `6 g
29.   EDataFlow_enum_count                  = $00000003;
    2 j- m' h# B  _! C7 }, S
30. 
    , U# l6 {* Z4 e6 t3 y. b. @
31. type
    
32.   ERole = TOleEnum;
    + p$ X, \5 l" @
33. const
    2 D! e6 `, w: u# u0 M% M  U
34.   eConsole                              = $00000000;
    
35.   eMultimedia                           = $00000001;
    
36.   eCommunications                       = $00000002;
    . q8 q( Q3 H; ~: O0 K- k- S
37.   ERole_enum_count                      = $00000003;
    1 l5 K6 D$ _) E$ T8 U/ M, e1 W& W
38. 
    
39. type
    ! v+ I4 e* p) K) V+ r3 U  S
40.   IAudioEndpointVolumeCallback = interface(IUnknown)
    
41.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    - {, [+ I2 s. i" J0 q
42.   end;
    . T: e& L7 J+ o2 _& F5 w9 p
43. 
    
44.   IMMAudioEndpointVolume = interface(IUnknown)
    
45.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    & p0 i% l# c. u1 p) _
46.     Function RegisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
47.     Function UnregisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
48.     Function GetChannelCount(out PInteger): Integer; stdcall;
    2 d( s0 L: M5 Z
49.     Function SetMasterVolumeLevel(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
50.     Function SetMasterVolumeLevelScalar(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
      a; L& |5 {+ Y  [% N2 s/ W
51.     Function GetMasterVolumeLevel(out fLevelDB: double):Integer; stdcall;
    : |8 J- m  ]" ^7 B
52.     Function GetMasterVolumeLevelScaler(out fLevel: double):Integer; stdcall;
    1 }! w# g. H: u
53.     Function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
54.     Function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    6 @$ G2 q# H0 L2 G) r) u/ u
55.     Function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double) : Integer; stdcall;
    1 i- U* @- K5 E# B1 S7 ~! o6 _& z
56.     Function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double) : Integer; stdcall;
    
57.     Function SetMute(bMute: Boolean ; pguidEventContext: TGUID) :Integer; stdcall;
    9 _4 f. V$ @1 ~. [, E
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;
    
61.     Function VolumeStepDown(pguidEventContext: TGUID) :Integer; stdcall;
    4 e4 [) ]' c% `5 |
62.     Function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    / K. K8 v3 C0 c2 R+ X! G+ \# {
63.     Function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
64.   end;
    
65. 
    " r" a) M' G. M; [3 D/ [" q
66. {  IAudioMeterInformation = interface(IUnknown)
    5 Z* J! f! O! n$ F3 u0 a* M
67.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064']
    
68.   end;}
    ! C5 g7 L% y& ?/ t
69. 
    ) f, f4 `- ?" U
70.   IPropertyStore = interface(IUnknown)
    
71.   end;
    , V4 `6 Q5 K# _6 A$ v4 s' P3 a! F
72. 
    ! q6 G( I) X3 y7 `7 ?) B2 i5 }
73. type
    
74.   IMMDevice = interface(IUnknown)
    
75.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
76.     Function Activate(  refId :TGUID;
    1 \; s- A) ]) P; F  Y5 ?
77.                         dwClsCtx: DWORD;
    
78.                         pActivationParams: PInteger ;
    ) [* J/ e8 `! n  Q% S
79.                         out pEndpointVolume: IMMAudioEndpointVolume): Hresult; stdCall;
    & E, h, q& C- e- F2 \8 n; J
80.     Function OpenPropertyStore(stgmAccess: DWORD; out ppProperties :IPropertyStore): Hresult; stdcall;
      {& Z& G2 t: f2 n
81.     Function GetId(out ppstrId: PLPWSTR ): Hresult; stdcall;
    
82.     Function GetState(out State :Integer): Hresult; stdcall;
    
83. 
    
84.   end;
    2 e  m3 l, {6 E# q9 `, c- J0 b
85. 
    
86. 
    
87.   IMMDeviceCollection = interface(IUnknown)
    / @: }3 A3 F3 Q- U
88.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    
89.   end;
    6 n7 c5 V0 W& ?
90. 
    
91.   IMMNotificationClient = interface (IUnknown)
    ; D1 q3 a% R3 W$ A3 A* @" _+ H
92.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    1 ]8 s0 m0 U* P" x5 F; h
93.   end;
    2 n7 P$ {! a; a$ X# ~" F
94. 
    ) O3 ]  b+ b& w1 \% |6 ?3 N
95.   IMMDeviceEnumerator = interface(IUnknown)
    & u) x; a1 \0 C! g
96.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    
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;
    : ?6 Z3 n, J7 z, x: Z8 F' F" J
100.     Function RegisterEndpointNotificationCallback(pClient :IMMNotificationClient) :Hresult; stdcall;
     % _; t0 p, }! n! v7 g
101.   end;
     
102. 
     - {) x, M, M- t* A3 G
103.   implementation
     
104. end.
     , g5 O4 W6 Z$ b% E3 V6 L( d! ~
105. 
     
106. Thanks & Reagrds,
     
107. Mukta ...
     

复制代码

1. 
   
2. it's work in Delphi 7
   
3. //////////////////////////
   " ^- l( J; R2 S
4. 
   
5. unit MMDevApi;
   2 L7 w% |8 {. o8 [9 p
6. 
   
7. interface
   8 u4 U( j, J# d+ j' t8 y
8. 
   4 n1 R+ F5 b' n3 P/ Z& o
9. uses
   " Z! N+ ?- H% G4 ?0 X  H2 E
10.   Windows, ActiveX, ComObj;
    
11. 
    : z! E# t- A! l$ w  c
12. const
    2 ]! |* A: }* o+ K' K+ T0 Q
13.   CLASS_IMMDeviceEnumerator             : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    
14.   IID_IMMDeviceEnumerator               : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    / p  t! Z8 ^9 h; l
15.   IID_IMMDevice                         : TGUID = '{D666063F-1587-4E43-81F1-B948E807363F}';
    
16.   IID_IMMDeviceCollection               : TGUID = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    ; _4 C' m3 }, n
17.   IID_IAudioEndpointVolume              : TGUID = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    * H# s' Y1 \$ E& ]( ?8 ~+ L
18.   IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    
19.   IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    * I8 ]: H! O( z6 H% q! q
20. 
    " C# h4 k; n" j1 }$ i/ B' _
21.   DEVICE_STATE_ACTIVE                   = $00000001;
    
22.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
23.   DEVICE_STATE_NOTPRESENT               = $00000004;
    * l3 @/ [5 M% ^8 t! R. u) t8 q4 o( V5 s
24.   DEVICE_STATEMASK_ALL                  = $00000007;
    ; R" P& Z* T# ]; v  ?, T* J- X
25. 
    
26. type
    1 C# }3 {: b6 P' W
27.   EDataFlow = TOleEnum;
      P$ _* O, m# m1 V& p3 h9 [
28. 
    ' I% F7 V% J/ Y( K: J
29. const
    ; D) |+ }# \/ v8 \/ d& Y# P; `
30.   eRender                               = $00000000;
    
31.   eCapture                              = $00000001;
    ) h6 O& f" j8 e/ N. Q& z% ], S
32.   eAll                                  = $00000002;
    8 y8 ?! l& E' e) i/ W* r& }
33.   EDataFlow_enum_count                  = $00000003;
    
34. 
    ! N  c' W, e0 \! s- L' {3 M
35. type
    + z$ ]4 h; R9 l  |, @" q# J9 I+ m
36.   ERole = TOleEnum;
    9 p; m# }' q$ n+ J. v) }6 t) L
37. 
    5 V; M) K: Z+ Y. V& R
38. const
    0 L9 S& g9 f. o7 U2 X
39.   eConsole                              = $00000000;
    
40.   eMultimedia                           = $00000001;
    
41.   eCommunications                       = $00000002;
    
42.   ERole_enum_count                      = $00000003;
    7 a6 [3 ?( u- {$ E
43. 
    4 @; D! N. K, ^- M& @: }0 o0 F: C
44. type
    
45.   IAudioEndpointVolumeCallback = interface(IUnknown)
    2 g4 e! c( F9 ]9 ~- Y$ M
46.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    
47.   end;
    9 X: U0 E  h4 G" U
48. 
    7 \' J% u; }! i4 f3 l% \5 {+ e$ A8 g
49.   IAudioEndpointVolume = interface(IUnknown)
    ( e3 V4 ?5 Q9 c) s, q2 }+ e; O" m
50.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    # {' z0 ?3 R, l" V! U( |
51.     function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    1 ~" c# L" T; D: h7 k, [" }) e
52.     function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
53.     function GetChannelCount(out PInteger): Integer; stdcall;
    * h  v" O- K  _7 c& ]8 D1 Q6 g  v' E
54.     function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    
55.     function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    
56.     function GetMasterVolumeLevel(out fLevelDB: single): Integer; stdcall;
    
57.     function GetMasterVolumeLevelScaler(out fLevelDB: single): Integer; stdcall;
    
58.     function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    8 `$ Z- J: y) D0 B, f- J
59.     function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    8 t8 K( n  T) r
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;
    , c$ l7 _; W5 o3 v9 F; j
63.     function GetMute(out bMute: Boolean): Integer; stdcall;
    
64.     function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
    ; F5 _& c7 O+ H4 z& _# S5 u
65.     function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    
66.     function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall;
    - C0 D/ t0 L' }: M, Y9 X
67.     function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    
68.     function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
      A$ {+ D" s# K7 H5 o
69.   end;
    
70. 
    * O& i" m* H9 U" x
71.   IAudioMeterInformation = interface(IUnknown)
      }, }! z( ]& P( @' H
72.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
    
73.   end;
    
74. 
    0 P8 x! [8 y8 x) h  P0 ?4 K
75.   IPropertyStore = interface(IUnknown)
    
76.   end;
    
77. 
    9 ^% C6 M& Z& l  P6 M
78.   IMMDevice = interface(IUnknown)
    . w" T+ p$ r/ f, Y! ^) P
79.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
80.     function Activate(const refId: TGUID;
    
81.                       dwClsCtx: DWORD;
    
82.                       pActivationParams: PInteger;
    - g  ^8 T5 P' }2 ~2 u5 |( F
83.                       out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall;
    ! V+ P% x; p, J( \
84.     function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): Hresult; stdcall;
    1 R+ f  D: @; v* H
85.     function GetId(out ppstrId: PLPWSTR): Hresult; stdcall;
    
86.     function GetState(out State: Integer): Hresult; stdcall;
    $ V3 i( X3 r8 b
87.   end;
    5 p6 |) T. K" X. f. u* s' x
88. 
    
89. 
    
90.   IMMDeviceCollection = interface(IUnknown)
    ! [! U( _! P" _& f. D8 K
91.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    * K8 u: e( B$ Q7 [1 _' |4 ^# ?/ F
92.   end;
    
93. 
    , k$ n( U/ }1 B: y+ m( `, U' U
94.   IMMNotificationClient = interface(IUnknown)
    
95.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    
96.   end;
    
97. 
    
98.   IMMDeviceEnumerator = interface(IUnknown)
    9 K+ Q7 S0 {+ \4 Z' i3 p
99.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    - e* Z& l! j, Y& a) G- c5 c
100.     function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
     ( [% t9 p) u5 ^/ h) D
101.     function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall;
     
102.     function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall;
     5 ?% ~5 g/ Q+ j. t
103.     function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall;
     
104.   end;
     1 @, i  W, O0 C1 k) ]4 X% X' T+ y
105. 
     
106. implementation
     9 c0 m! l, c& d! _# |# E- s- Q
107. 
     ( M, M- ~2 \2 {$ l1 m
108. end.
     
109. 
     
110. ///////////////////////
     
111. simple sample :)
     
112. ///////////////////////
     
113. 
     
114. //...... other code
     
115. 
     - w0 V/ l' P1 v; j% h. A
116. uses ... ActiveX, MMDevApi, ...;
     
117. 
     : V. S0 W; A; d
118. //...... other code
     : L. L) c5 e! _$ j) G
119. 
     7 v. ]$ c1 F, G5 q" S. L' O; ?" B! ]$ {
120. var
     ( T2 E. P8 i6 O0 b7 l, r/ U7 Q
121.   endpointVolume: IAudioEndpointVolume = nil;
     5 b; F4 ?  T; f) W2 l: s+ {+ p) T
122. 
     
123. procedure TForm1.FormCreate(Sender: TObject);
     
124. var
     0 j5 [$ v! f# y' ^: b7 d4 w
125.   deviceEnumerator: IMMDeviceEnumerator;
     / F( w9 G  X* l, v
126.   defaultDevice: IMMDevice;
     8 b7 i3 {  y/ Y
127. begin
     ! b% j7 s/ [- d# H' a
128.   CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
     , A$ {" K1 q* O5 m2 e+ L  b) t2 I- h
129.   deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
     , ^5 ?7 \/ h) m, K$ m7 u, g7 G
130.   defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
     % \2 ?# Q7 H  e5 v3 C
131. end;
     5 ^- l( K9 q: e/ h' l4 |
132. 
     0 Z! k- S( P6 K1 Y3 @, d* q
133. procedure TForm1.Button1Click(Sender: TObject);
     4 f% J% e2 z* I7 |. N2 z
134. var
     
135.   VolumeLevel: Single;
     
136. begin
     ! g7 u! ?' ]  g& I
137.   if endpointVolume = nil then Exit;
     % z' q* c# @- ?9 r
138.   VolumeLevel := 0.50;
     
139.   endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
     9 s! L; X$ g" v8 y. }
140.   Caption := Format('%1.8f', [VolumeLevel])
     , b4 o# i0 v2 C" ^# r: b0 n
141. end;
     ! ]" L" b! P5 ?8 ?
142. 
     
143. /////////////////////////////////////
     
144. 
     7 c* Q0 d+ X6 `. X
145. // with best regards ToxicDream
     * }) w, R1 A: X( I

复制代码