No hay respuestas en este tema

[Caral]

Hola
Si quieres que tus mensajes contengan un sonido puedes usar los sonidos de windows wav asi:

delphi

uses MMSystem;  // se necesita esta unidad
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  sndPlaySound('C:\Windows\Media\winAquariumQuestion.wav', // busca ese sonido en particular
  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
  Showmessage('hola'); // despliega el mensaje
  sndPlaySound(nil, 0); // Detiene el sonido, cuando detengas el mensaje
end;

Los Sonidos de windows se encuentran en la carpeta, Media:

C:\Windows\Media\ELSONIDO.wav

Saludos