Sonidos con el mother hasta confirmacion

[YaninaGenia]

Holaaaa
Estuve investigando sobre sonidos con el speaker del mother por si el usuario no tiene parlantes. Necesito reproducir un sonido hasta que le de OK a un mensaje, como puedo hacer esto?
Hice:

Código Delphi [-]
 repeat
   begin
     MessageBeep(word(-1));
   end;
   until MessageDlg('Welcome to my Object Pascal application. Exit now?',
           mtConfirmation, [mbOk], 0) = mrOk ;
           
   {...}

Pero no anda porque con el mensaje es como que se corta la ejecucion hasta que el usuario de el OK pero estoy en la misma!! Necesito que el timbrecito suene hasta que el usuario toque el botón. Alguien sabe como hacer esto?

Yanina Genia

[Neftali [Germán.Estévez]]

El MessageDlg te va a detener la ejecución. Utiliza un timer:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   b:Boolean;
 begin
 
   Timer1.Enabled := true;
   b := (MessageDlg('Welcome to my Object Pascal application. Exit now?', mtConfirmation, [mbOk], 0) = mrOk);
 
   if (b) then begin
     Timer1.Enabled := False;
   end;
 
 end;
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
   MessageBeep(word(-1));
   Beep();
   Application.ProcessMessages;
 end;

Por defecto en Enabled del timer a FALSE.

[YaninaGenia]

Gracias nene, ahi anduvo todo bien!!

Yanina Genia