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

اذهب الى الأسفل

شرح  الدالة GetDriveType لتحديد نوع القرص  Empty شرح الدالة 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
المساهمات : 83
النقاط : 158
التقيم : 11
الجنس : انثى

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

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

مُساهمة من طرف 1zaza في الثلاثاء يناير 01, 2019 7:43 am

شكرا جزيلا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
1zaza
1zaza
...
...

تاريخ التسجيل : 18/11/2018
المساهمات : 32
النقاط : 50
التقيم : 0
الدولة : مصر
الجنس : ذكر

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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