Solved

Api beep function

Posted on 2001-06-30
3
333 Views
Last Modified: 2010-04-06
How can i hook a beep function which some application executes and disable her;
0
Comment
Question by:f15iaf
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 3

Expert Comment

by:sburck
ID: 6241413
The function MessageBeep allows you to make the system beeps.  It is an API function, available to any application, Delphi or otherwise.
0
 
LVL 17

Accepted Solution

by:
inthe earned 100 total points
ID: 6241725
if you want to hook an api call you will need madshis madcodehook library and to read all you can from here:
http://help.madshi.net/Data/madCodeHook.htm

or you can look at JclPeImage from the jcl :
http://www.delphi-jedi.org/Jedi:CODELIBJCL:90332

the above is not for the faint of heart maybe easier to cut the wire to the speaker ;-)

instead of hooking his may work ok for you instead :

procedure TForm1.Button1Click(Sender: TObject);
begin //disable beep
SystemParametersInfo(SPI_SETBEEP, Word(False), nil, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin  //enable beep
SystemParametersInfo(SPI_SETBEEP, Word(true), nil, 0);
end;
0
 

Expert Comment

by:bengore
ID: 6244110
Last week I read a note about hooking the PC speaker beep.
But I can not remember the details. Try to search for the sensapi.(?)
http://msdn.microsoft.com/library/en-us/synchro/hh/zaw/sensport_1jxh.asp
0

Featured Post

On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
QRReport  TQrmemo vertical stretching 1 67
CheckListBox usage 3 97
Dev express lookupcombo 3 64
Twebbrowser in Fire monkey android scrolling to bottom 1 86
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question