Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 11.01.2019, 13:07   #1
falsebegin
Пользователь
 
Регистрация: 23.11.2016
Сообщений: 36
Репутация: 10
По умолчанию Кто знает как получить имена или модели жестких дисков

Всем драсти помогите кто знает как получить имена или модели жестких дисков?

111.jpg
falsebegin вне форума   Ответить с цитированием
Старый 11.01.2019, 13:08   #2
Alex11223
Модератор
Заслуженный модератор
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 17,907
Репутация: 3428

icq: 512-765
skype: alexp.frl
По умолчанию

WMI Win32_DiskDrive.
Alex11223 вне форума   Ответить с цитированием
Старый 11.01.2019, 14:30   #3
falsebegin
Пользователь
 
Регистрация: 23.11.2016
Сообщений: 36
Репутация: 10
По умолчанию

а без wmi ни как ??

Последний раз редактировалось falsebegin; 12.01.2019 в 07:20.
falsebegin вне форума   Ответить с цитированием
Старый 12.01.2019, 10:14   #4
R71MT
Профессионал
 
Аватар для R71MT
 
Регистрация: 16.06.2011
Адрес: Фергана
Сообщений: 1,272
Репутация: 1026
По умолчанию

если без WMI, то или читать в реестре ветки:

• HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Enum\IDE
• HKEY_LOCAL_MACHINE\HARDWARE\DEVICEM AP\Scsi

или сканить пространство PCI,
или читать драйвером напрямую с портов ввода-вывода, камандой DeviceID.
__________________
Нашедшего выход - затаптывают первым..
R71MT вне форума   Ответить с цитированием
Старый 12.01.2019, 10:30   #5
falsebegin
Пользователь
 
Регистрация: 23.11.2016
Сообщений: 36
Репутация: 10
По умолчанию

HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Enum\IDE
то что надо вот теперь как правильно из него вытащить и показать в мемо или в label1
falsebegin вне форума   Ответить с цитированием
Старый 12.01.2019, 10:43   #6
R71MT
Профессионал
 
Аватар для R71MT
 
Регистрация: 16.06.2011
Адрес: Фергана
Сообщений: 1,272
Репутация: 1026
По умолчанию

RegOpenKeyEx() + RegQueryValueEx()
__________________
Нашедшего выход - затаптывают первым..
R71MT вне форума   Ответить с цитированием
Старый 12.01.2019, 11:06   #7
falsebegin
Пользователь
 
Регистрация: 23.11.2016
Сообщений: 36
Репутация: 10
По умолчанию

может кто нить поможет нубу написать функцию пример

Код:

function EnumIDE:string;
var reg:tregistry;
begin
reg := tregistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKeyReadOnly('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\IDE\');

Result := reg.ReadString('FriendlyName');
reg.Free;
end;

Пожалуйста, оформляйте Ваш код согласно правилам.

Последний раз редактировалось Вадим Мошев; 01.02.2019 в 14:31.
falsebegin вне форума   Ответить с цитированием
Старый 12.01.2019, 12:38   #8
beegl
Программ Аналитик
Профессионал
 
Аватар для beegl
 
Регистрация: 24.05.2008
Адрес: Днепропетровск, Ukraine
Сообщений: 1,334
Репутация: 526

icq: 62754415
skype: stepanext
По умолчанию

Цитата:
Сообщение от falsebegin Посмотреть сообщение
может кто нить поможет нубу написать функцию пример
этим компонентом: MiTeC System Information

или этот, там: Componentes GLibWMI

Последний раз редактировалось beegl; 12.01.2019 в 13:25. Причина: add lnk
beegl вне форума   Ответить с цитированием
Старый 12.01.2019, 12:55   #9
falsebegin
Пользователь
 
Регистрация: 23.11.2016
Сообщений: 36
Репутация: 10
По умолчанию

xmm вроде бы правильно поставил и просто выходит сообщения Sytem SerialNumber и все а где модель диска?
falsebegin вне форума   Ответить с цитированием
Старый 12.01.2019, 12:58   #10
falsebegin
Пользователь
 
Регистрация: 23.11.2016
Сообщений: 36
Репутация: 10
По умолчанию

Вложение 95564
falsebegin вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в ubuntu отключить авто монтирование жестких дисков? youknow Linux (Ubuntu, Debian, Red Hat, CentOS, Mint) 3 17.07.2017 14:54
ребята, может кто делал, или знает как описать унимодальную фукнцию Alenka63 Microsoft Office Excel 2 14.10.2016 16:25
Как получить список жестких дисков? Glaciuse Win Api 10 06.02.2014 15:07
Получить имена физических дисков. Ant-kul C# (си шарп) 2 16.12.2012 15:08
Как извлечь музыку из файла или может кто знает, что играет? Marsel737 Свободное общение 13 16.08.2011 20:53


08:13.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru