在Windows上使用Delphi更改键盘布局

I want to change the keyboard layout in Windows with Delphi. I successfully could do this with following code but it seems it only changes for I want to change the keyboard layout in Windows