Ver Mensaje Individual
  #2  
Antiguo 20-11-2008
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Hola, bienvenida al Club

Para empezar, utiliza las etiquetas [delphi][/delphi] cuando escribas código en le foro.

Mira que bien queda:
Código Delphi [-]
procedure sonido(num:integer);
var
  Path:string;
begin
  path:='C:\Users\Paulau\Desktop\DelphiProgramas\Lotería Familiar\'+inttostr(num)+'.wav';
  sndPlaySound(pchar(path),SND_NODEFAULT or SND_Sync);
end;

Código Delphi [-]
procedure TFrmInicial.BotonPlayClick(Sender: TObject);
begin
 if columna < 9 then
 begin
 LbComenzar.Caption:='';
  if int(bolassacadas/(columna+1)) >8 then
  begin
   columna:=columna+1;
   fila:=0;
  end;
 auxiliar:=numero;
 grillaNumeros.Cells[columna,fila]:=inttostr(auxiliar);
 NumeroBola.Caption:=inttostr(auxiliar);
 sonido(auxiliar);
 fila:=fila + 1;
 end;
end;

Y volviendo a tu pregunta ¿cual es el problema exactamente? ¿Un sonido empieza a reproducirse antes de que termine el anterior?
Responder Con Cita