REGLER LE VOLUME SONORE AVEC DELPHI

Commentaire de Skyline le 25/01/2003 20:32:05

je sais mais c'est une habitude....
petite correction:
AuxSetVolume(Form1.MediaPlayer1.DeviceID, Form1.TrackBar1.Position);

par

AuxSetVolume(0,TrackBar1.Position);
en fait ça marche mieux.......

Commentaire de Bombela le 12/12/2003 12:48:32

Cool !

Je cherchais justement ça !

J'ai pas trouvé pour les CD moi aussi...

Commentaire de ni69 le 06/04/2005 13:05:25

Petite amélioration à apporter, qui résoud le pb de balance :) :

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

Commentaire de ni69 le 01/06/2006 00:22:19

salut mobilotek,
as-tu bien adapté l'appel de procédure selon tes besoins ?

AuxSetVolume() : Son Auxiliaire
MidiOutSetVolume() : Son Midi
WaveOutSetVolume() : Son wave

@+
Nico

Commentaire de ni69 le 09/06/2006 10:14:07

Le choix de la procédure dépend de la source audio désirée...

Commentaire de ni69 le 01/09/2006 12:35:08

Salut,

Tu peux utiliser une émulation de la touche "muet" :

Keybd_event(173,0,0,0);
Keybd_event(173,0,KEYEVENTF_KEYUP,0);

@+
Nico

Commentaire de ni69 le 21/11/2007 23:06:28

Windows définit des constantes spéciales pour toutes les touches du clavier. Voici les noms symboliques, les codes hexadécimaux, et les valeurs décimales des touches que tu demandes. Remplace juste le 173 de mon commentaire par ce que tu veux parmi les valeurs ci-dessous pour satisfaire tes désirs !

VK_VOLUME_MUTE / 0xAD / 173
VK_VOLUME_DOWN / 0xAE / 174
VK_VOLUME_UP / 0xAF / 175

@+
Nico

Commentaire de Bacterius le 25/03/2008 20:09:50

Bonjour,
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 ... ;)