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





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