MessageBox y PlaySnd simultáneos

[jhonny]

Y si creas tu propio MessageBox, desde un TForm que haga lo que quieres?

[jhonny]

Aquí es donde mejor retiro mis palabras y abro paso a un señor como seoane... La idea de usar un Hilo es definitivamente mucho mas practica

[[seoane]]

Empezado por jhonny

Aquí es donde mejor retiro mis palabras y abro paso a un señor como seoane... La idea de usar un Hilo es definitivamente mucho mas practica

Todo lo contrario, parece que volví a sacar el cañón para matar un par de moscas

Mucho mas sencillo así:

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;

El código anterior estaba reciclado de este otro, en donde si tenia sentido usar un thread.

[jhonny]

Empezado por seoane

Todo lo contrario, parece que volví a sacar el cañón para matar un par de moscas

Mucho mas sencillo así:

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;

Jo jo jo, tienes razón , pero en ese caso queda una duda dentro de mi,
¿Como carajos es que deje pasar la oportunidad de ganarle unita a seoane?

[ixMike]

Graicas, seoane, el código va de perlas.