تشخیص درایو CD \CDW\DVD

[HAMRAHSOFT.IR]

دوستان چطوری می توانیم درایو CD \CDW\DVD یک سیستم را تشخیص دهیم

[sarami]

با استفاده از توابع Api :
برای این منظور احتیاج به فراخوانی دو تابع از توابع kernel32 به نامهای GetLogicalDriveStrings و GetDriveType دارید . برای شروع این دو تابع را بصورت زیر declare کنید .

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

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

حال یک command buttonدر فرم خود قرار داده و کد زیر را در event مربوطه به طور مثال onclick قرار دهید.

allDrives$ = Space$(64)
ret& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
allDrives$ = Left$(allDrives$, ret&)
Do
pos% = InStr(allDrives$, Chr$(0))
If pos% Then
JustOneDrive$ = Left$(allDrives$, pos% - 1)

allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))

DriveType& = GetDriveType(JustOneDrive$)
If DriveType& = 5 Then
MsgBox UCase$(JustOneDrive$) & " is a CD Drive"
End If
End If
Loop Until allDrives$ = ""

[azadich]

با استفاده از توابع Api :
برای این منظور احتیاج به فراخوانی دو تابع از توابع kernel32 به نامهای GetLogicalDriveStrings و GetDriveType دارید . برای شروع این دو تابع را بصورت زیر declare کنید .

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

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

حال یک command buttonدر فرم خود قرار داده و کد زیر را در event مربوطه به طور مثال onclick قرار دهید.

allDrives$ = Space$(64)
ret& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
allDrives$ = Left$(allDrives$, ret&)
Do
pos% = InStr(allDrives$, Chr$(0))
If pos% Then
JustOneDrive$ = Left$(allDrives$, pos% - 1)

allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))

DriveType& = GetDriveType(JustOneDrive$)
If DriveType& = 5 Then
MsgBox UCase$(JustOneDrive$) & " is a CD Drive"
End If
End If
Loop Until allDrives$ = ""
میشه اساتید محترم رو نمونه اصلاح فرمایند به طوری سریال سی دی هم نمایش دهد ضمن تشخیص آن منظور سریال فرمت هست

[azadich]

میشه اساتید محترم رو نمونه اصلاح فرمایند به طوری سریال سی دی هم نمایش دهد ضمن تشخیص آن منظور سریال فرمت هست
خواهشمند است یکی از اساتید لطف بفرمایند نمونه را اصلاح کنند