Discussion :

[micatmidog]

Bonjour à tous !

J'aimerais que quand on clique sur un bouton, le son se coupe...

Comment puis-je faire ceci ?

Merci d'avance pour vos réponses...

[Pedro]

Salut
il faut que tu passes par une fonction API dans laquelle tu définit le niveau du volume... Fais une recherche sur MSDN et tu trouveras...

[micatmidog]

dsl j'ai rien trouvé d'intéressant...

[Higgins]

Dans le menu Aide de Delphi tu choisis SDK windows
dans l'index tu tapes "Waveform Audio" et tu trouves tout 8)

[Sub0]

Salut!

Voici un code récupéré sur le net...( si vous avez plus simple, je suis preneur! Merci).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
UNIT VolumeMute;
INTERFACE
USES mmSystem,Dialogs;
 
PROCEDURE SetVolumeMute(Value:Boolean);
 
{----------------------------------------------------------------}
{                     }IMPLEMENTATION{                           }
{----------------------------------------------------------------}
 
VAR hMix:HMIXER;
    mxlc:MIXERLINECONTROLS;
    mxcd:TMIXERCONTROLDETAILS;
    mcdMute:MIXERCONTROLDETAILS_BOOLEAN;
    mxc:MIXERCONTROL;
    mxl:TMIXERLINE;
    intRet,nMixerDevs:Integer;
 
 
{----------------------------------------------------------------}
PROCEDURE SetVolumeMute(Value:Boolean);
BEGIN
 nMixerDevs:=mixerGetNumDevs();
 IF((nMixerDevs<1))THEN EXIT;
 intRet:=mixerOpen(@hMix,0,0,0,0);
 IF(intRet=MMSYSERR_NOERROR)THEN BEGIN
   mxl.dwComponentType:=MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
   mxl.cbStruct:=SizeOf(mxl);
   intRet:=mixerGetLineInfo(hMix,@mxl,MIXER_GETLINEINFOF_COMPONENTTYPE);
   IF(intRet=MMSYSERR_NOERROR)THEN BEGIN
     FillChar(mxlc,SizeOf(mxlc),0);
     mxlc.cbStruct:=SizeOf(mxlc);
     mxlc.dwLineID:=mxl.dwLineID;
     mxlc.dwControlType:=MIXERCONTROL_CONTROLTYPE_MUTE;
     mxlc.cControls:=1;
     mxlc.cbmxctrl:=SizeOf(mxc);
     mxlc.pamxctrl:=@mxc;
     intRet:=mixerGetLineControls(hMix,@mxlc,MIXER_GETLINECONTROLSF_ONEBYTYPE);
     IF(intRet=MMSYSERR_NOERROR)THEN BEGIN
       FillChar(mxcd,SizeOf(mxcd),0);
       mxcd.cbStruct:=SizeOf(TMIXERCONTROLDETAILS);
       mxcd.dwControlID:=mxc.dwControlID;
       mxcd.cChannels:=1;
       mxcd.cbDetails:=SizeOf(MIXERCONTROLDETAILS_BOOLEAN);
       mxcd.paDetails:=@mcdMute;
       mcdMute.fValue:=Ord(Value);
       intRet:=mixerSetControlDetails(hMix,@mxcd,MIXER_SETCONTROLDETAILSF_VALUE);
       IF(intRet<>MMSYSERR_NOERROR)THEN ShowMessage('SetControlDetails Error');
     END ELSE ShowMessage('GetLineInfo Error');
   END;
   intRet:=mixerClose(hMix);
 END;
END;
 
 
{----------------------------------------------------------------}
END.

à+