Hola,
Investiga en el SDK (Software Development Kit) para Win32 (incluido en el menú de ayuda de Delphi) sobre esto, pero, aquí tienes una función que reproducirá el sonido que le pidas:
Código Delphi [-]
uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
MMSystem.PlaySound('C:\Windows\Media\ringin.wav', 0, SND_FILENAME or SND_ASYNC);
end;
Observa el tercer parámetro de la función "PlaySound"... te permitirá "repetir" el sonido, entre otras muchas cosas (te remito de nuevo a su ayuda), de este modo, por ejemplo:
Código Delphi [-]
uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
MMSystem.PlaySound('C:\Windows\Media\ringin.wav', 0, SND_FILENAME or SND_ASYNC or SND_LOOP);
end;
|