Lazarus Pascal哔哔命令

Question

我在Windows上运行Lazarus.我真的想让节目"嘟嘟".看来你可以在Pascal中使用:

windows.beep(300,500);

但不是在拉撒路!我可以使用另一个命令吗？

更新:

sysutils.beep()

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

Answer 1

Afaik这是功能多年的功能.(Dev Pascal已超过十年).

不同的是,Lazarus不像Delphi那样自动将Windows添加到uses子句中.

Answer 2

如果未在Lazarus中声明此函数,则可以将其声明为:

function Beep(dwFreq, dwDuration: DWORD): BOOL; stdcall; external 'kernel32.dll';