help me whit getkeystate plz

[h4x0r #]

I try to make press NUMPAD 1 in trainer lisen sound "activated" and pressing again NUMPAD 1 sound "desactivated" but no work no can lisen the second sound prssing the same key 2 times, any can help me?

thanks

DELPHI CODE:

if HiWord(GetKeyState(VK_NUMPAD1)) <> 0 then
    PlaySound (PChar ('ACT'), Hinstance, SND_Resource Or SND_ASYNC)
    else
    PlaySound (PChar ('DEC'), Hinstance, SND_Resource Or SND_ASYNC);

PD: solved.