บทความนี้ เกิดจากมีคนถามพอดีครับ แต่คนที่ถามคงหาคำตอบได้นานแล้วครับ เอาไว้เผื่อคนอื่นๆแล้วกันนะครับ
ว่ากันง่ายๆ เลยครับ
ประกาศ API ก่อน
Function ulong GetKeyboardLayout (ulong dwLayout) library "USER32.DLL"
จากนั้นเขียน code ได้เลยครับ ตามตัวอย่าง
if GetKeyboardLayout(0) = 67699721 then
st_1.text = 'EN'
else
st_1.text = 'TH'
end if
sle_1.text = string(GetKeyboardLayout(0))
ลอง Download โปรแกรมทดสอบผมลองไปเล่นดูครับ