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

bini

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

1. 
   
2. //for delphi 5
   9 ^9 B; J9 \8 \$ f$ @# O6 A) E
3. unit MMDevApi_tlb;
   & w! V8 F: d( |# u
4. 
   - D. H8 i6 y) F$ Z
5. interface
   
6.   uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL,ComObj;
   # ]: w6 y6 I' {9 t; ~
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}';
    , K+ p% R8 I& k/ x
13.   IID_IMMDeviceCollection: TGUID                = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    # m( C7 T: `0 u8 V- d- N/ P
14.   IID_IAudioEndpointVolume: TGUID               = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    
15.   IID_IAudioMeterInformation : TGUID            = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    . u6 g, p6 i8 e9 s$ t% `, x
16.   IID_IAudioEndpointVolumeCallback: TGUID       = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    
17. 
    
18.   DEVICE_STATE_ACTIVE                   = $00000001;
    
19.   DEVICE_STATE_UNPLUGGED                = $00000002;
    
20.   DEVICE_STATE_NOTPRESENT               = $00000004;
    4 n1 [4 O+ g& A# h7 q' K& R
21.   DEVICE_STATEMASK_ALL                  = $00000007;
    
22. 
    7 s5 J" i% c' |: x
23. type
    
24.   EDataFlow = TOleEnum;
    
25. const
    6 e5 O% J8 s. E% H; r6 o' G
26.   eRender                               = $00000000;
    
27.   eCapture                              = $00000001;
    * r, w  J( v0 X+ D% j
28.   eAll                                  = $00000002;
    
29.   EDataFlow_enum_count                  = $00000003;
    6 ]9 ]+ Q6 t! \7 k& y, a$ h5 Y
30. 
    
31. type
    
32.   ERole = TOleEnum;
    
33. const
    8 i/ R0 F# w6 @) u8 ?9 t
34.   eConsole                              = $00000000;
    ! Q% o* {5 g# r$ \( {; U+ {6 o
35.   eMultimedia                           = $00000001;
    
36.   eCommunications                       = $00000002;
    9 R. h" u0 r9 A4 Y* z3 S- C+ e
37.   ERole_enum_count                      = $00000003;
    4 v! |0 a7 m+ |$ _' e* }
38. 
    
39. type
    
40.   IAudioEndpointVolumeCallback = interface(IUnknown)
    
41.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    / D; h; w3 n! ~* K1 ~% M, k
42.   end;
    
43. 
    
44.   IMMAudioEndpointVolume = interface(IUnknown)
    7 L! q& Q, o" r* K
45.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    : z( \1 g5 z6 M, Y. q4 t0 b; z; H
46.     Function RegisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
      r4 R6 _4 A- ^- Y% r$ [$ K
47.     Function UnregisterControlChangeNotify( AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    / `8 Y2 x9 @* S" u; X! D
48.     Function GetChannelCount(out PInteger): Integer; stdcall;
    
49.     Function SetMasterVolumeLevel(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    9 c# z& B! u& K) \6 m9 Y7 f
50.     Function SetMasterVolumeLevelScalar(fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    5 v: R2 J  N1 {; ~+ p) g
51.     Function GetMasterVolumeLevel(out fLevelDB: double):Integer; stdcall;
    
52.     Function GetMasterVolumeLevelScaler(out fLevel: double):Integer; stdcall;
    8 f: C) z" C, ]$ U
53.     Function SetChannelVolumeLevel(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    
54.     Function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: TGUID):Integer; stdcall;
    " d( J: l: M$ A: K* A
55.     Function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double) : Integer; stdcall;
    & |9 H4 O% X7 ]3 A7 P# j2 @
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;
    ; @9 P9 S& K4 S" V6 j/ k( ?5 p& f1 ^# G
59.     Function GetVolumeStepInfo( pnStep: Integer; out pnStepCount: Integer):Integer; stdcall;
    " v: n  g: N" x/ ?+ A
60.     Function VolumeStepUp(pguidEventContext: TGUID) :Integer; stdcall;
    
61.     Function VolumeStepDown(pguidEventContext: TGUID) :Integer; stdcall;
    & s: X! z5 E' W* R. B# L1 U
62.     Function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    
63.     Function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    " X, l. C' T9 P7 N6 }  o1 W3 Z" s9 J
64.   end;
    8 S' s4 l/ w# l7 _4 x% |) O
65. 
    
66. {  IAudioMeterInformation = interface(IUnknown)
    # _4 G2 S5 c* W* i! J; r
67.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064']
    . p6 I: i1 F8 Q
68.   end;}
    5 O4 C$ W4 M- }3 K5 Y" L
69. 
    / `' }0 ~' [1 u
70.   IPropertyStore = interface(IUnknown)
    
71.   end;
    / o; N9 _3 `# g; h- R4 G! h
72. 
    9 m. \+ C& L" M3 @( Z' l% ^8 \
73. type
    8 ?& H4 n2 m' O, x
74.   IMMDevice = interface(IUnknown)
    
75.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    / p. V) m1 l% X) w
76.     Function Activate(  refId :TGUID;
    % v/ L/ D. s9 P  a3 T
77.                         dwClsCtx: DWORD;
      Z' u/ H, H$ y6 I
78.                         pActivationParams: PInteger ;
    # H% V1 P4 ]6 f; \; N5 K  P4 n* N
79.                         out pEndpointVolume: IMMAudioEndpointVolume): Hresult; stdCall;
    : |4 ~( p+ K9 h4 v
80.     Function OpenPropertyStore(stgmAccess: DWORD; out ppProperties :IPropertyStore): Hresult; stdcall;
    5 H5 L% Q0 x* B: S
81.     Function GetId(out ppstrId: PLPWSTR ): Hresult; stdcall;
    
82.     Function GetState(out State :Integer): Hresult; stdcall;
    ! a, K, f' P# Z
83. 
    : n; k; U1 k3 F8 \+ A  {$ C
84.   end;
    
85. 
    
86. 
    
87.   IMMDeviceCollection = interface(IUnknown)
    / i" b5 g4 E) r9 W
88.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    5 i6 ^. L) E. s# j' w
89.   end;
    " m4 a7 U6 X  h9 b
90. 
    
91.   IMMNotificationClient = interface (IUnknown)
    
92.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    ! g7 k6 w3 o8 N$ f. C
93.   end;
    
94. 
    1 D  c8 m! `8 n, N
95.   IMMDeviceEnumerator = interface(IUnknown)
    - ~" k) T8 |$ f' c# `
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;
    ; Y) h) J, a; G8 Q& Q- {" ?6 e9 {
99.     Function GetDevice( pwstrId: pointer ; out Dev :IMMDevice) : HResult; stdcall;
    * d5 k9 o/ t* |% R6 D) p
100.     Function RegisterEndpointNotificationCallback(pClient :IMMNotificationClient) :Hresult; stdcall;
     
101.   end;
     
102. 
     & {' V7 }* L/ N. Y) C4 h$ L7 F
103.   implementation
       O1 ]5 x, o7 @# D6 c
104. end.
     ' y: C% f$ L- @1 m# U1 U
105. 
     0 l) d( p7 n  v9 W9 l6 f
106. Thanks & Reagrds,
     ' ?! K5 Y$ ~/ [/ }" d- M% y  O% X
107. Mukta ...
     9 P. d" R- V: k+ R6 a$ ^

复制代码

1. 
   
2. it's work in Delphi 7
   6 t  K+ ^( s1 E. n+ M1 J- l
3. //////////////////////////
   5 u- Y& r, j- |( `8 Q  K/ |
4. 
   / X" A. e! J6 A) p8 f5 g
5. unit MMDevApi;
   
6. 
   - o8 u" e% M8 `. V6 ?# v
7. interface
   
8. 
   
9. uses
   . {1 F) o- g; P; U
10.   Windows, ActiveX, ComObj;
    . X! C0 @8 ^5 Z% w" |- t9 i
11. 
    ) e( M: e+ i& z3 A5 w' Q' f+ h
12. const
    
13.   CLASS_IMMDeviceEnumerator             : TGUID = '{BCDE0395-E52F-467C-8E3D-C4579291692E}';
    0 r, Z$ H5 V" p8 t+ {# n  P
14.   IID_IMMDeviceEnumerator               : TGUID = '{A95664D2-9614-4F35-A746-DE8DB63617E6}';
    # I; S8 V1 @+ T. l
15.   IID_IMMDevice                         : TGUID = '{D666063F-1587-4E43-81F1-B948E807363F}';
    , k/ M: G; A; [6 P  ]1 u
16.   IID_IMMDeviceCollection               : TGUID = '{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}';
    2 A2 {: e  K& l* [* t( m6 T
17.   IID_IAudioEndpointVolume              : TGUID = '{5CDF2C82-841E-4546-9722-0CF74078229A}';
    ' [. Y# F4 E3 g$ v1 N# d% L& Q) F
18.   IID_IAudioMeterInformation            : TGUID = '{C02216F6-8C67-4B5B-9D00-D008E73E0064}';
    
19.   IID_IAudioEndpointVolumeCallback      : TGUID = '{657804FA-D6AD-4496-8A60-352752AF4F89}';
    
20. 
    
21.   DEVICE_STATE_ACTIVE                   = $00000001;
    * N6 ~. I" Q# q8 D
22.   DEVICE_STATE_UNPLUGGED                = $00000002;
    # S4 E% v9 F/ Z$ G* j
23.   DEVICE_STATE_NOTPRESENT               = $00000004;
    
24.   DEVICE_STATEMASK_ALL                  = $00000007;
    
25. 
    
26. type
    - \+ E1 H5 A$ s$ f7 c- ^
27.   EDataFlow = TOleEnum;
    * c3 m9 Y7 ?% V
28. 
    
29. const
    
30.   eRender                               = $00000000;
    
31.   eCapture                              = $00000001;
    ! Z* o# k! ~& e& ^* @
32.   eAll                                  = $00000002;
    
33.   EDataFlow_enum_count                  = $00000003;
    ! p3 |6 j3 T( U" X; g4 k4 `4 N$ A) E
34. 
    ( p7 x  U* S& M8 }, o
35. type
    6 ?& T) G4 A4 L7 ?% |7 y
36.   ERole = TOleEnum;
    7 m( X# ~. |5 `( J( g
37. 
    
38. const
    
39.   eConsole                              = $00000000;
    4 @* g, U6 ~, \( p+ o! P
40.   eMultimedia                           = $00000001;
    
41.   eCommunications                       = $00000002;
    
42.   ERole_enum_count                      = $00000003;
    
43. 
    
44. type
    - O: U7 V. T. M& M
45.   IAudioEndpointVolumeCallback = interface(IUnknown)
    
46.   ['{657804FA-D6AD-4496-8A60-352752AF4F89}']
    ; Y/ j" D9 M/ O: F- v
47.   end;
    8 R% T) {3 @9 k$ X, C# r
48. 
    
49.   IAudioEndpointVolume = interface(IUnknown)
    : \! J) u% R4 Q9 _; f: `2 C
50.   ['{5CDF2C82-841E-4546-9722-0CF74078229A}']
    $ `5 z/ J" h3 w/ q8 Y4 s
51.     function RegisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    6 ], U9 z$ `% H# _
52.     function UnregisterControlChangeNotify(AudioEndPtVol: IAudioEndpointVolumeCallback): Integer; stdcall;
    
53.     function GetChannelCount(out PInteger): Integer; stdcall;
    ; N- z% e% @  ^& I
54.     function SetMasterVolumeLevel(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    
55.     function SetMasterVolumeLevelScalar(fLevelDB: single; pguidEventContext: PGUID): Integer; stdcall;
    4 S; ]& x5 V; s% |
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;
    / b  i1 v9 j' R, U
59.     function SetChannelVolumeLevelScalar(nChannel: Integer; fLevelDB: double; pguidEventContext: PGUID): Integer; stdcall;
    " l# w3 o0 b' \' p
60.     function GetChannelVolumeLevel(nChannel: Integer; out fLevelDB: double): Integer; stdcall;
    
61.     function GetChannelVolumeLevelScalar(nChannel: Integer; out fLevel: double): Integer; stdcall;
      X  V3 S- i4 m1 D" s* E  Z
62.     function SetMute(bMute: Boolean; pguidEventContext: PGUID): Integer; stdcall;
    / _& }/ [. L8 I, b$ P! N8 z
63.     function GetMute(out bMute: Boolean): Integer; stdcall;
    
64.     function GetVolumeStepInfo(pnStep: Integer; out pnStepCount: Integer): Integer; stdcall;
    / S7 W* ~# w9 f& |( n: A) o
65.     function VolumeStepUp(pguidEventContext: PGUID): Integer; stdcall;
    
66.     function VolumeStepDown(pguidEventContext: PGUID): Integer; stdcall;
    ' h/ k2 j; F5 V: X4 m' G8 d4 l- L
67.     function QueryHardwareSupport(out pdwHardwareSupportMask): Integer; stdcall;
    2 {* A, p6 Q4 V' ?, R7 [
68.     function GetVolumeRange(out pflVolumeMindB: double; out pflVolumeMaxdB: double; out pflVolumeIncrementdB: double): Integer; stdcall;
    0 w& x' `# z! m$ D0 A  C
69.   end;
    / l9 R9 l6 C& f0 e1 y' t7 F5 \
70. 
    - o" Y5 f6 G7 t1 m4 ^/ J
71.   IAudioMeterInformation = interface(IUnknown)
    
72.   ['{C02216F6-8C67-4B5B-9D00-D008E73E0064}']
    
73.   end;
    5 _# `; ?! @; }0 P5 j9 q6 [
74. 
    
75.   IPropertyStore = interface(IUnknown)
    
76.   end;
    3 b0 ?% K8 U4 [% I1 F) h
77. 
    5 f: _' C  K) ^
78.   IMMDevice = interface(IUnknown)
    
79.   ['{D666063F-1587-4E43-81F1-B948E807363F}']
    8 ~  w3 m% J* p" {2 p1 Q
80.     function Activate(const refId: TGUID;
    
81.                       dwClsCtx: DWORD;
    " I4 R4 b) ^  ?1 F3 F
82.                       pActivationParams: PInteger;
    0 T0 O; _2 w3 H
83.                       out pEndpointVolume: IAudioEndpointVolume): Hresult; stdCall;
    $ s  _) j, f+ C
84.     function OpenPropertyStore(stgmAccess: DWORD; out ppProperties: IPropertyStore): Hresult; stdcall;
    % q; V+ t$ T8 |7 i# f; b4 I* |
85.     function GetId(out ppstrId: PLPWSTR): Hresult; stdcall;
    
86.     function GetState(out State: Integer): Hresult; stdcall;
    ; ?) c  R9 u& ?1 V% T
87.   end;
    
88. 
    $ G: j. T% [% F( ]% s" K6 }- F
89. 
    & K# r2 {3 R8 C: \$ e" I
90.   IMMDeviceCollection = interface(IUnknown)
    
91.   ['{0BD7A1BE-7A1A-44DB-8397-CC5392387B5E}']
    
92.   end;
    
93. 
    0 K$ f) L/ L* P  h3 H
94.   IMMNotificationClient = interface(IUnknown)
    
95.   ['{7991EEC9-7E89-4D85-8390-6C703CEC60C0}']
    
96.   end;
    / S8 y( p' f0 E  P- W9 r; X+ _
97. 
    
98.   IMMDeviceEnumerator = interface(IUnknown)
    
99.   ['{A95664D2-9614-4F35-A746-DE8DB63617E6}']
    
100.     function EnumAudioEndpoints(dataFlow: EDataFlow; deviceState: SYSUINT; DevCollection: IMMDeviceCollection): Hresult; stdcall;
     & b- J) e- C, s3 U- g+ m
101.     function GetDefaultAudioEndpoint(EDF: SYSUINT; ER: SYSUINT; out Dev :IMMDevice ): Hresult; stdcall;
     % i' B! [/ c! D" |$ x# N
102.     function GetDevice(pwstrId: pointer; out Dev: IMMDevice): HResult; stdcall;
     , U5 c  o) T- I. k3 Q1 L$ Y4 ^( n
103.     function RegisterEndpointNotificationCallback(pClient: IMMNotificationClient): Hresult; stdcall;
     
104.   end;
     ' T5 y. k; ]/ s9 p' i8 F
105. 
     9 a" W) Q# O9 l* x' ^' I
106. implementation
     
107. 
     
108. end.
     : h4 b% l! ~& z" N) F/ V
109. 
     
110. ///////////////////////
     
111. simple sample :)
     1 r  X" g9 D2 J. v% f
112. ///////////////////////
     3 ?3 v; V; b* Z. b4 R6 ~5 Q
113. 
     
114. //...... other code
     + K. ]! [4 T0 G* I! u; w
115. 
     
116. uses ... ActiveX, MMDevApi, ...;
     7 b; Z! W/ }$ r% f- j
117. 
     
118. //...... other code
     & T: ^! H0 y4 F0 W3 U9 g
119. 
     ! h% {: }: Q( }1 V
120. var
     / d# V3 c8 R" S% P3 ?  m
121.   endpointVolume: IAudioEndpointVolume = nil;
     7 f5 u# c2 s$ T+ G  l! Q
122. 
     
123. procedure TForm1.FormCreate(Sender: TObject);
     & d' f0 ~1 E1 ]  m
124. var
     
125.   deviceEnumerator: IMMDeviceEnumerator;
     
126.   defaultDevice: IMMDevice;
       D# ~( u9 A2 y9 J4 X/ i( _
127. begin
       n9 C  D1 Y0 |" W) Y" ~
128.   CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator);
     
129.   deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice);
     2 a3 X9 K* E6 F$ B0 F+ {5 c
130.   defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume);
     
131. end;
     9 h) P! @8 b0 n0 R3 P
132. 
     1 \. k& i; c7 V$ |8 g$ b: Z8 n
133. procedure TForm1.Button1Click(Sender: TObject);
     - ]# A2 q4 s0 N' K3 V2 O6 v
134. var
     & G: e9 n( n) M- M+ Q2 U
135.   VolumeLevel: Single;
     2 h: u  t2 i- t! y1 R* r9 g
136. begin
     / K/ J0 M! R# P5 t
137.   if endpointVolume = nil then Exit;
     & L8 k/ k8 F+ m2 ^# D- q2 T
138.   VolumeLevel := 0.50;
     : O1 d/ Q# V8 i& c# B
139.   endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
     4 w7 }% y$ h+ ^, U9 c# p7 f! V3 y
140.   Caption := Format('%1.8f', [VolumeLevel])
       G: }( p4 H" w( l& G0 E: f
141. end;
     
142. 
     
143. /////////////////////////////////////
     
144. 
     2 X% ~1 y. [: |4 ?" m
145. // with best regards ToxicDream
     8 O; b: S. |& F0 E/ N  E4 y

复制代码