حسین علوی
جمعه 23 اسفند 1392, 00:39 صبح
سلام خدمت اساتید بزرگوار
با کد زیر من زبان جاری سیستم رو مشخص میکنم ولی اگر فوکوس رو برنامه ای دیگه(مثلا نوت پد) باشه کار نمیکنه چرا؟
لطفا راهنمایی بفرمایید
Const KL_NAMELENGTH = 9
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Public Buffer As String
Private Sub Timer1_Timer()
Buffer = String(KL_NAMELENGTH, 10)
GetKeyboardLayoutName Buffer
Text1.Text = Buffer
End Sub
با کد زیر من زبان جاری سیستم رو مشخص میکنم ولی اگر فوکوس رو برنامه ای دیگه(مثلا نوت پد) باشه کار نمیکنه چرا؟
لطفا راهنمایی بفرمایید
Const KL_NAMELENGTH = 9
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Public Buffer As String
Private Sub Timer1_Timer()
Buffer = String(KL_NAMELENGTH, 10)
GetKeyboardLayoutName Buffer
Text1.Text = Buffer
End Sub