شاید برای شما پیش امده که بخواهید دستیابی به یک درایو را مسدود کنید.برای این کار ابتدا باید نوع درایو را تشخیص دهید.کدی که در زیر آورده شده است این کار را برای شما در ویژوال بیسیک انجام میدهد و می تواند ۳ نوع درایو زیر را مشخص کند.این جادوی توابع api است.

 

۱- هارد fixed disk

۲- سی دی رام cd rom

۳-فلش دیسکremovable disk

البته  یک timer با interval=100 را باید روی فرم قرار داد.

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

Private Sub Drive1_Change()
Me.AutoRedraw = True
  Select Case GetDriveType(Drive1.Drive)
     Case Is = 1
        Me.Print "Do not Exists"
     Case Is = 2
        Me.Print "Removable"
     Case Is = 3
        Me.Print "Drive Fixed"
     Case Is = 4
        Me.Print "Remote or Network"
     Case Is = 5
        Me.Print "Cd-Rom"
     Case Is = 6
        Me.Print "Ram disk"
     Case Else
        Me.Print "Unrecognized"
 End Select
End Sub

Private Sub Form_Load()

End Sub

دانلود فایل اجرایی

دانلود سورس برنامه