Lazarus Pascal beep command

Question

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

Answer 1

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.

Answer 2

If this function is not declared in Lazarus, you can declare it like:

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