Как получить имя нажимаемых системных клавиш(Delphi)

[The_Darkness]

Как получить из lParam WM_KEYDOWN имя нажимаемых клавиш типа шифта ескейпа и т.д. Составлять таблицу соответствий case-ом? Или есть нормальный способ?

[Somebody]

GetKeyNameText()

[The_Darkness]

в том то и дело что нефига у меня эта штука не пашет((

Тьфу блин, прошу прощения. Там скан-код нужен был.
Вот так надо было писать

SetLength(S,10);
leng:=GetKeyNameText((msg^.lparam and $FF00)shl 8,@S[1],10);
SetLength(S,leng);