Кто знает как получить имена или модели жестких дисков

[falsebegin]

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

111.jpg

[Alex11223]

WMI Win32_DiskDrive.

[falsebegin]

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

[R71MT]

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

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

или сканить пространство PCI,
или читать драйвером напрямую с портов ввода-вывода, камандой DeviceID.

[falsebegin]

HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Enum\IDE
то что надо вот теперь как правильно из него вытащить и показать в мемо или в label1

[R71MT]

RegOpenKeyEx() + RegQueryValueEx()

[falsebegin]

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

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;

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

[beegl]

Сообщение от falsebegin

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

этим компонентом: MiTeC System Information

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

[falsebegin]

xmm вроде бы правильно поставил и просто выходит сообщения Sytem SerialNumber и все а где модель диска?

[falsebegin]

Вложение 95564