تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة لغة العرض الخاصة بنظام التشغيل ويندوز
#1
كاتب الموضوع : Boutemine Oualid

السلام عليكم و رحمة الله و بركاته



كود :
Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Long
Private Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long
Sub GetSystemLanguage(ByRef LongValue As Long, ByRef StringValue As String)
LongValue = "&H" & Right(Hex(GetSystemDefaultLangID()), 3)
StringValue = String(255, 0)
VerLanguageName LongValue, StringValue, Len(StringValue)
StringValue = Left$(StringValue, InStr(1, StringValue, Chr$(0)) - 1)
End Sub
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم