Поиск CD-ROM-ов - Система - Интересные решения для программистов - Примеры кода

Система → Поиск CD-ROM-ов → Visual Basic

Пример показывает, как найти все CD-ROM-ы. Для работы примера нужно разметить на форме Label и CommandButton. Пример может не работать, если в системе стоят виртуальные сидирумы.

'разместите на форме Label и CommandButton
'ВНИМАНИЕ: Пример не работает, если в системе есть виртуальные CD-ROM's
Option Explicit

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6

Private Sub Command1_Click()
 Dim r&, allDrives$, JustOneDrive$, pos%, DriveType&
 Dim CDfound As Integer
 allDrives$ = Space$(64)
 r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$)
 allDrives$ = Left$(allDrives$, r&)
 Do
  pos% = InStr(allDrives$, Chr$(0))
  If pos% Then
   JustOneDrive$ = Left$(allDrives$, pos%)
   allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$))
   DriveType& = GetDriveType(JustOneDrive$)
   If DriveType& = DRIVE_CDROM Then
    CDfound% = True
    Exit Do
   End If
  End If
 Loop Until allDrives$ = "" Or DriveType& = DRIVE_CDROM
 
 If CDfound% Then
  label1 = "The CD-ROM drive on your system is drive " & UCase$(JustOneDrive$)
 Else
  label1 = "No CD-ROM drives were detected on your system."
 End If
End Sub

cdrom, find, vb, visual basic

KOS_MOS

MI-5

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Система → Поиск CD-ROM-ов → Visual Basic Пример показывает, как найти все CD-ROM-ы. Для работы примера нужно разметить на форме Label и CommandButton. Пример может не работать, если в системе стоят виртуальные сидирумы. 'разместите на форме Label и CommandButton 'ВНИМАНИЕ: Пример не работает, если в системе есть виртуальные CD-ROM's Option Explicit Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Const DRIVE_REMOVABLE = 2 Private Const DRIVE_FIXED = 3 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_CDROM = 5 Private Const DRIVE_RAMDISK = 6 Private Sub Command1_Click() Dim r&, allDrives$, JustOneDrive$, pos%, DriveType& Dim CDfound As Integer allDrives$ = Space$(64) r& = GetLogicalDriveStrings(Len(allDrives$), allDrives$) allDrives$ = Left$(allDrives$, r&) Do pos% = InStr(allDrives$, Chr$(0)) If pos% Then JustOneDrive$ = Left$(allDrives$, pos%) allDrives$ = Mid$(allDrives$, pos% + 1, Len(allDrives$)) DriveType& = GetDriveType(JustOneDrive$) If DriveType& = DRIVE_CDROM Then CDfound% = True Exit Do End If End If Loop Until allDrives$ = "" Or DriveType& = DRIVE_CDROM If CDfound% Then label1 = "The CD-ROM drive on your system is drive " & UCase$(JustOneDrive$) Else label1 = "No CD-ROM drives were detected on your system." End If End Sub cdrom, find, vb, visual basic KOS_MOS MI-5 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt