Главная страница | назад





Article #17522: calling windows Beep() function

 Question and Answer Database
FAQ2522D.txt calling windows Beep() function
Category :Object Pascal
Platform :All
Product :All 32 bit
Question:
I want to call the Windows Beep() function, but I get the error
"Too many parameters" when compiling. How can I get
around this?
Answer:
The Beep() procedure is declared both in the SysUtils unit
and the Windows unit. The following example demonstrates
calling both procedures.
procedure TForm1.Button1Click(Sender: TObject);
begin
SysUtils.Beep;
Windows.Beep(100, 1000);
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99