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:


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:

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:

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 (http://www.clubdelphi.com/foros/showthread.php?t=75877)

Un saludo.