شرح الدالة GetDriveType لتحديد نوع القرص

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

شرح الدالة GetDriveType لتحديد نوع القرص

مُساهمة من طرف بنت البلد في الثلاثاء أكتوبر 02, 2012 12:36 pm

بسم الله الرحمن الرحيم
هذه الدالة تساعد في تحديد نوع القرص الموجود في جهازك.....ولكيفية استخدامها نتبع الخطوات التالية :



أولا:نضع هذا الكود في قسم التصريحات العامة General :



الرمز:

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long 



ثانيا:نضع هذا الكود في زر Command أو في الفورم لود Forum_Load :





الرمز:
 



Me.AutoRedraw = True
    Select Case GetDriveType("C:")
        Case 2
            Me.Print "Removable"
        Case 3
            Me.Print "Drive Fixed"
        Case Is = 4
            Me.Print "Remote"
        Case Is = 5
            Me.Print "Cd-Rom"
        Case Is = 6
            Me.Print "Ram disk"
        Case Else
            Me.Print "Unrecognized"
    End Select 



مع تمنياتي أن يكون الموضوع قد نال اعجابكم

بنت البلد
....
....

تاريخ التسجيل : 18/02/2011
المساهمات : 66
النقاط : 126
التقيم : 6
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى