Código Delphi [-] var Sonido: String; begin Sonido:= 'C:\WINDOWS\Media\Error de Windows XP.wav'; PlaySound(PChar(Sonido),0,SND_FILENAME or SND_ASYNC or SND_LOOP); ShowMessage('Pulsa aceptar para terminar'); PlaySound(nil,0,0); end;
var Sonido: String; begin Sonido:= 'C:\WINDOWS\Media\Error de Windows XP.wav'; PlaySound(PChar(Sonido),0,SND_FILENAME or SND_ASYNC or SND_LOOP); ShowMessage('Pulsa aceptar para terminar'); PlaySound(nil,0,0); end;