Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Sonido al finalizar aplicacion (https://www.clubdelphi.com/foros/showthread.php?t=35484)

pichi Vignola 12-09-2006 14:35:03

Sonido al finalizar aplicacion
 
Hola mi consulta es la sig: necesito que mi aplicacion al cerrarse se ejecute un sonido. he probaldo poniendo un control TMEDIAPLAYER y ejecutandolo en los proc de cerrar y destriur form y no me da resultado. si alguien tiene un dato que me sirva, se los agradeceria
saludos.

dec 12-09-2006 15:05:23

Hola,

"Un sonido" no es muy específico que digamos. Lo siguiente parece funcionar... ignoro si necesitas algo más... cómo decirlo... pruébalo tú mismo. ;)

Código Delphi [-]
uses
  mmsystem;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  PlaySound('c:\windows\media\chord.wav', 0, SND_FILENAME or SND_ASYNC);
  Sleep(1000);
end;

Esto tampoco parece ir mal del todo y tiene mejor pinta...

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  PlaySound('c:\windows\media\chord.wav', 0, SND_FILENAME);
end;


La franja horaria es GMT +2. Ahora son las 06:18:06.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi