VBNet - Форум - Новое сообщение без темы

Вопрос: Новое сообщение без темы Добавлено: 06.07.02 22:14

Автор вопроса: Keith Flint | Web-сайт: www.flint7.nm.ru

Через FSO

Ответить

Ответы Всего ответов: 4

Номер ответа: 1
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #1

Добавлено: 27.06.02 17:44

А autorun.inf не пробовал ?

Ответить

Номер ответа: 2 Автор ответа: DeXTeR Вопросов: 32 Ответов: 30	Профиль \| \| #2	Добавлено: 27.06.02 18:33
	Я хочу создать своё мультимедийное меню из-под которого можно ставить проги Ответить

Номер ответа: 3
Автор ответа:

Иван

Администратор

ICQ: 147688925

Вопросов: 24
Ответов: 708

Web-сайт: www.vbnet.ru
Профиль | | #3

Добавлено: 27.06.02 21:55

Вот посмотри:
GetDrives возвратит (неудобно что это в виде процедуры, а не функции - извини такой был раньше у меня проект) все доступные диски системы и их тип. Анализируй эту информацию и выбирай себе CD-ROM, их, кстати, может быть несколько (тут придется попотеть как выбрать нужный).

Public Type DriveInfo
strDrive As String
strType As String
End Type

Public Const DRIVE_REMOVABLE = 2
Public Const DRIVE_FIXED = 3
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_CDROM = 5
Public Const DRIVE_RAMDISK = 6

Public Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Sub GetDrives(drvInfo() As DriveInfo)
    Dim strDrives As String * 255
    Dim strDriveLetter As String
    Dim lngDriveType As String
    Dim lngStrLen As Long
    Dim lngFound As Long
    Dim lngPos As Long
    Dim i As Integer
    Dim h As Long

    lngStrLen = GetLogicalDriveStrings(254, strDrives)
    strDrives = Left(strDrives, lngStrLen)
    lngFound = InStr(strDrives, vbNullChar)
    Do
        strDriveLetter = Mid(strDrives, lngPos + 1, lngFound - lngPos - 1)
        If strDriveLetter <> "" Then
            lngPos = lngFound
            ReDim Preserve drvInfo(i)
            drvInfo(UBound(drvInfo)).strDrive = strDriveLetter
    'прочитать информацию о дисках
            drvInfo(i).strDrive = strDriveLetter
    'тип диска
            lngDriveType = GetDriveType(strDriveLetter)
            Select Case lngDriveType
                Case DRIVE_REMOVABLE
                    drvInfo(i).strType = "Гибкий диск"
                Case DRIVE_FIXED
                    drvInfo(i).strType = "Локальный диск"
                Case DRIVE_RAMDISK
                    drvInfo(i).strType = "Электронный диск"
                Case DRIVE_CDROM
                    drvInfo(i).strType = "Компакт-диск"
            End Select
            lngFound = InStr(lngFound + 1, strDrives, vbNullChar)
        Else
            lngFound = 0
        End If
        i = i + 1
    Loop Until lngFound = 0
End Sub

Используй так:
Dim v() As DriveInfo
GetDrives v()

Ответить

Номер ответа: 4
Автор ответа:

Keith Flint

Вопросов: 29
Ответов: 74

Web-сайт: www.flint7.nm.ru
Профиль | | #4

Добавлено: 06.07.02 22:14

Через FSO

Ответить

Страница: 1 |