VPF::как программно узнать букву диска флешки

Baha_Ahmed

Дата 24.2.2010, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет

Помогите, как можно программно узнать имя диска вставленной флешки? Ну к примеру вставили флешку - она как правило всегда меняет имя диска, потому что как правило ее в разные порты сують. Так вот как это программно узнать? smile

~FoX~

Дата 24.2.2010, 19:12 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68

Ловить WM_DEVICEHANGE с параметром DBT_DeviceArrival, могу дать рабочий пример, но на делфи...

--------------------

…множественность никогда не следует полагать без необходимости…

Akina

Дата 24.2.2010, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Baha_Ahmed @ 24.2.2010, 19:16

)

она как правило всегда меняет имя диска, потому что как правило ее в разные порты сують

Достаточно через диспетчер дисков один раз дать ей букву за пределами автоматического выделения - и до переформатирования она будет цепляться на этом компе именно на эту букву.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Baha_Ahmed

Дата 2.3.2010, 20:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет

Цитата(Akina @ 24.2.2010, 21:09)

Цитата(Baha_Ahmed @ 24.2.2010, 19:16

)

она как правило всегда меняет имя диска, потому что как правило ее в разные порты сують

да, ты правильно говоришь, но как это сделать на других копмах?

Akina

Дата 2.3.2010, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Сформулируй всю задачу. ЗАЧЕМ тебе нужна буква флешки?

--------------------

hclubmk

Дата 9.3.2010, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.7.2008

Репутация: нет
Всего: нет

Если ловить - второй пост
Если узнать:

Код


Private Sub Form_Load()
  Me.AutoRedraw = True
  Set objSWbemService = GetObject("winmgmts:\\.\ROOT\CIMV2")
  Set wmiDiskDrives = objSWbemService.ExecQuery("SELECT * FROM Win32_DiskDrive")
  For Each wmiDiskDrive In wmiDiskDrives
   If wmiDiskDrive.InterfaceType = "USB" Then 'IDE
    Print "USB диск:", wmiDiskDrive.Model
    Print "Size:", wmiDiskDrive.Size & " Байт"
    PnPID = wmiDiskDrive.PnPDeviceID
    Print "Заводской номер:", Replace(Mid(PnPID, InStrRev(PnPID, "\") + 1), "&0", "")
    strEscapedDeviceID = Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare)
    Set wmiDiskPartitions = objSWbemService.ExecQuery _
                       ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
                       strEscapedDeviceID & """} WHERE AssocClass = " & _
                       "Win32_DiskDriveToDiskPartition")
    For Each wmiDiskPartition In wmiDiskPartitions
    Set wmiLogicalDisks = objSWbemService.ExecQuery _
                       ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
                       wmiDiskPartition.DeviceID & """} WHERE AssocClass = " & _
                       "Win32_LogicalDiskToPartition")
    For Each wmiLogicalDisk In wmiLogicalDisks
     Print "Логический диск:", wmiLogicalDisk.DeviceID
    Next
   Next
   End If
  Next
End Sub

Это сообщение отредактировал(а) hclubmk - 9.3.2010, 16:23

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »