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

bini

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

1. 
   
2. //for delphi 5
   0 e. F: x9 R* L+ [3 U) l! a0 N
3. unit MMDevApi_tlb;
   
4. 
   
5. interface
   ! n) l! q( ~: v) a& _8 ^1 }$ v
6.   uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,ComObj;
   0 K3 Y, p, y, T0 p
7. const
   ' U) A( J4 K" ~  w( q: R
8.   // TypeLibrary Major and minor versions
   3 Y& e/ k  u; e4 T( s. m6 g; \
9. 
   2 ?* O+ n6 h% W- w8 s
10.   CLASS_IMMDeviceEnumerator: TGUID              = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    
11.   IID_IMMDeviceEnumerator: TGUID                = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    % o  a5 j$ \" Y8 _6 R& @
12.   IID_IMMDevice: TGUID                          = '{D666063F-1587-4E43-81F1-B948E807363F}';
    & u, a! d4 C5 @1 {
13.   IID_IMMDeviceCollection: TGUID                = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    - P0 T5 w5 H; C( c; d1 c3 l; p
14.   IID_IAudioEndpointVolume: TGUID               = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    . k; \# a( R+ |
15.   IID_IAudioMeterInformation : TGUID            = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    ! |0 L, K0 @2 b% O; p+ R
16.   IID_IAudioEndpointVolumeCallback: TGUID       = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    - W$ ~# I0 n6 z
17. 
    
18.   DEVICE_STATE_ACTIVE                   = $00000001;
    
19.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
20.   DEVICE_STATE_NOTPRESENT               = $00000004;
    0 E3 e+ h8 B8 z5 r* _4 L+ z
21.   DEVICE_STATEMASK_ALL                  = $00000007;
    
22. 
    
23. type
    
24.   EDataFlow = TOleEnum;
    3 S1 N! Y/ D. Z. O& J$ s
25. const
    ( f2 C1 y6 W, U2 G. G# |: J
26.   eRender                               = $00000000;
    ; I( [2 ]$ E6 K( ~+ v
27.   eCapture                              = $00000001;
    ( m) }5 l: F& |
28.   eAll                                  = $00000002;
    
29.   EDataFlow_enum_count                  = $00000003;
    1 d4 B  t* d( ^0 X
30. 
    7 b- y1 H) `" w0 T' K4 {
31. type
    & h; @) B. a% U9 ^
32.   ERole = TOleEnum;
    
33. const
    % q& r. ~' ?8 a& J$ @
34.   eConsole                              = $00000000;
    " ^2 G3 F% |8 z; p: Z/ l5 R
35.   eMultimedia                           = $00000001;
    ; y$ L( c# W& |6 ~8 Z
36.   eCommunications                       = $00000002;
    
37.   ERole_enum_count                      = $00000003;
    % C' p/ O% {( v$ e: C
38. 
    * Q( Y1 M+ e; j5 o5 \
39. type
    9 O4 N* d8 z" K1 C) W7 b
40.   IAudioEndpointVolumeCallback = interface(IUnknown)
    
41.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    ' \& P; J# h3 b) }7 U# z
42.   end;
    % S3 C0 A+ O1 k; P6 o0 U3 L) V
43. 
    5 T' W' m$ D% R' c' {* m) Y
44.   IMMAudioEndpointVolume = interface(IUnknown)
    
45.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    
46.     Function RegisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    . w: d. Z9 F% I/ ~1 [. p0 J9 \
47.     Function UnregisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
48.     Function GetChannelCount(out PInteger): Integer; stdcall;
    
49.     Function SetMasterVolumeLevel(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    9 X" n& F0 `3 g" D" [
50.     Function SetMasterVolumeLevelScalar(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
      A: Y* B" U' G% F
51.     Function GetMasterVolumeLevel(out fLevelDB: double):Integer; stdcall;
    6 l2 [3 \2 H0 w' D0 |& F
52.     Function GetMasterVolumeLevelScaler(out fLevel: double):Integer; stdcall;
    
53.     Function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    + h* |- `. w) h' g
54.     Function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    8 ]: l7 A6 ~. v, z! Y( J
55.     Function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double) : Integer; stdcall;
    
56.     Function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double) : Integer; stdcall;
    $ U/ O# a/ L# _& c7 K* M$ F
57.     Function SetMute(bMute: Boolean ; pguidEventContext: TGUID) :Integer; stdcall;
    
58.     Function GetMute(out bMute: Boolean ) :Integer; stdcall;
    6 v4 A+ _( ]+ C# P* B6 x
59.     Function GetVolumeStepInfo( pnStep: Integer; out pnStepCount: Integer):Integer; stdcall;
    
60.     Function VolumeStepUp(pguidEventContext: TGUID) :Integer; stdcall;
    ! ]7 d- N! |6 U  R* U
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. 
    
66. {  IAudioMeterInformation = interface(IUnknown)
    + m: W; q' V: C/ {
67.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064']
    " ~% i0 s$ R4 K. x( U
68.   end;}
    
69. 
    
70.   IPropertyStore = interface(IUnknown)
    
71.   end;
    
72. 
    9 z. v. n$ |4 D* b; U- M- Y
73. type
    
74.   IMMDevice = interface(IUnknown)
    ' I( w4 d) M* |- Q  ~) n$ E
75.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
76.     Function Activate(  refId :TGUID;
    5 l2 M' D+ W* I+ [
77.                         dwClsCtx: DWORD;
    * t( ?7 b& T& n6 J  O5 H1 i
78.                         pActivationParams: PInteger ;
    
79.                         out pEndpointVolume: IMMAudioEndpointVolume): Hresult; stdCall;
    
80.     Function OpenPropertyStore(stgmAccess: DWORD; out ppProperties :IPropertyStore): Hresult; stdcall;
    7 z- v, \4 F3 X7 ^2 t% |7 a
81.     Function GetId(out ppstrId: PLPWSTR ): Hresult; stdcall;
    ( [6 F5 v& G, A+ q2 T8 Y
82.     Function GetState(out State :Integer): Hresult; stdcall;
    + t) k/ Y! C& ]* x7 \$ ?! {& ^
83. 
    0 k$ x  }1 B! K1 a; B
84.   end;
    . P0 c5 A7 [+ I2 x
85. 
    $ t- m4 |& s8 Z
86. 
    
87.   IMMDeviceCollection = interface(IUnknown)
    7 Q4 S* ?6 y1 M" i, t7 c
88.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    $ ~! I( y( Q: H
89.   end;
    
90. 
    8 m* F) J. A4 [/ |$ {
91.   IMMNotificationClient = interface (IUnknown)
    
92.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    1 J8 L1 n3 i8 W
93.   end;
    " }# F) g7 C+ {
94. 
    
95.   IMMDeviceEnumerator = interface(IUnknown)
    
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;
    & [5 }* S0 j4 ?$ @+ n
100.     Function RegisterEndpointNotificationCallback(pClient :IMMNotificationClient) :Hresult; stdcall;
     
101.   end;
     3 U* I: K* o! q0 i
102. 
     
103.   implementation
     5 c5 n( y3 X# {" ]/ ]+ \* R
104. end.
     & F" Q( a6 E/ P1 D) B( f
105. 
     
106. Thanks & Reagrds,
     
107. Mukta ...
     5 K+ i2 ^* v' F

复制代码

1. 
   % D; s5 E- R9 P  q- O' }
2. it's work in Delphi 7
   , b$ w$ p  B' i0 M* L$ S2 G7 S6 U
3. //////////////////////////
   " |  Y; V2 `0 G! L6 |, H$ j% J# Z9 [
4. 
   
5. unit MMDevApi;
   ! T8 c2 K2 [+ |/ ?; l
6. 
   
7. interface
   , G3 B  b0 ~0 X: t2 m5 r% g* a& O
8. 
   
9. uses
   3 f# B* W8 t/ x! p  u
10.   Windows, ActiveX, ComObj;
    
11. 
    ; G2 E( l7 V, L% y
12. const
    3 q' k' z0 [# z3 f
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}';
    ! w& `- g+ l" {! R1 B1 U" _2 T
18.   IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    & J( {5 o. S' y! k& [4 z1 ]3 ?9 x9 ]
19.   IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    
20. 
    
21.   DEVICE_STATE_ACTIVE                   = $00000001;
    
22.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
23.   DEVICE_STATE_NOTPRESENT               = $00000004;
    , g- I( a+ S1 S! k6 T
24.   DEVICE_STATEMASK_ALL                  = $00000007;
    
25. 
    ( h- p- Q  P0 |6 N* o
26. type
    ( w1 j7 R: C6 ^
27.   EDataFlow = TOleEnum;
    * ?# J1 C9 y2 O0 X5 \9 v
28. 
    % Q9 q% D! Q8 N( _7 ?" n
29. const
    
30.   eRender                               = $00000000;
    2 W/ G8 v) O7 R, ]1 s
31.   eCapture                              = $00000001;
    ) j* E# t' p6 h3 L1 L% B
32.   eAll                                  = $00000002;
    ! @! ]- Z$ w& F1 \: N
33.   EDataFlow_enum_count                  = $00000003;
    4 ^( p# h, {8 p( i7 G3 U
34. 
    : k3 U7 N7 s: V: E) E! q/ E$ b5 x
35. type
    0 O4 ?3 N# p( Y8 r+ @2 Z
36.   ERole = TOleEnum;
    % ^0 x7 X6 e/ ^/ W$ q; T
37. 
    
38. const
    6 K. `" H* w3 m
39.   eConsole                              = $00000000;
    6 f) D9 i* e1 H; t0 q9 j
40.   eMultimedia                           = $00000001;
    
41.   eCommunications                       = $00000002;
      J# q0 E- y; M- q" N( a0 x5 s
42.   ERole_enum_count                      = $00000003;
    
43. 
    ! E, o' @; H! b' Z. E! f8 w
44. type
    
45.   IAudioEndpointVolumeCallback = interface(IUnknown)
    
46.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    
47.   end;
    
48. 
    
49.   IAudioEndpointVolume = interface(IUnknown)
    
50.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    5 ^" Q1 i+ ]! `3 F6 ~
51.     function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
52.     function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    7 b! K* C: j" u4 f/ P  E0 b( n- U
53.     function GetChannelCount(out PInteger): Integer; stdcall;
    / l3 a+ \( x2 {, A! l5 u8 ?3 G
54.     function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    
55.     function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    2 O" x4 _% i- u
56.     function GetMasterVolumeLevel(out fLevelDB: single): Integer; stdcall;
    
57.     function GetMasterVolumeLevelScaler(out fLevelDB: single): Integer; stdcall;
    ! z5 e) H9 h6 C' g0 e. i0 n, z* {
58.     function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    * v, J, E% n; M7 u
59.     function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    / G' W6 Y0 ~, i" Q, U
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;
    
63.     function GetMute(out bMute: Boolean): Integer; stdcall;
    
64.     function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
    ) D  |, s$ N/ Z/ L$ `2 m$ c
65.     function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    
66.     function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall;
    
67.     function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    1 k: i1 \( K, v. u6 L( {
68.     function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    
69.   end;
    
70. 
    
71.   IAudioMeterInformation = interface(IUnknown)
    ; N$ c* i: E! M2 e. J9 ]
72.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
    5 a) p) W7 c) R4 m
73.   end;
    
74. 
    : Q5 q# J! [1 C5 `$ W2 v+ I
75.   IPropertyStore = interface(IUnknown)
    
76.   end;
    " T* ~! X$ h* w' ?$ C4 N# c- c
77. 
    
78.   IMMDevice = interface(IUnknown)
    
79.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    
80.     function Activate(const refId: TGUID;
    ; h) J+ ?" E( C! D1 w. S1 e
81.                       dwClsCtx: DWORD;
    
82.                       pActivationParams: PInteger;
    
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;
    7 d5 g7 a5 P4 e6 C* x+ n: p
87.   end;
    ' q) X: C6 n5 _" w" A
88. 
    1 B; c( e" A& ]  z; @2 X7 [
89. 
    ( j9 ^8 N) ?3 L+ L
90.   IMMDeviceCollection = interface(IUnknown)
      x; o$ v5 F7 ^4 X
91.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    , F7 a" _; k- m' [3 Z: U
92.   end;
    
93. 
    
94.   IMMNotificationClient = interface(IUnknown)
    
95.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    6 W3 m9 T# b. m5 e- a' b& V
96.   end;
    4 u) S3 I6 `- j' @" H
97. 
    
98.   IMMDeviceEnumerator = interface(IUnknown)
    1 W) w0 _. w5 c
99.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    
100.     function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
     3 R% s1 l3 |( f9 Z
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;
     
104.   end;
     
105. 
     4 p( e) ~5 W7 E+ m9 ]4 g
106. implementation
     / |" G1 R7 V4 [0 h, s- j- y
107. 
     
108. end.
     * x* p  \, @. A3 u! h1 `3 E3 _
109. 
     9 u( F6 p. B* |$ }  S' z5 ?
110. ///////////////////////
     
111. simple sample :)
     ( V& G4 Y- b" p3 b
112. ///////////////////////
     8 f6 @3 A3 Q4 G. ]7 [
113. 
     
114. //...... other code
     6 |/ m& D* ?; @
115. 
     
116. uses ... ActiveX, MMDevApi, ...;
     " P0 t/ K$ e1 x  F0 a! N/ d
117. 
     
118. //...... other code
     : O! N$ A, V% G9 q& j) a$ b
119. 
     
120. var
     1 x  u8 y3 t. `
121.   endpointVolume: IAudioEndpointVolume = nil;
     
122. 
     
123. procedure TForm1.FormCreate(Sender: TObject);
     % v2 [2 o# b) U2 j1 Q2 K, m
124. var
     9 x2 z7 Y  e* M2 V# S3 h
125.   deviceEnumerator: IMMDeviceEnumerator;
     
126.   defaultDevice: IMMDevice;
     
127. begin
     ( Y7 t& w. e# m& o8 d) P
128.   CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
     + x& J! V( E& s8 ^
129.   deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
     
130.   defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
     
131. end;
     
132. 
     / n1 |, V9 |$ m9 c
133. procedure TForm1.Button1Click(Sender: TObject);
     " z( ]( d" M6 N' S* k
134. var
     # c% b" W; w# x9 P7 |9 r& E# m
135.   VolumeLevel: Single;
     % E% |+ m, M* n; j- i1 x+ B
136. begin
     ( y( a. M, F; F; a; {' M4 P( F
137.   if endpointVolume = nil then Exit;
     % c) y# z# O  n' N- |6 ^
138.   VolumeLevel := 0.50;
     3 d, O' n+ |1 s" N
139.   endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
     
140.   Caption := Format('%1.8f', [VolumeLevel])
     
141. end;
     % U$ a0 x. S" A( I( O) {. I
142. 
     5 X7 X' Y, l1 Z# m: J/ Q4 w8 q
143. /////////////////////////////////////
     
144. 
     
145. // with best regards ToxicDream
     

复制代码