الان صفحه کلید فارسیه یا انگلیسی؟

[mehdi_moosavi]

وقت بخیر
دوستان محترم با Alt+Shift میشه صفحه کلید رو فارسی یا انگلیسی کرد.
حالا آیا میشه در دلفی فهمید الان صفحه کلید فارسیه یا انگلیسیه؟
مثلا فانکشنی باشه که اگه صفحه کلید فارسی بود صفر و اگر انگلیسی بود یک رو برگردونه.
لطفا راهنمایی کنید
با تشکر

[Mahmood_M]

تابع GetKeyboardLayout مقدار Layout برای یک Thread خاص رو به صورت یک مقدار عددی برمیگردونه، اگر ورودیش رو صفر بدید Layout برای ترد فعلی برگشت داده میشه، مثال :

var

 L : HKL;

begin

 L := GetKeyboardLayout(0);



 case L of

  $4090409 : ShowMessage('English');

  $4290429 : ShowMessage('Farsi');

 end;

end;