Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Имя устройства 
:(
    Опции темы
nda
  Дата 2.5.2014, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Народ подскажите как узнать имя диска по названию устройства.
WD My Passport 074A USB Device соответствует диску H:\
или наоборот зная имя диска узнать имя устройства
PM MAIL   Вверх
navodri
Дата 23.7.2014, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: -1
Просто не будет. Есть вариант с библиотекой SetupAPI.

Пример вместе с SetupAPI...

Это сообщение отредактировал(а) navodri - 23.7.2014, 12:10

Присоединённый файл ( Кол-во скачиваний: 4 )
Присоединённый файл  Список_дисков.zip 5,94 Kb
PM MAIL WWW   Вверх
kami
Дата 23.7.2014, 12:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 15
Всего: 72
Цитата(nda @  2.5.2014,  13:02 Найти цитируемый пост)
имя диска по названию устройства.

Хммм. а у меня 1 диск Hitachi чего-то-там разделен на 4 диска. Какое имя из C: D: E: F: нужно вывести?
А второй hdd пока не форматирован, у него нет "имени диска". Как быть с ним?

Цитата(nda @  2.5.2014,  13:02 Найти цитируемый пост)
или наоборот зная имя диска узнать имя устройства

Есть диск Z, которого на самом деле нет (диспетчер управления дисками из админской панели его не видит), на самом деле это E:\Music\Enigmatic . Как быть с ним?
PM MAIL WWW   Вверх
navodri
Дата 23.7.2014, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: -1
Не хотите разбираться с примером? Я понял. Тогда простой вариант чтения лейбла:

Код

function GetDriveVolume(myDisk: String): String;
var
 VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char;
 VolumeSerialNo : DWord;
 MaxComponentLength,FileSystemFlags : DWord;
begin
 GetVolumeInformation(PChar(myDisk + ':\'),VolumeName, MAX_PATH, @VolumeSerialNo,
   MaxComponentLength, FileSystemFlags, FileSystemName, MAX_PATH);
 Result := VolumeName;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 caption :=  GetDriveVolume('D');
end;
PM MAIL WWW   Вверх
Keeper89
Дата 2.8.2014, 20:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 58
Можно заюзать WMI. Проще это сделать, используя WMI Creator и например, класс Win32_Volume.

Это сообщение отредактировал(а) Keeper89 - 2.8.2014, 20:32


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0423 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.