[عبدالله الصافي]

الكود بمرفق المشاركة 3
Public Function KeyLang()
h1 = GetForegroundWindow
h2 = GetWindowThreadProcessId(h1, 0)
If GetKeyboardLayout(h2) <> 67177473 Then Form1.Timer1.Tag = "en"
If GetKeyboardLayout(h2) = 67177473 Then Form1.Timer1.Tag = "ar"
End Function
مشكلته انه يعمل مع لغة كتابة معينة
مثلا اللغة العربية لمصر غير اللغة العربية لاي دولة اخر
فالكود لا يستيع معرفة لغة الكتابة

فهل من طرقة افضل؟