PC-Speaker ansprechen

Computer: Software & Programmierung Delphi & Pascal
#1

Hi,
weiß jemand von euch, wie man unter Delphi den PC-Speaker „anspricht“?
Ich weiß es nämlich nur von MS Quickbasic:

a# = 37
b# = 440
c# = 1

FOR I = a# TO b# STEP c#
SOUND I, I / 1000
NEXT
FOR I = b# TO a# STEP -c#
SOUND I, I / 1000
NEXT

Das ist jedenfalls der BASIC Quellcode. Vielleicht kann ihn mir jemand übersetzen? Oder gibt es eine andere Methode (für Delphi)?

(Soll eine Alarmsirene darstellen)
Ich danke schon mal im Voraus für Hilfen von irgendwo da draußen.
gruß CS

#2

weiß jemand von euch, wie man unter Delphi den PC-Speaker
„anspricht“?

Hallo Christoph,

lade Dir von http://aritechdev.hypermart.net/dcomp/ die Unit „ATPCSpk“ herunter. Die darin implementierte Komponente „TATPCSpk“ leistet das Gewünschte.

MfG
Martin