Ayuda con introducir sonido

[sagdec]

Buenas no se si este tema valla aqui o no soy nuevo en esto de delphi, lo que quiero saber es que en clase hicimos una aplicacion de realizar un helicoptero con opengl (algo sencillo el helicoptero) el punto esque le dimos rotacion con el evento de la forma OnKeyDown el codigo quedo asi:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
       //codigo scan tecla virtual
       VK_RIGHT : xe := xe + 0.1;
       VK_LEFT : xe := xe - 0.1;

       VK_UP : ye := ye + 0.1;
       VK_DOWN : ye := ye - 0.1;

       VK_PRIOR : ze := ze + 0.1;
       VK_NEXT : ze := ze - 0.1;
   end;
   refresh;
end;

lo que quiero esque al presionar la tecla izquiera o derecha o arriba o abajo meter un sonido, para ello tengo un codigo para introducir sonido mediante mmsystem el codigo que tengo es este:

Código Delphi [-]
sndPlaySound('c:\windows\media\Entrada de Windows XP.wav',0,SND_FILENAME or SND_ASYNC);

pero no se como implementarselo a la tecla, espero que me puedan ayudar se les agradece

salu2.

[ecfisa]

Hola sagdec.

Podrías utilizar el mismo evento para evaluar si la tecla presionada fué una de las cuatro que te interesan.

Por ejemplo:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    //codigo scan tecla virtual
    VK_RIGHT : xe := xe + 0.1;
    VK_LEFT : xe := xe - 0.1;
    VK_UP : ye := ye + 0.1;
    VK_DOWN : ye := ye - 0.1;
    VK_PRIOR : ze := ze + 0.1;
    VK_NEXT : ze := ze - 0.1;
  end;
  if Key in [VK_LEFT, VK_RIGHT, VK_UP, VK_DOWN] then  
    SndPlaySound('c:\windows\media\Entrada de Windows XP.wav', SND_FILENAME or SND_ASYNC);
  ...

Recordá el uso de las Etiquetas vB

Un saludo.