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

bini

来自： http://social.msdn.microsoft.com ... 9-a8c9-2e27eb9ec058
4 U+ d' _1 C: x0 Y# S, B$ q+ M7 RBy Mukta & ToxicDream

1. 
   : _- T' W. p% Z9 C0 o3 i5 E5 a
2. //for delphi 5
   
3. unit MMDevApi_tlb;
   5 |% |7 v6 G  L5 U
4. 
   . }2 e( h( F9 m8 n. b
5. interface
   
6.   uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,ComObj;
   9 i/ d& U, r# V% s/ N2 U
7. const
   
8.   // TypeLibrary Major and minor versions
   
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 A$ `% O- ~# s- C
13.   IID_IMMDeviceCollection: TGUID                = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    
14.   IID_IAudioEndpointVolume: TGUID               = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    & c! z& w* T; W% d  P% l$ V
15.   IID_IAudioMeterInformation : TGUID            = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    0 ^7 T2 F! U% k
16.   IID_IAudioEndpointVolumeCallback: TGUID       = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    
17. 
    
18.   DEVICE_STATE_ACTIVE                   = $00000001;
    8 \5 c- c$ L2 v9 |% `! \6 O
19.   DEVICE_STATE_UNPLUGGED                = $00000002;
      A# h! `% U  A0 w& T
20.   DEVICE_STATE_NOTPRESENT               = $00000004;
    
21.   DEVICE_STATEMASK_ALL                  = $00000007;
    * N  R; e/ l+ X# d
22. 
    , n& |/ i% K) _  g) d; L
23. type
    0 l: C: `, Z- @) E0 f
24.   EDataFlow = TOleEnum;
    
25. const
    
26.   eRender                               = $00000000;
    8 K1 k( l8 Q) c' @  O2 w7 b+ s
27.   eCapture                              = $00000001;
    * S6 i, M9 k) e
28.   eAll                                  = $00000002;
    
29.   EDataFlow_enum_count                  = $00000003;
    3 Q) R) M! U' T6 R/ a# b: V  |
30. 
    
31. type
    9 @  }8 `! D7 R& }- ?3 D  {- K
32.   ERole = TOleEnum;
    
33. const
    4 K9 s$ R' G5 a; ^
34.   eConsole                              = $00000000;
    
35.   eMultimedia                           = $00000001;
    
36.   eCommunications                       = $00000002;
    , @- [/ A) l' R; \. h! [
37.   ERole_enum_count                      = $00000003;
    " ~, W. e1 _( B: ]! F4 q& c- a
38. 
    
39. type
    + x% t' F+ o! m# p
40.   IAudioEndpointVolumeCallback = interface(IUnknown)
    7 [0 L3 ?7 X) a3 m; h! ?, J
41.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    1 `; D9 a8 q# l- ?3 U
42.   end;
    
43. 
    , E9 I* R, B  }
44.   IMMAudioEndpointVolume = interface(IUnknown)
    
45.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    * E5 M2 i  Q# k
46.     Function RegisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
47.     Function UnregisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
48.     Function GetChannelCount(out PInteger): Integer; stdcall;
    ( J. I2 u3 g$ a! a  U! s( b
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;
    4 x% w7 v3 p4 [3 ~4 w$ n0 g8 r8 H% x* _
53.     Function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
54.     Function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    . e# u$ C5 k7 R/ E5 I) a
55.     Function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double) : Integer; stdcall;
    ! B1 f, Y0 R  t& \# y& D3 G$ @  _
56.     Function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double) : Integer; stdcall;
    
57.     Function SetMute(bMute: Boolean ; pguidEventContext: TGUID) :Integer; stdcall;
    " J1 J7 `# {/ f4 L4 N
58.     Function GetMute(out bMute: Boolean ) :Integer; stdcall;
    
59.     Function GetVolumeStepInfo( pnStep: Integer; out pnStepCount: Integer):Integer; stdcall;
    # Y3 x- q: o" X2 d$ [* A! V
60.     Function VolumeStepUp(pguidEventContext: TGUID) :Integer; stdcall;
    4 A. ?7 D, \$ y& E' H  U
61.     Function VolumeStepDown(pguidEventContext: TGUID) :Integer; stdcall;
    6 m! y" L# N& A6 t! R9 B$ e1 S
62.     Function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    
63.     Function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
64.   end;
    
65. 
    
66. {  IAudioMeterInformation = interface(IUnknown)
    : e& P2 ]9 [4 B
67.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064']
    % }) Y0 H; g2 X, |: h2 |/ ~7 V
68.   end;}
    
69. 
    
70.   IPropertyStore = interface(IUnknown)
    
71.   end;
    " G- Y6 F8 i$ v. P6 a/ N
72. 
    
73. type
    
74.   IMMDevice = interface(IUnknown)
    - x. H* }8 F2 H: Q
75.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
76.     Function Activate(  refId :TGUID;
    ; y/ P5 @- P3 g
77.                         dwClsCtx: DWORD;
    # a6 w# r' p" D+ N# ^' g: U7 D
78.                         pActivationParams: PInteger ;
    " Y$ r& \, w, T, A+ g& B5 [
79.                         out pEndpointVolume: IMMAudioEndpointVolume): Hresult; stdCall;
    
80.     Function OpenPropertyStore(stgmAccess: DWORD; out ppProperties :IPropertyStore): Hresult; stdcall;
    
81.     Function GetId(out ppstrId: PLPWSTR ): Hresult; stdcall;
    
82.     Function GetState(out State :Integer): Hresult; stdcall;
    
83. 
    
84.   end;
    $ C2 D6 s" y, v8 E5 G7 n8 T! h
85. 
    5 f6 _. t: f% f+ y
86. 
    
87.   IMMDeviceCollection = interface(IUnknown)
    
88.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    
89.   end;
    3 D6 o4 ]. o4 G+ d0 {& h
90. 
    
91.   IMMNotificationClient = interface (IUnknown)
    ! Z0 ^8 W) \! L
92.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    & ?8 ~) j% N( J, |0 J2 }0 a& R
93.   end;
    
94. 
    - ]+ `8 I9 w9 `- a) s) G1 I
95.   IMMDeviceEnumerator = interface(IUnknown)
    ) q; z3 |- N9 T; L7 @
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;
    " y4 h% {- y5 D9 O4 C
99.     Function GetDevice( pwstrId: pointer ; out Dev :IMMDevice) : HResult; stdcall;
    
100.     Function RegisterEndpointNotificationCallback(pClient :IMMNotificationClient) :Hresult; stdcall;
     6 J: p2 f( l4 ^( ^% Q# b% }) V8 S( w
101.   end;
     ( d& e, G$ t, I3 T5 A  Q9 n
102. 
     
103.   implementation
     
104. end.
     
105. 
     
106. Thanks & Reagrds,
     
107. Mukta ...
     2 ?4 x+ z0 A0 h; S# a1 A

复制代码

1. 
   3 E8 c2 s7 T5 y
2. it's work in Delphi 7
   ; X: k5 G- K* f* Y% U3 t& q( p
3. //////////////////////////
   
4. 
   
5. unit MMDevApi;
   
6. 
   
7. interface
   
8. 
   
9. uses
   
10.   Windows, ActiveX, ComObj;
    3 \; x+ G. q" j6 }2 [2 Q' Z
11. 
    6 \0 w0 S8 d/ g
12. const
    * j- c, }8 @8 c" u  J$ g9 h4 [
13.   CLASS_IMMDeviceEnumerator             : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    
14.   IID_IMMDeviceEnumerator               : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    : A8 i7 Y* T3 `
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}';
    
18.   IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    ' V5 h, w" D5 i# n7 n
19.   IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    , w' F8 t! p. a" Q( Y  [
20. 
    
21.   DEVICE_STATE_ACTIVE                   = $00000001;
    
22.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
23.   DEVICE_STATE_NOTPRESENT               = $00000004;
    1 G) q% z" D8 p% `5 h1 ~
24.   DEVICE_STATEMASK_ALL                  = $00000007;
    
25. 
    
26. type
    : o2 G9 i2 o* G( j1 E8 n) j1 V
27.   EDataFlow = TOleEnum;
    / P+ J1 `3 t$ n( p" M
28. 
    " I% _+ m* j& z6 U7 f' m
29. const
    
30.   eRender                               = $00000000;
    3 C' |/ m+ d5 X
31.   eCapture                              = $00000001;
    / X; I) z4 p& ^* [" q  ^
32.   eAll                                  = $00000002;
    
33.   EDataFlow_enum_count                  = $00000003;
    
34. 
    
35. type
    
36.   ERole = TOleEnum;
    
37. 
    
38. const
    / l* H- L  e- b# z( X
39.   eConsole                              = $00000000;
    1 ?8 a6 M4 ?- W9 o
40.   eMultimedia                           = $00000001;
    
41.   eCommunications                       = $00000002;
    : L, ~7 F2 W2 u1 s! U
42.   ERole_enum_count                      = $00000003;
    : c: ], w( H# E
43. 
    $ l& w8 `' |. T7 V: V) }
44. type
    2 b! J3 q: q# p) A1 H% |4 Q
45.   IAudioEndpointVolumeCallback = interface(IUnknown)
    
46.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    3 u% o% B7 k+ s
47.   end;
    " f4 z/ ~% E1 p. a4 _
48. 
    $ G6 U' ]" S7 k" e! R3 H
49.   IAudioEndpointVolume = interface(IUnknown)
    8 q- F+ J8 i, E# p& W' H# P' E6 F
50.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    % H+ t7 @' g2 N+ {3 `
51.     function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    4 ?5 a/ M( T9 ]
52.     function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
53.     function GetChannelCount(out PInteger): Integer; stdcall;
    , {$ O- f- k1 @, B) g! B6 V
54.     function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    4 S3 n! J: w. f5 {+ o; c0 H
55.     function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    7 B5 {; D; F( Z* ]
56.     function GetMasterVolumeLevel(out fLevelDB: single): Integer; stdcall;
    , B( }6 [8 W( @3 X6 n
57.     function GetMasterVolumeLevelScaler(out fLevelDB: single): Integer; stdcall;
    
58.     function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    0 q3 `& T7 N2 q) b
59.     function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    $ H" E* O  y: i1 n) y8 s
60.     function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double): Integer; stdcall;
    $ Z% Y. K8 R+ p# V
61.     function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double): Integer; stdcall;
    
62.     function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall;
    - ]  F2 D: j  P9 l) i, u. H5 b& O
63.     function GetMute(out bMute: Boolean): Integer; stdcall;
    . O* H3 N! `$ t
64.     function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
    
65.     function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    ) B( C6 n' s9 N6 B
66.     function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall;
    + H9 \8 Q" }* Y* b! ~
67.     function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    
68.     function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
69.   end;
    2 |! e$ x$ |/ f! E* \
70. 
    
71.   IAudioMeterInformation = interface(IUnknown)
    
72.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
    
73.   end;
    6 L0 _1 E) [3 B# i9 K: X
74. 
    . `1 e0 k9 }5 S. E* ~' W6 m
75.   IPropertyStore = interface(IUnknown)
    % y5 E0 ~) M: a* k9 G
76.   end;
    
77. 
    
78.   IMMDevice = interface(IUnknown)
    7 w  k: E9 |! x8 C5 e
79.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    . {- _# D, G1 x6 o8 f
80.     function Activate(const refId: TGUID;
    9 u# q7 r( H) z7 H5 O: `. U6 n
81.                       dwClsCtx: DWORD;
    / p$ g' l- U# A8 I+ ^8 j5 q: H% n
82.                       pActivationParams: PInteger;
      V$ O" D0 L, K8 d: g/ c0 }( N! O
83.                       out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall;
    ! |% r3 b- [% [% `( `) y
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. 
    3 T* }' ~, l8 w, ]3 W: T
90.   IMMDeviceCollection = interface(IUnknown)
    & J; i& Q0 o9 [1 {& k. d0 D
91.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    - D* [, T# j* M( `
92.   end;
    7 l$ g& C' W1 I
93. 
    ) |, y( I5 \5 D
94.   IMMNotificationClient = interface(IUnknown)
    ; c/ Q* M5 _( w8 g- @: e
95.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    
96.   end;
    
97. 
    
98.   IMMDeviceEnumerator = interface(IUnknown)
    8 h, i; i( N; P0 H" q( `. c; P/ Y
99.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    
100.     function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
     
101.     function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall;
     3 u2 a1 }3 N9 X9 @
102.     function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall;
     
103.     function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall;
     " Y* ?* j  h2 U
104.   end;
     
105. 
     2 W& l+ v  _4 R" V! L+ O
106. implementation
     
107. 
     ! y+ ]' F0 [( ?$ `8 {
108. end.
     
109. 
     
110. ///////////////////////
     
111. simple sample :)
     
112. ///////////////////////
     
113. 
     
114. //...... other code
     
115. 
     & S5 I  T7 y/ W7 ]3 S
116. uses ... ActiveX, MMDevApi, ...;
     
117. 
     
118. //...... other code
     
119. 
     ; O2 u9 J" z1 h) T- l1 I
120. var
     
121.   endpointVolume: IAudioEndpointVolume = nil;
     
122. 
     " D: X" n9 M3 N- I' Z+ R
123. procedure TForm1.FormCreate(Sender: TObject);
     
124. var
     
125.   deviceEnumerator: IMMDeviceEnumerator;
     
126.   defaultDevice: IMMDevice;
     
127. begin
     8 [4 @4 q# G; K, e& D3 g& f
128.   CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
     
129.   deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
     % I6 Z: @+ l6 o4 F1 z* U' |
130.   defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
     1 z" T- W  \! K% J; N
131. end;
     # a- ?! _+ S0 y$ g* g
132. 
     
133. procedure TForm1.Button1Click(Sender: TObject);
     
134. var
     
135.   VolumeLevel: Single;
     
136. begin
     
137.   if endpointVolume = nil then Exit;
     0 d# w8 h  D# B! F7 j- \
138.   VolumeLevel := 0.50;
     
139.   endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
     : u& f9 l( c( `8 z9 [/ r
140.   Caption := Format('%1.8f', [VolumeLevel])
     
141. end;
     4 M: X; |* s& N$ q5 z% r; B4 f
142. 
       [8 X' Q6 h9 |6 {, q. t' \
143. /////////////////////////////////////
     
144. 
     
145. // with best regards ToxicDream
     , ~2 I- R; L0 G

复制代码