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

bini

来自： http://social.msdn.microsoft.com ... 9-a8c9-2e27eb9ec058
& j8 N; Y9 }+ g& Q  \By Mukta & ToxicDream

1. 
   6 {4 J7 ~& ?  {( \
2. //for delphi 5
   9 u! e) E  M7 ?; g* P% ?; P, D$ [
3. unit MMDevApi_tlb;
   
4. 
   1 o; `% d- ~# |* j
5. interface
   
6.   uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,ComObj;
   8 l6 D; ]3 p7 m: |  ~2 l/ `: F0 C
7. const
   - I2 H4 d  Q* V3 B1 G8 u
8.   // TypeLibrary Major and minor versions
   : [/ |% K+ @  n, o& g7 X* @9 t8 q  H
9. 
   
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}';
    9 C0 \4 s% f4 Z/ t
13.   IID_IMMDeviceCollection: TGUID                = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    - I0 O0 V! N% a3 \
14.   IID_IAudioEndpointVolume: TGUID               = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    
15.   IID_IAudioMeterInformation : TGUID            = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    
16.   IID_IAudioEndpointVolumeCallback: TGUID       = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    
17. 
    1 w1 h# A4 p2 q5 M+ Z) g
18.   DEVICE_STATE_ACTIVE                   = $00000001;
    
19.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
20.   DEVICE_STATE_NOTPRESENT               = $00000004;
    
21.   DEVICE_STATEMASK_ALL                  = $00000007;
    : J, T8 D. \: u- o  g0 a
22. 
    : j: y$ Y: Y4 I( p  q
23. type
    0 K- @2 m% t7 V' S2 ]8 P# f
24.   EDataFlow = TOleEnum;
    
25. const
    ; |$ k% E- ]9 L" |( O
26.   eRender                               = $00000000;
    * l# @! f" b* ?  N, a9 F! T
27.   eCapture                              = $00000001;
    
28.   eAll                                  = $00000002;
    3 }; T) ?8 I3 t+ }1 e
29.   EDataFlow_enum_count                  = $00000003;
    
30. 
    & A# b/ t5 C4 _2 k
31. type
    
32.   ERole = TOleEnum;
    0 w% r2 R" v& A# b) R" ]
33. const
    
34.   eConsole                              = $00000000;
    
35.   eMultimedia                           = $00000001;
    
36.   eCommunications                       = $00000002;
    
37.   ERole_enum_count                      = $00000003;
    
38. 
    % ]+ h8 B$ d2 ~9 a3 ~. S
39. type
    7 l. ~( [0 z+ ?, a
40.   IAudioEndpointVolumeCallback = interface(IUnknown)
    6 D) t8 w1 A' H+ I
41.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    + z( N0 Z! x+ C" j2 t' S
42.   end;
    + t$ e0 y, O( p* z. V8 X
43. 
    
44.   IMMAudioEndpointVolume = interface(IUnknown)
    ! H9 ]# w9 F8 E3 u
45.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    
46.     Function RegisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
47.     Function UnregisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    ; O/ x6 J/ z: z7 u! ?6 ^! ?, i
48.     Function GetChannelCount(out PInteger): Integer; stdcall;
    
49.     Function SetMasterVolumeLevel(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    9 c7 J/ N6 |( m
50.     Function SetMasterVolumeLevelScalar(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
51.     Function GetMasterVolumeLevel(out fLevelDB: double):Integer; stdcall;
    ( F. U+ j8 u% N9 i" Q( B, {" G
52.     Function GetMasterVolumeLevelScaler(out fLevel: double):Integer; stdcall;
    ) L! c8 D; _3 N8 `, Q' f
53.     Function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    $ N# e: v9 h7 Q" @' t$ C
54.     Function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    . ^2 X- o) H! p- D8 h# G3 j
55.     Function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double) : Integer; stdcall;
    
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;
    % [7 w! k# `' h- W1 S+ G2 q$ y3 x
60.     Function VolumeStepUp(pguidEventContext: TGUID) :Integer; stdcall;
    
61.     Function VolumeStepDown(pguidEventContext: TGUID) :Integer; stdcall;
    - v) n; ]& Z7 i9 G2 F9 b/ l
62.     Function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    5 R+ @5 L) P1 I( R
63.     Function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
64.   end;
    
65. 
    . K1 c# {, H! G; N
66. {  IAudioMeterInformation = interface(IUnknown)
    # H, J4 j& \1 w* B# j
67.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064']
    % f; Q/ e7 h, i! N
68.   end;}
    
69. 
    
70.   IPropertyStore = interface(IUnknown)
    1 `7 ]6 W5 R- b) |! ~) \
71.   end;
    
72. 
    3 i" V" u% D5 M) {! v  F
73. type
    
74.   IMMDevice = interface(IUnknown)
    
75.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    4 v8 P) E2 X3 W: O; I  o
76.     Function Activate(  refId :TGUID;
    ( a4 _& F0 F, @0 ~; A
77.                         dwClsCtx: DWORD;
    ) z7 k( \0 J3 E* V
78.                         pActivationParams: PInteger ;
    
79.                         out pEndpointVolume: IMMAudioEndpointVolume): Hresult; stdCall;
    
80.     Function OpenPropertyStore(stgmAccess: DWORD; out ppProperties :IPropertyStore): Hresult; stdcall;
    
81.     Function GetId(out ppstrId: PLPWSTR ): Hresult; stdcall;
    : i# A5 B4 q. R" e
82.     Function GetState(out State :Integer): Hresult; stdcall;
    - R# |( R+ ~5 Y6 g, t
83. 
    
84.   end;
    
85. 
    
86. 
    
87.   IMMDeviceCollection = interface(IUnknown)
    8 u3 y5 H  G8 c: P5 t( R+ V8 C
88.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    - ^& f9 j; m! R
89.   end;
    
90. 
    ; _8 B& A' Z$ f  b# X( }, `6 T
91.   IMMNotificationClient = interface (IUnknown)
    $ O  o2 N1 }9 J: Q/ {
92.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    
93.   end;
    , G! j1 K1 @5 z0 A
94. 
    ' `8 A: T- ~  V" i9 i: M) K
95.   IMMDeviceEnumerator = interface(IUnknown)
    $ a5 ^) V* \. q/ V8 }3 \  N  X
96.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    
97.     Function EnumAudioEndpoints( dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection:IMMDeviceCollection ): Hresult ; stdcall;
    / ]4 J1 C. O3 K- c) k. T* _
98.     Function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult ; stdcall;
    % G$ [5 d% [- ]5 `+ {! M4 x. l6 }
99.     Function GetDevice( pwstrId: pointer ; out Dev :IMMDevice) : HResult; stdcall;
    * t9 d  i  f& V; O" r3 K# D
100.     Function RegisterEndpointNotificationCallback(pClient :IMMNotificationClient) :Hresult; stdcall;
     
101.   end;
     
102. 
     6 _) l& J2 Z: {
103.   implementation
     
104. end.
     
105. 
     4 d5 y( D9 y2 i! I6 J; q: n( e
106. Thanks & Reagrds,
     
107. Mukta ...
     + ]( ^$ D+ F. n+ z

复制代码

1. 
   3 K  F6 c3 V( j+ u% V. P$ l0 s4 H
2. it's work in Delphi 7
   
3. //////////////////////////
   
4. 
   
5. unit MMDevApi;
   8 B6 G5 [) C' }) }9 c2 b
6. 
   
7. interface
   
8. 
     O' u8 _  V2 W  P7 y1 X
9. uses
   
10.   Windows, ActiveX, ComObj;
    
11. 
    
12. const
    9 u6 i, M) d0 P- f5 D. K. b- ^
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}';
    
17.   IID_IAudioEndpointVolume              : TGUID = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    ) G( V* y# B) S. [( Z" t6 {) Z
18.   IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    
19.   IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    : V3 ]. n: _  |  ~, b& m
20. 
    / A$ }& U( [5 X  k) J
21.   DEVICE_STATE_ACTIVE                   = $00000001;
    
22.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
23.   DEVICE_STATE_NOTPRESENT               = $00000004;
    8 ^- R9 u! T6 T) M
24.   DEVICE_STATEMASK_ALL                  = $00000007;
    * j2 v5 y5 [; a7 T$ h2 B' J9 S
25. 
    
26. type
    
27.   EDataFlow = TOleEnum;
    8 R1 e, @6 Y& w$ c1 U  p: z0 Z( ~
28. 
    
29. const
    
30.   eRender                               = $00000000;
    : w! V' p3 @( s9 J& n( h  ~( S
31.   eCapture                              = $00000001;
    7 Z* m3 [* I2 J. o
32.   eAll                                  = $00000002;
    8 s& C  n  \2 M% Z
33.   EDataFlow_enum_count                  = $00000003;
    : [& p4 \  V5 e; o" \' B" i
34. 
    5 @8 k3 ^; j! L; ^
35. type
    ) Y9 p1 u2 A: i& h8 F  d
36.   ERole = TOleEnum;
    
37. 
    . `) L& S1 {2 J5 w# f" i
38. const
    
39.   eConsole                              = $00000000;
    
40.   eMultimedia                           = $00000001;
    . _. z' ^/ s- M# p" L
41.   eCommunications                       = $00000002;
    
42.   ERole_enum_count                      = $00000003;
    
43. 
    
44. type
    
45.   IAudioEndpointVolumeCallback = interface(IUnknown)
    ' n) u# F5 |7 C$ u9 d' J3 o
46.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    
47.   end;
    ( {/ Q# v+ _- l) E
48. 
    
49.   IAudioEndpointVolume = interface(IUnknown)
    
50.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    6 i* Q6 |( _8 G5 ], s& A
51.     function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
52.     function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
53.     function GetChannelCount(out PInteger): Integer; stdcall;
      V5 ^& W0 }0 ^- @
54.     function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    
55.     function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    : V0 Q% k: m# F: K: y
56.     function GetMasterVolumeLevel(out fLevelDB: single): Integer; stdcall;
    / V% N# F( [, Z; k
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;
    ) n5 c+ g3 u9 Y5 U- c& b
60.     function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double): Integer; stdcall;
    
61.     function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double): Integer; stdcall;
    1 f! y) i; A$ M- h) s
62.     function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall;
    " V, r6 E" p( W8 {, o
63.     function GetMute(out bMute: Boolean): Integer; stdcall;
    " z; n& c( U( {8 K
64.     function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
    ' W# s9 W4 P' A  Z$ L- Q
65.     function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    4 a/ v( J& r) _6 C
66.     function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall;
    . i3 ^9 q9 {2 f
67.     function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    2 V  l* b2 j# H) {/ m$ S# Q2 T1 `1 _
68.     function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
69.   end;
    " n" [: _9 i* C8 R  @# P# q( w
70. 
    
71.   IAudioMeterInformation = interface(IUnknown)
    
72.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
    
73.   end;
    , r% ]- e1 j3 P4 j8 M7 T' Q
74. 
    $ z4 o. t2 f6 J+ k
75.   IPropertyStore = interface(IUnknown)
    1 t# O2 c( R0 b2 j6 Y
76.   end;
    
77. 
    4 Z8 \9 |4 N$ h$ g  E# ~
78.   IMMDevice = interface(IUnknown)
    
79.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
80.     function Activate(const refId: TGUID;
    
81.                       dwClsCtx: DWORD;
    
82.                       pActivationParams: PInteger;
    , ]8 K0 G' e: F# b
83.                       out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall;
    
84.     function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): Hresult; stdcall;
    
85.     function GetId(out ppstrId: PLPWSTR): Hresult; stdcall;
    
86.     function GetState(out State: Integer): Hresult; stdcall;
    
87.   end;
    
88. 
    
89. 
    
90.   IMMDeviceCollection = interface(IUnknown)
    ) B2 z' F0 u- N. d5 ]2 p0 H! r
91.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    & M$ j9 j2 f9 q! \1 ]: Z
92.   end;
    
93. 
    
94.   IMMNotificationClient = interface(IUnknown)
    3 K* W7 j5 p/ n# |$ a8 b: X
95.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    
96.   end;
    
97. 
    0 M1 s' Q+ N0 k4 R# k  n# y
98.   IMMDeviceEnumerator = interface(IUnknown)
    ! R( m. x2 r- z- ^. M5 Q( C
99.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    * p8 \, r* h& u) ^/ o7 E& W
100.     function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
     9 C/ K8 ]  E0 ]
101.     function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall;
     1 Y" M) m% v6 g! R
102.     function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall;
     
103.     function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall;
     
104.   end;
     
105. 
     / H2 j  ^* i0 h
106. implementation
     7 t) x  S! j  f8 B' v# M
107. 
     3 y) _4 H. p  D7 q) ?
108. end.
     2 C( T5 R, v1 w: ]! X
109. 
     
110. ///////////////////////
     
111. simple sample :)
     
112. ///////////////////////
     9 B1 f  Z- p7 F6 d- M) i
113. 
     
114. //...... other code
     ' b, f; ^$ y# U# U& @4 l+ p
115. 
     ; ^* S# `$ Y, X. c6 p" I7 K6 z
116. uses ... ActiveX, MMDevApi, ...;
     , {5 C( T! r% ?1 D+ z/ j6 N$ y
117. 
     
118. //...... other code
     % g3 w) F) j4 h) e
119. 
     
120. var
     8 _' n7 ?8 g" [) X. K9 k8 U
121.   endpointVolume: IAudioEndpointVolume = nil;
     
122. 
     
123. procedure TForm1.FormCreate(Sender: TObject);
     
124. var
     
125.   deviceEnumerator: IMMDeviceEnumerator;
     ; X' K. M) j6 T9 e( r8 i
126.   defaultDevice: IMMDevice;
     7 T" [! v; v8 C" s, g; ]$ l- s
127. begin
     + [6 v/ {3 M" \8 w' q- {* J- ?
128.   CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
     2 O% h+ C% Y4 a. V5 U& d5 J
129.   deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
     ( Z& w  {  y, N0 a4 Q
130.   defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
     3 i1 G1 Q. M7 f  r: P  s
131. end;
     
132. 
     
133. procedure TForm1.Button1Click(Sender: TObject);
     
134. var
     
135.   VolumeLevel: Single;
     
136. begin
     
137.   if endpointVolume = nil then Exit;
     
138.   VolumeLevel := 0.50;
     
139.   endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
     
140.   Caption := Format('%1.8f', [VolumeLevel])
     . l% e9 U( w/ W' H! B& f
141. end;
     
142. 
       `) ]: L9 x. Q0 y2 f& d2 Z
143. /////////////////////////////////////
     + |/ i4 h7 N2 U8 J, c
144. 
     
145. // with best regards ToxicDream
     2 p7 s9 P$ I5 {

复制代码