拉撒路帕斯卡蜂鸣命令(Lazarus Pascal beep command)

拉撒路帕斯卡蜂鸣命令(Lazarus Pascal beep command)

我在Windows上运行Lazarus。 我真的想让节目“哔哔”。 看起来你可以在Pascal中使用：

windows.beep(300,500);

但不是在拉撒路！ 是否有另一个我可以使用的命令？

更新：

sysutils.beep()

这很有效，但我真的很想设置声音的频率和持续时间

I'm running Lazarus on Windows. I would really like to make the program "Beep". It appears that you can do so in Pascal using:

windows.beep(300,500);

But not in Lazarus! Is there another command that I can use?

Update:

sysutils.beep()

This works, but I'd really like to set the frequency and duration of sound

最满意答案

Afaik这是可以工作多年的功能。 （Dev Pascal已超过十岁）。

有什么不同的是，Lazarus并没有像Delphi那样自动将Windows添加到uses子句中。

Afaik this is functionality that worked for ages. (Dev Pascal is over ten years old).

What is different is that Lazarus does not automatically add Windows to the uses clause, like Delphi does.