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

bini

来自： http://social.msdn.microsoft.com ... 9-a8c9-2e27eb9ec058
* M! q9 i8 H4 x' h# ]By Mukta & ToxicDream

1. 
   " L" Q2 w# {# f5 I
2. //for delphi 5
     O0 @! a! `1 I# v: v7 ?
3. unit MMDevApi_tlb;
   + {/ I7 d. I9 i) H
4. 
   9 C5 z7 F% C. m9 {+ _
5. interface
   4 z4 U; M+ U" ?8 I3 c" c+ K
6.   uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,ComObj;
   6 ]4 S# M1 K: s# Y8 S; s0 m
7. const
   
8.   // TypeLibrary Major and minor versions
   " O% n' A7 l+ H0 A
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}';
    
13.   IID_IMMDeviceCollection: TGUID                = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    * L$ \2 N; o2 O* p. V: d8 c/ d
14.   IID_IAudioEndpointVolume: TGUID               = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    9 T3 Y0 h1 a: k5 s+ O# b8 V+ `) D* f
15.   IID_IAudioMeterInformation : TGUID            = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    
16.   IID_IAudioEndpointVolumeCallback: TGUID       = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    : l' c9 s) V/ F, [; U
17. 
    
18.   DEVICE_STATE_ACTIVE                   = $00000001;
    6 a4 e! u2 G: C, R$ r7 o9 o/ e& z# S
19.   DEVICE_STATE_UNPLUGGED                = $00000002;
    ' |( `; L, H" Q* M: Z
20.   DEVICE_STATE_NOTPRESENT               = $00000004;
    * J% Q  D/ H) H; H4 J; N. J& I1 t: J. R1 J
21.   DEVICE_STATEMASK_ALL                  = $00000007;
    $ a/ |' N* j" g9 Y& f
22. 
    . O- k+ D0 t+ @% J# w: P3 \8 Y
23. type
    
24.   EDataFlow = TOleEnum;
    
25. const
    ! ]/ |0 Q% P9 ~3 P* l' S
26.   eRender                               = $00000000;
    1 m8 Q1 U) C) d7 ]/ ?
27.   eCapture                              = $00000001;
    2 O; W$ x$ z5 h: p
28.   eAll                                  = $00000002;
    
29.   EDataFlow_enum_count                  = $00000003;
    
30. 
    & m6 n9 ]5 w4 z/ l+ ^! ^: _6 ?9 A# g" H
31. type
    * c+ [! p9 c$ B& t* ~) J
32.   ERole = TOleEnum;
    
33. const
    
34.   eConsole                              = $00000000;
    * w+ e( x! p9 W* T/ u2 S
35.   eMultimedia                           = $00000001;
    , m! D! q/ @* a
36.   eCommunications                       = $00000002;
    
37.   ERole_enum_count                      = $00000003;
    
38. 
    ; t( L1 r4 w$ F7 J* Q
39. type
    ! N; a# ?# i& w2 K: X, j9 a
40.   IAudioEndpointVolumeCallback = interface(IUnknown)
    
41.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    
42.   end;
    6 e" M! F$ ^" H* B( e0 B$ Y1 q
43. 
    
44.   IMMAudioEndpointVolume = interface(IUnknown)
    / Z) |5 b5 N; S  \$ f: [
45.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    , O& S( @: P# W8 b$ h% F0 c
46.     Function RegisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
47.     Function UnregisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
48.     Function GetChannelCount(out PInteger): Integer; stdcall;
    
49.     Function SetMasterVolumeLevel(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    * r4 H& V& V8 X; p
50.     Function SetMasterVolumeLevelScalar(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    - E. ~, a( B; C6 ^9 d
51.     Function GetMasterVolumeLevel(out fLevelDB: double):Integer; stdcall;
    
52.     Function GetMasterVolumeLevelScaler(out fLevel: double):Integer; stdcall;
    
53.     Function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    6 z$ H) M+ E; j% B! w
54.     Function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    ) w" J9 [; M0 N- ^0 l
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;
    : w! ~! k# d, ~8 `
60.     Function VolumeStepUp(pguidEventContext: TGUID) :Integer; stdcall;
    
61.     Function VolumeStepDown(pguidEventContext: TGUID) :Integer; stdcall;
    
62.     Function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    
63.     Function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
64.   end;
    
65. 
    & \5 s# k- H1 |( u# n
66. {  IAudioMeterInformation = interface(IUnknown)
    ' Z1 S( Z, s1 U8 c8 Y; _2 R
67.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064']
    5 R: s6 o  U1 G/ ~
68.   end;}
    
69. 
    / n, W  A" j5 W% L6 @5 ]/ Y# a
70.   IPropertyStore = interface(IUnknown)
    1 u1 ~+ R* ]/ l" G; U2 S5 B
71.   end;
    
72. 
    
73. type
    / C; O" ]. ^9 i' _
74.   IMMDevice = interface(IUnknown)
    
75.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
76.     Function Activate(  refId :TGUID;
    $ ~, k# E4 J$ x$ u6 h
77.                         dwClsCtx: DWORD;
    / z; x% r; f; ]/ J- X, {6 g0 _. N
78.                         pActivationParams: PInteger ;
    ! w+ h% H( a7 Z! b# ^
79.                         out pEndpointVolume: IMMAudioEndpointVolume): Hresult; stdCall;
    
80.     Function OpenPropertyStore(stgmAccess: DWORD; out ppProperties :IPropertyStore): Hresult; stdcall;
      s- I2 I5 I6 R) V, i; }- x
81.     Function GetId(out ppstrId: PLPWSTR ): Hresult; stdcall;
    
82.     Function GetState(out State :Integer): Hresult; stdcall;
    ! p, b4 o: k1 s
83. 
    # J" n( \- ^2 c  i& H. t
84.   end;
    
85. 
    
86. 
    
87.   IMMDeviceCollection = interface(IUnknown)
    2 V! B5 x8 k+ v' c, J! J& k4 p
88.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    
89.   end;
      U/ q! Q* L+ U3 q1 A* d2 H
90. 
    - f5 V; X( T' }  a* p' A( ^
91.   IMMNotificationClient = interface (IUnknown)
    5 R# [2 [/ v! `* M3 ?0 `
92.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    
93.   end;
    
94. 
    
95.   IMMDeviceEnumerator = interface(IUnknown)
    
96.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    # n7 n# a- y/ a3 q2 w; H
97.     Function EnumAudioEndpoints( dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection:IMMDeviceCollection ): Hresult ; stdcall;
    ; y# r9 M: @% \% j5 i" k
98.     Function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult ; stdcall;
    
99.     Function GetDevice( pwstrId: pointer ; out Dev :IMMDevice) : HResult; stdcall;
    / _1 I- J# s/ I/ w  e* x! ]& W
100.     Function RegisterEndpointNotificationCallback(pClient :IMMNotificationClient) :Hresult; stdcall;
     9 ~2 ^- J! W6 v( i& q( T4 D
101.   end;
     
102. 
     ! Q) C: Q+ @# \$ m( _
103.   implementation
     
104. end.
     $ I- T7 B' B) P3 _
105. 
     1 d5 H. f8 K+ z, t
106. Thanks & Reagrds,
     1 ~& E, ~, D0 T, H/ M
107. Mukta ...
     . A7 Q/ N  j- `1 x: q

复制代码

1. 
   4 S5 ?9 O: W/ [5 ^& M
2. it's work in Delphi 7
   ) t1 `, l: q5 k0 R
3. //////////////////////////
   
4. 
   - o: f/ w  ^4 Z; N% o, `) x2 h5 s
5. unit MMDevApi;
   
6. 
   / \* q) h* `: B& O' B
7. interface
   2 G' V# m3 X9 @) T
8. 
   & M3 @9 C. X( ?
9. uses
   
10.   Windows, ActiveX, ComObj;
    
11. 
    6 D7 q, _; O: G; \. R3 h3 L) H7 N
12. const
    
13.   CLASS_IMMDeviceEnumerator             : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    1 M3 b8 _: ]! g* s8 N1 n
14.   IID_IMMDeviceEnumerator               : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    
15.   IID_IMMDevice                         : TGUID = '{D666063F-1587-4E43-81F1-B948E807363F}';
    + ~6 o; P! I  B7 g* p/ R
16.   IID_IMMDeviceCollection               : TGUID = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    
17.   IID_IAudioEndpointVolume              : TGUID = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    $ c6 N/ q) B& T7 V1 V6 F( d
18.   IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    
19.   IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    , {4 W+ |( H4 m- y) L- q4 g6 j
20. 
    / y$ n# W" E4 c: F
21.   DEVICE_STATE_ACTIVE                   = $00000001;
    $ ^1 {5 p$ j' N: o
22.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
23.   DEVICE_STATE_NOTPRESENT               = $00000004;
    
24.   DEVICE_STATEMASK_ALL                  = $00000007;
    7 T4 f$ b+ A5 O7 ?. k0 w, D" g2 `
25. 
    ' X: _& B. ]# J
26. type
    
27.   EDataFlow = TOleEnum;
    
28. 
    
29. const
    
30.   eRender                               = $00000000;
    + C1 E* K* K, G2 p9 b
31.   eCapture                              = $00000001;
    2 U. ?$ {7 {' P4 b0 }5 Y" Y
32.   eAll                                  = $00000002;
    ! f; X/ {! i1 s% d0 j' @  {* K" d8 {) g
33.   EDataFlow_enum_count                  = $00000003;
    
34. 
    
35. type
    $ j. t; H, P# Y8 K
36.   ERole = TOleEnum;
    $ ~5 r5 C; R0 I# S8 {
37. 
    + ]  Y  m; Y' G8 w$ S6 f  ~
38. const
    3 [+ U/ }' Z4 x# U; S+ Y( i
39.   eConsole                              = $00000000;
    4 l4 Y9 S6 {+ s
40.   eMultimedia                           = $00000001;
    $ e" M1 t/ S* ?2 A- v5 O
41.   eCommunications                       = $00000002;
    
42.   ERole_enum_count                      = $00000003;
    
43. 
    ) h# z+ k- H; l4 g9 O4 V9 ?% t2 e3 k
44. type
    % W) P2 I" [% V& W) C  W
45.   IAudioEndpointVolumeCallback = interface(IUnknown)
    3 x& k( x+ V8 o: G; w  h
46.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    * M2 J! }2 G4 K. {
47.   end;
    
48. 
    % M7 D! Z: K* q
49.   IAudioEndpointVolume = interface(IUnknown)
    
50.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    6 r* B( K8 h6 Q) g
51.     function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
      J4 a& N! s. v6 X' \$ R% j2 W
52.     function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
53.     function GetChannelCount(out PInteger): Integer; stdcall;
    & r. C' `1 c' @) ~
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;
    ' \0 y. x# Y9 T' s4 q7 q
57.     function GetMasterVolumeLevelScaler(out fLevelDB: single): Integer; stdcall;
    
58.     function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    - b" R( e! j& x. r% q5 K) q1 N; U
59.     function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    
60.     function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double): Integer; stdcall;
    
61.     function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double): Integer; stdcall;
    4 O" x2 e4 a3 {7 p  Z; [. l; P
62.     function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall;
    ! Z9 B, h0 ^! N- `( {, k. `* g
63.     function GetMute(out bMute: Boolean): Integer; stdcall;
    
64.     function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
      i# Y" I2 _- i4 t! U. m
65.     function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    
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. 
    0 x5 p- }( W# ]6 y
71.   IAudioMeterInformation = interface(IUnknown)
    
72.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
    
73.   end;
    
74. 
    
75.   IPropertyStore = interface(IUnknown)
    
76.   end;
    % i  E' O: [6 j$ I4 m
77. 
    
78.   IMMDevice = interface(IUnknown)
    
79.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    ! b* U7 y4 a5 f
80.     function Activate(const refId: TGUID;
    0 W0 X: ]1 |/ W
81.                       dwClsCtx: DWORD;
    
82.                       pActivationParams: PInteger;
    ) `1 N! W$ P+ S5 h! r9 I
83.                       out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall;
    5 h% s+ ?; X5 L5 u( D% N
84.     function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): Hresult; stdcall;
    9 V0 T; V$ {; t/ x
85.     function GetId(out ppstrId: PLPWSTR): Hresult; stdcall;
    
86.     function GetState(out State: Integer): Hresult; stdcall;
    
87.   end;
    ! R& Z8 C7 L5 N" K  k
88. 
    - J/ `+ N2 A, b& n, {* h& A& X* r
89. 
    * I# N9 }' ?2 ?: e$ ]8 F+ Q# @
90.   IMMDeviceCollection = interface(IUnknown)
    % q+ ~5 [' K3 b( P; @9 c
91.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    ( V" B; j% @* T
92.   end;
    
93. 
    % v& {! l+ J" c9 p! ^; x* }: h
94.   IMMNotificationClient = interface(IUnknown)
    
95.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    # Z- Z' `" H$ ~8 S# s
96.   end;
    " o: ~7 f' F! O
97. 
    ! L+ o$ m; X# }7 X- t4 B; ~
98.   IMMDeviceEnumerator = interface(IUnknown)
    
99.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    % c6 G& U5 ]  o; P( s3 Q& M
100.     function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
     
101.     function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall;
     
102.     function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall;
     
103.     function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall;
     : R6 o2 U. p7 u& t6 q" I1 w
104.   end;
     
105. 
     
106. implementation
     
107. 
     
108. end.
     
109. 
     - D1 Q) i" a0 O7 N5 r  O
110. ///////////////////////
     + K0 m. z6 U; n0 @" r+ p( `, u
111. simple sample :)
     
112. ///////////////////////
     ; G& j9 d" A6 H* J
113. 
     * |3 s+ u$ a; N# l4 d
114. //...... other code
     
115. 
     
116. uses ... ActiveX, MMDevApi, ...;
     
117. 
     
118. //...... other code
     5 O0 l7 k$ {  e9 q# C9 e- z
119. 
     $ \3 G, n3 g: N  U
120. var
     * A9 C: i7 g- S3 A2 S/ l
121.   endpointVolume: IAudioEndpointVolume = nil;
     5 q3 k+ I+ v6 N
122. 
     + [5 }0 t% X/ E" ~" f, k; b. h, G
123. procedure TForm1.FormCreate(Sender: TObject);
     
124. var
     9 ^! c7 s6 |  a8 O+ D. ~
125.   deviceEnumerator: IMMDeviceEnumerator;
     ) f2 p( J/ u4 O
126.   defaultDevice: IMMDevice;
     
127. begin
     
128.   CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
     
129.   deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
     ! K3 _/ M# E) }6 ]* s7 X) ?( ]* }
130.   defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
     
131. end;
     
132. 
     
133. procedure TForm1.Button1Click(Sender: TObject);
     
134. var
     4 r4 D3 n4 M, d- q/ b' d2 ^
135.   VolumeLevel: Single;
     ' I7 F7 I# j, a$ ?  p3 d: y4 V
136. begin
     9 H& l! a; y' ]; v
137.   if endpointVolume = nil then Exit;
     
138.   VolumeLevel := 0.50;
     ' Z7 D5 ^: j: K( B0 R
139.   endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
     0 p+ U, |7 ]1 ?
140.   Caption := Format('%1.8f', [VolumeLevel])
     ) d# |/ n) t; D+ U' O
141. end;
     " C5 T6 ?/ X5 K, v
142. 
     
143. /////////////////////////////////////
     
144. 
     
145. // with best regards ToxicDream
     

复制代码