Как узнать какую клавишу нажали?

#define WS_VISIBLE 0x10000000
#define WS_CHILD 0x40000000
#define WS_BORDER 0x00800000
#define HKM_GETHOTKEY 0x402
#define HOTKEYF_SHIFT 0x01
#define HOTKEYF_CONTROL 0x02
#define HOTKEYF_ALT 0x04
#define MOD_ALT 0x0001
#define MOD_CONTROL 0x0002
#define MOD_SHIFT 0x0004

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "EnableWindow", "EnableWindow", "User32.dll");
external(INT, "RegisterHotKey", "RegisterHotKey", "User32.dll");
external(INT, "UnregisterHotKey", "UnregisterHotKey", "User32.dll");


int HotKey, ButtonOK;
int HotKeyId = 1111;
int RegisterHotKeyFlag = 0;


createdialog(0);
showdialog(0, "Диалог",100, 100, 300, 200, 4, 1);

loop()sleep(10);

end:;

function getmessage(0, WM_CREATE)
{
HotKey=CreateWindow(0, "msctls_hotkey32", "", WS_CHILD | WS_VISIBLE | WS_BORDER, 20, 10, 140, 24, gethwnd(0), 0, 0, 0);
ButtonOK=CreateWindow(0, "BUTTON", "Установить Хоткей", WS_CHILD | WS_VISIBLE, 20, 40, 140, 24, gethwnd(0), 0, 0, 0);
}

function getmessage(0, WM_COMMAND)
{
if(message.lparam==ButtonOK) // если нажата кнопка
{
if(RegisterHotKeyFlag==0) // если хоткей не был установлен
{
int Key = sendmessage(HKM_GETHOTKEY, 0, 0, formatiw(HotKey)); // получить код клавиши и модификаторы
if(Key==0)
{
messagebox("Пусто");
return;
}

// узнать какие модификаторы были нажаты
char byte[4];
codhex(Key, #byte[0]);

int fsModifiers = 0;
if(formatci(byte[1]) == HOTKEYF_SHIFT)fsModifiers = MOD_SHIFT;
if(formatci(byte[1]) == HOTKEYF_CONTROL)fsModifiers = MOD_CONTROL;
if(formatci(byte[1]) == HOTKEYF_CONTROL | HOTKEYF_SHIFT)fsModifiers = MOD_CONTROL | MOD_SHIFT;
if(formatci(byte[1]) == HOTKEYF_ALT)fsModifiers = MOD_ALT;
if(formatci(byte[1]) == HOTKEYF_ALT | HOTKEYF_SHIFT)fsModifiers = MOD_ALT | MOD_SHIFT;
if(formatci(byte[1]) == HOTKEYF_CONTROL | HOTKEYF_ALT)fsModifiers = MOD_CONTROL | MOD_ALT;
if(formatci(byte[1]) == HOTKEYF_CONTROL | HOTKEYF_ALT | HOTKEYF_SHIFT)fsModifiers = MOD_CONTROL | MOD_ALT | MOD_SHIFT;

if(RegisterHotKey(gethwnd(0), HotKeyId, fsModifiers, formatci(byte[0]))) // установить хоткей
{
RegisterHotKeyFlag=1;
EnableWindow(ButtonOK, 0);
messagebox("Хоткей установлен^r^nЗакрыв это окно можно проверить работу хоткея");
}
}
}
}


function getmessage(0, WM_HOTKEY)
{
if(message.wparam==HotKeyId)
{
messagebox("Нажат Хоткей^r^nДальнейшие действия");
}
}

function getmessage(0, WM_CLOSE)
{
UnregisterHotKey(gethwnd(0), HotKeyId);
messagebox("Окно закрыто^r^nХоткей удалён");
goto global end;
}