Wielotonowe dźwięki w Delphi

W Turbo Pascalu było sound(częstotliwość), a w Delphi mamy zwykłe beep.
Czy jest w Delphi "coś" co "robi" dźwięk o zadanej częstotliwości?

A to sound () i beep () to co to niby jest ?

ps. Ale wjechałeś z tymi 5'cioma postami

Jest w Download unit do wydawania dzwięków o danej czestotliwości PCSpeakerem.

uses Windows;
 
procedure Sound(Freq: Word);
procedure NoSound;
procedure Delay(MSecs: Integer);
 
implementation
 
procedure SetPort(address, value: Word);
var
bValue: Byte;
begin
bValue := trunc(value and 255);
asm
mov DX, address
mov AL, bValue
out DX, AL
end;
end;
 
function GetPort(address: Word): Word;
var
bValue: Byte;
begin
asm
mov DX, address
in AL, DX
mov bValue, AL
end;
result := bValue;
end;
 
procedure NoSound;
var
wValue: Word;
begin
wValue := GetPort($61);
wValue := wValue and $FC;
SetPort($61, wValue);
end;
 
procedure Sound(Freq: Word);
var
B: Word;
begin
if Freq > 18 then begin
Freq := Word(1193181 div LongInt(Freq));
B := GetPort($61);
if (B and 3) = 0 then begin
SetPort($61, B or 3);
end;
SetPort($42, Freq);
SetPort($42, (Freq SHR 8));
end;
end;
 
procedure Delay(MSecs: Integer);
var
FirstTickCount : LongInt;
begin
FirstTickCount:=GetTickCount;
repeat
SleepEX(1, false);
until ((GetTickCount-FirstTickCount) >= LongInt(MSecs));
end;
end.

albo można stworzyć wava z dźwiękiem i go odegrać.

zobacz http://pq.royy.net program Generator