Hardware Delphi

Title: keyboard layout switch
Question: How can I switch a current keyboard layout?
Answer:
If you want to change a current keyboard layout, you can:
1. var lang: HKL;
lang := LoadKeyboardLayout(pcKeyboard, 0);
SetActiveKeyboardLayout(lang);
2. LoadKeyboardLayout(pcKeyboard, KLF_ACTIVATE);
where pcKeyboard is:
'00000409' - english
'00000419' - russian
'00000422' - ukrainian
'00000407' - german
'0000040C' - french
'00000410' - italian
'00000416' - portuguese
'0000040A' - spanish
... (for more information view a language consts in windows.pas)