Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Неизвестно -

Visual Basic 5.0/6.0 - Железо и устройства

Все примеры / Железо и устройства

Поиск CD-ROM-ов

Автор: Неизвестно | добавлено: 06.03.2010, 12:02 | просмотров: 1090 (1+) | комментариев: 0 | рейтинг: *x1
Пример показывает, как найти все 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
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Неизвестно

Нет информации об авторе...
Неизвестно
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики