Windows.Beep.

Ex:

procedure TForm1.Button1Click(Sender: TObject);
var
 zCont : Integer;
begin

 for zCont := 1000 to 5000 do
     windows.Beep(zCont,1);
 for zCont := 5000 downto 1000 do
     windows.Beep(zCont,1)

end;

  ----- Original Message ----- 
  From: Lucas Lima 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Monday, March 05, 2007 12:40 PM
  Subject: [delphi-br] Beep na placa-mãe


  Olá a todos, 

  O comando Beep emite um som através da saída da placa de som. Mas eu preciso 
que o speaker da placa-mãe emita este som.
  Isso é possível ? 

  Agradeço desde já a atenção.

  Abraços,
  Lucas Skåld.

  __________________________________________________
  Fale com seus amigos de graça com o novo Yahoo! Messenger 
  http://br.messenger.yahoo.com/ 

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Responder a