A beep sound

[MrNotToSmartGuy]

Is there a way to program a Beep?

[Codius]

Yep!

Beep; - Found in SysUtils

[MrNotToSmartGuy]

yeah ... how to do access that sysutls

[MrNotToSmartGuy]

i type beep; nothing happens

[Kambiz]

Try MessageBeep API of Windows.

Code: Select all

function MessageBeep(uType: Cardinal): Boolean;

where uType is:

• $FFFFFFFF
  Standard beep using the computer speaker
• MB_ICONASTERISK
  System Asterisk
• MB_ICONEXCLAMATION
  System Exclamation
• MB_ICONHAND
  System Hand
• MB_ICONQUESTION
  System Question
• MB_OK
  System Default

[MrNotToSmartGuy]

thank you for the reply. when I type the function MessageBeep delphi doesn't understand what MessageBeep is, do I have to include something in the uses part?

[Kambiz]

Yes! windows should be in uses clause.

[MrNotToSmartGuy]

continue := MessageBeep($FFFFFFFF );

This is what I have an I'm not getting it to beep. Continue is a boolean

[MrNotToSmartGuy]

it is a consol applicatoin if that matters

[Kambiz]

it is a consol applicatoin if that matters

Of course, it does matter.
Try this one, it should work:

Code: Select all

procedure Beep;
begin
  Write(#8);
end;