REGLER LE VOLUME SONORE AVEC DELPHI
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
25 janv. 2003 à 11:18
cs_dede1111 Messages postés 13 Date d'inscription mardi 16 mars 2004 Statut Membre Dernière intervention 20 avril 2011 - 21 avril 2011 à 10:32
cs_dede1111 Messages postés 13 Date d'inscription mardi 16 mars 2004 Statut Membre Dernière intervention 20 avril 2011 - 21 avril 2011 à 10:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12321-regler-le-volume-sonore-avec-delphi
https://codes-sources.commentcamarche.net/source/12321-regler-le-volume-sonore-avec-delphi
21 avril 2011 à 10:32
Comment rérer le volume du microphone avec vista ou "7"
merci
15 avril 2009 à 13:56
personne n'a expliquer comment faire si on utilise le format Wma
quelqu'un saurait?
25 mars 2008 à 20:09
Scooby Doo as-tu pensé à ajouter l'unité MMSystem dans ta clause "Uses"?
Cordialement, Bacterius !
PS : si une fonction ou une procédure n'est pas reconnue, tente de la sélectionner (mettre en surbrillance) et appuie sur "F1". Si une rubrique apparait, il y a de fortes chances pour que la fonction soit reconnue, mais qu'il manque juste une unité ou quelque chose du genre ... ;)
25 févr. 2008 à 20:04
est-ce que vous pouvez m'aider car moi, "AuxSetVolume" n'est pas reconnu
pouvez vous m'expliquer?
merci
21 nov. 2007 à 23:06
VK_VOLUME_MUTE / 0xAD / 173
VK_VOLUME_DOWN / 0xAE / 174
VK_VOLUME_UP / 0xAF / 175
@+
Nico
21 nov. 2007 à 16:23
Merci beaucoup pour ton émulation !!
Tu saurais émuler les touches Volume + et - ?
Merci,
A+
1 sept. 2006 à 12:35
Tu peux utiliser une émulation de la touche "muet" :
Keybd_event(173,0,0,0);
Keybd_event(173,0,KEYEVENTF_KEYUP,0);
@+
Nico
10 août 2006 à 10:37
il est super ton code il fonctionne nickel par contre j'ai une petite question, comment peut on activer la commende mute (desactiver le son syteme ) par delphi?
merci d'avance
9 juin 2006 à 10:14
1 juin 2006 à 03:21
En fait les procedures dependent d'ou est branchée l'enceinte...non?
1 juin 2006 à 00:22
as-tu bien adapté l'appel de procédure selon tes besoins ?
AuxSetVolume() : Son Auxiliaire
MidiOutSetVolume() : Son Midi
WaveOutSetVolume() : Son wave
@+
Nico
31 mai 2006 à 22:30
6 avril 2005 à 13:05
uses Mmsystem;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.TrackBar1.Min :=0;
Form1.TrackBar1.Max :=65535;
Form1.TrackBar1.Frequency :=6553;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
var
LVolume, RVolume, Volume: DWord;
begin
RVolume:=TrackBar1.Position;
LVolume:=TrackBar1.Position;
Volume:=(DWord(RVolume) Shl 16) Or LVolume;
AuxSetVolume(0,Volume);
end;
@+
Nico
9 août 2004 à 15:08
12 déc. 2003 à 12:48
Je cherchais justement ça !
J'ai pas trouvé pour les CD moi aussi...
7 sept. 2003 à 11:54
j'arrive avec les MP3, WVA ..., mais pas les CD
merci
25 janv. 2003 à 20:32
petite correction:
AuxSetVolume(Form1.MediaPlayer1.DeviceID, Form1.TrackBar1.Position);
par
AuxSetVolume(0,TrackBar1.Position);
en fait ça marche mieux.......
25 janv. 2003 à 11:18