Sonido al finalizar aplicacion

[pichi Vignola]

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]

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;