Bonjour. Quelqu'un saurait-il comment afficher un MessageBox sans beep sonore (avec le son allumé) ? Pas un ShowMessage ni un MessageDlg. Merci d'avance.

Essaies de trouver quelque chose avec ça

 

Var

  Registre : TRegistry;

begin

     Registre:=TRegistry.Create;

Registre.RootKey:= HKEY_CURRENT_USER;

Registre.OpenKey('\Control Panel\Sound\',True);

      Registre.WriteString('Beep','no'); // affecter 'no' au champ "Beep"  

  Registre.WriteString('ExtendedSounds','no'); // affecter 'no' au champ  "ExtendedSounds"

Registre.CloseKey;

  Registre.Free;

 

 application.MessageBox('Message...... !', 'ATTENTION', MB_ICONEXCLAMATION + MB_OK);

  end;

@ytillang30400  : Ne fait pas ce code.

@khawarizm : Merci de ne pas donner de code foutant le chaniter inutilement dans la base de registre sans donner la procédure inverse.

ça ? Désactiver: procedure TForm1.Button1Click(Sender: TObject); begin SystemParametersInfo(SPI_SETBEEP,0,NIL,SPIF_SENDWININICHANGE); end; Activer: procedure TForm1.Button2Click(Sender: TObject); begin SystemParametersInfo(SPI_SETBEEP,1,NIL,SPIF_SENDWININICHANGE); end;

Effectivement,  Francky 23012301 à raison , faire des changements dans la base de registre juste pour désactiver le Beep n'était pas une bonne idée mais mon excuse est de ne pas connaître une autre solution et j'assure ytillang30400 que s'été de bonne intention, désolé,   je promet de ne plus essayer de donner de solution avant de m'assurer quelle est la bonne .

 

Désolé .   faute de débutant !

On sait bien que c'était de bonne intention : fallait juste penser à donner la technique pour réactiver le beep. Mais c'est vrai la méthode de JulioDelphi est nickel

Merci les gars.
Apparemment ça ne marche pas. Je suis sur XP.

J'ai essayé les deux techniques (Base de registre et celle ci-dessous) , mais j'ai toujours les beeps (sauf pour le Warning)
// Désactiver
SystemParametersInfo(SPI_SETBEEP,0,NIL,SPIF_SENDWININICHANGE);
// Info
Application.MessageBox(PChar('Hello'),PChar('Mon message'),64);
// Warning
Application.MessageBox(PChar('Attention !'),PChar('Mon message'),48);
// Erreur
Application.MessageBox(PChar('Erreur'),PChar('Mon message'),16);
// Question
Application.MessageBox(PChar('Pourquoi ?'),PChar('Mon message'),32);
// Activer
SystemParametersInfo(SPI_SETBEEP,1,NIL,SPIF_SENDWININICHANGE);

fait comme tout le monde, désactive les sons systeme.

c'est chiant d'avoir des "Pling" ou des "Ploung" a chaque message (surtout quand on code sous delphi les boite d'erreur sont frequente), des "Skruitch" a chaque "vider la corbeille", des "Shiii" et des "Baaaa" a chaque minimize ou maximize, des "Puee Puee" a chaque mauvaise action et enfin des "Bligabaduuuu" a la con et des "uuuudabagilB" a chaque demarrage/arret du systeme.

le sons systeme c'est nul. ça sert a rien, parce qu'aprés 6H de prog les sons persistes une fois couché.

Oui foxi, mais la question était plutôt comment empécher "le beep"
à l'exécution..

Bon, ben j'en ai trouvé deux qui ne déclenchent pas de beep :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.MESSAGEBOX('TEST', 'Arrêt immédiat', MB_OK + MB_ICONMASK);
end;

ou

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.MESSAGEBOX('TEST', 'Arrêt immédiat', MB_OK + MB_ICONQUESTION );
end;

il y en a peut-être d'autres..Evidemment il faut que les icones affichés correspondent au besoin en cours..

Si j'ai bien compris, en résumé, il n'y a pas de problème avec le MessageBox de type "Question", pour les autres on se passe maheureusement de l'icone (ou on fait un ShowMessage si on n'a pas besoin de caption personnalisé). Dommage que la fonction "SystemParametersInfo" et l'intervention dans le registre ne change rien sur XP (en tout cas sur le mien). C'est bizzare car on retrouve partout cette fonction sur les forums (y compris récents)