[asmarsou]

(22-07-22, 06:56 PM)أبو خالد الشكري كتب : وعليكم السلام ورحمة الله وبركاته

تفضل هذا هو كود التحقق من البارتيشن الذي يتواجد عليه الويندوز

كود :

  Dim winPath As String
winPath = Environ$("windir")
MsgBox (winPath)

---

وهذا هو كود التحقق من لغة الإدخال

كود :

Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage
       MsgBox(myCurrentLanguage.Culture.DisplayName)

السلام عليكم
اضافة الى ما جاد به الاخ ابو خالد هذا مثال بسيط جامع لكل معلومات النظام