怎么样使PC的喇叭发声?(30分)

如题，在WIN2000的环境下，不使用BEEP。

Delphi下的Beep没有参数
Windows 的Beep有参数
BOOL Beep(
DWORD dwFreq, // sound frequency, in hertz
DWORD dwDuration // sound duration, in milliseconds
);

procedure BeepEx(feq:word=1200;delay:word=1);
procedure BeepOff;
begin

asm
in al $61;
and al $fc;
out $61 al;
end;


end;


const
scale=1193180;
var
temp:word;
begin

temp:=scale div feq;
asm
in al 61h;
or al 3;
out 61h al;
mov al $b6;
out 43h al;
mov ax temp;
out 42h al;
mov al ah;
out 42h al;
end;

sleep(delay);
beepoff;
end;

windows.beep()就可以
要不就匯編

論壇上面有，搜索一下

UP，有没有更好的方法?