DELPHI AREA Forum

Is there a way to program a Beep?

Yep!

Beep; - Found in SysUtils

yeah ... how to do access that sysutls

i type beep; nothing happens

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

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?

Yes! windows should be in uses clause.

continue := MessageBeep($FFFFFFFF );

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

it is a consol applicatoin if that matters

MrNotToSmartGuy wrote: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;