Reproducor sonidos en delphi

[ecfisa]

Hola Homero1225.

En lo posible trata de poner los mensajes en el foro adecuado, "Reproducir sonidos en delphi" no tiene que ver con el foro "Gráficos" . Si no tenes en claro en que foro debería ir tu mensaje ponelo en "Varios" de allí, si corresponde, algún moderador lo moverá al foro adecuado.

Y por favor... relee nuestra guía de estilo.

Saludos y gracias por tu colaboración

[[nlsgarcia]]

Homero1225,

Revisa este ejemplo:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MMSystem;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure SoundKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SoundKeyPress(Sender: TObject; var Key: Char);
var
   SoundKey : string;
   i : Integer;

begin

  SoundKey := ExtractFilePath(Application.ExeName) + 'Windows Logon Sound.wav';

  for i := 1 to 3 do
  begin
     // API de Windows Multimedia Sounds en la Unidad MMSystem
     PlaySound(PAnsiChar(SoundKey), 0, SND_FILENAME or SND_ASYNC);
     Sleep(1000);
  end;

  MessageDlg('Key =' + IntToStr(Ord(Key)) + ' has been pressed', mtInformation, [mbOK], 0);

end;

end.

El Evento OnKeyPress del Control TEdit por medio del procedure TForm1.SoundKeyPress reproducira 3 veces seguidas un archivo .WAV con un intervalo de un segundo entre sonido y mostrara el código ASCII de la tecla presionada.

Espero sea útil

Nelson.