Discussion :

[sgmsg]

Bonjour sous XP cette commande pascal fonctionnait à merveille :

Code :

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

windows.beep(2000,150)

pour faire biper le hautparleur du micro-ordinateur;

Sous windows7 ce sont les hautparleurs connectés à la carte son qui ~ bippent.

Est-ce qu'il existe une commande de remplacement?

Une solution?

Merci d'avance

[ShaiLeTroll]

Sous W7, il me semble improbable que OUT en Assembleur comme à l'époque de Win95 fonctionne mais on peut toujours rêver !

Essaye quand même la Comment jouer une note sur le speaker interne ?

Si Depuis W7, le Beep a changé faudrait l'indiquer dans Comment jouer une note sur la carte son ?

EDIT : un vieux exe en D7 lancé sur W7, comme toi, carte son
Le plus bête c'est si l'on met en muet, cela reste la carte son, cela ne repasse pas sur le buzzer CM !

[Paul TOTH]

en fait je suis en train de me demander si mon PC possède toujours un buzzer

[SergioMaster]

Bonjour,

fut un temps , j'ai essayé de faire la chose sous Ubuntu et Lazarus en me posant la même question que Paul a cette différence est qu'après test sous windows cette fois le buzzer fonctionnait
j'ai retrouvé ce bout de code (je ne sais si toujours fonctionnel) . Ayant eu une grosse panne d'oreiller ce matin (la faute a GMT+2) je le remet tel quel sans l'avoir tester Delphi

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
 
procedure PCSpeakerBeep(Frequency, Duration: Integer);
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
Windows.Beep(Frequency, Duration)
else
asm MOV ECX, Frequency
JCXZ @@2
MOV EAX, 1193181
CDQ
IDIV ECX
MOV ECX, EAX
IN AL, ($61)
TEST AL, $03
JNZ @@1
OR AL, $03
OUT ($61), AL
MOV AL, $B6
OUT ($43), AL
@@1: MOV AL, CL
OUT ($42), AL
MOV AL, CH
OUT ($42), AL
PUSH Duration
CALL Windows.Sleep
@@2: IN AL, ($61)
AND AL, $FC
OUT ($61), AL
end;
end;