Discussion :

[clipper5.3]

Bonsoir evarisnea,
na rien Donné me pleases

[evarisnea]

as tu testé les suggestions de Cl@udius ?
qu'est ce qui ne va pas ?
as tu des erreurs ?

[clipper5.3]

Bonjour evarisnea,
N'oublier pas que je suis un débutant avec Delphi j'ai fais des tentatives mais sa na rien donné si c est possible envoyer moi un exemple sur la commande

[Aka Guymelef]

Pour information, du coup, afin d'avoir l'aide sur les API Windows ce n'est pas dans le fichier d'aide qui apparaît via la touche F1 mais dans celui qu'on obtient via le menu Aide->SDK Windows.

[clipper5.3]

Bonsoir Aka Guymelef,
Vous m'avez mis sur les raille ce qui concerne le mais je nage comme même je vous signale que je suis un débutant en Delphi .

[clipper5.3]

Salut Tous Le Monde,
Je Souhaite Avoir Un Exemple Sur Le Bip Message Erreur

[evarisnea]

as tu essayé au moins les idées que l'on t'a communiquées ?
voici un exemple de code de toutes façons (un forme avec 2 boutons, l'un illustre la fonction Beep de l'unité sysutils, l'autre la fonction Beep de l'unité Windows qui devrait être ce que tu cherches)

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    button1: TButton;
    button2: TButton;
    procedure button1Click(Sender: TObject);
    procedure button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.button1Click(Sender: TObject);
begin
  SysUtils.Beep;
end;
 
procedure TForm1.button2Click(Sender: TObject);
begin
  Windows.Beep(900,1000);
  Windows.Beep(6000,1000);
  Windows.Beep(3000,1000);
end;
 
end.

pour le retour sonore sur message d'erreur, relis les posts précédents.