WMI

[AppData]

Скажите пожалуйста, как получить информацию о мониторе, материнской плате. HDD, DRR + звукКарта

см. рис

[Konstantin_ua]

http://www.delphisources.ru/pages/so...m-devices.html может чем то поможет..

[AppData]

и так все. ссылки и дивайсы

[Streletz]

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

и так все. ссылки и дивайсы

Может быть, перед тем как пользоваться готовым исходником из интернета всё-таки стоит разобраться как он работает?
Изначально строка с информацией формируется именно в таком виде, как показано у Вас на скриншоте. Однако, если немного подредактировать исходник, то всё встаёт на свои места.

[AppData]

Streletz, а можно попросить собранный исходный код?!

[Konstantin_ua]

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

Streletz, а можно попросить собранный исходный код?!

как мёд так и ложкой

[Stilet]

Отвечу мнемокодом:

    '<h2 align="middle">Память</h2>' 				(call f.cmd text='wmi select Capacity from Win32_PhysicalMemory')
    '<h2 align="middle">CD-DVD-ROM</h2>' 			(call f.cmd text='wmi select Caption,VolumeSerialNumber from Win32_CDROMDrive')
    '<h2 align="middle">Система</h2>' 				(call f.cmd text='wmi select Domain,Manufacturer,Model,Name,TotalPhysicalMemory from Win32_ComputerSystem')
    '<h2 align="middle">Система 2</h2>' 			(call f.cmd text='wmi select Caption,UUID,Vendor from Win32_ComputerSystemProduct')
    '<h2 align="middle">Монитор</h2>' 				(call f.cmd text='wmi select Caption,MonitorManufacturer,MonitorType,PNPDeviceID,ScreenHeight,ScreenWidth from Win32_DesktopMonitor')
    '<h2 align="middle">Харды</h2>' 				(call f.cmd text='wmi select Caption,InterfaceType,Manufacturer,MediaType,Model,PNPDeviceID,Size,Signature from Win32_DiskDrive')
    '<h2 align="middle">Разделы</h2>' 				(call f.cmd text='wmi select Caption,Size from Win32_DiskPartition')
    '<h2 align="middle">Клава</h2>' 				(call f.cmd text='wmi select Description from Win32_Keyboard')
    '<h2 align="middle">Логические диски</h2>' 		(call f.cmd text='wmi select Name,VolumeSerialNumber,Description,FreeSpace,Size from Win32_LogicalDisk')
    '<h2 align="middle">Логическая память</h2>' 	(//call f.cmd text='wmi select Caption,TotalPhysicalMemory,TotalVirtualMemory,AvailableVirtualMemory from Win32_LogicalMemoryConfiguration')
    '<h2 align="middle">ОСь</h2>' 					(call f.cmd text='wmi select Caption,CSDVersion,BuildNumber,CodeSet,InstallDate,SerialNumber,Version from Win32_OperatingSystem')
    '<h2 align="middle">Принтера</h2>' 				(call f.cmd text='wmi select Caption,Default,PortName from Win32_Printer')
    '<h2 align="middle">Проц</h2>' 					(call f.cmd text='wmi select Caption,Manufacturer,Name,ProcessorId,SocketDesignation from Win32_Processor')

call f.cmd text= - тут пишется WMI запрос.
Как подключать WMI знаешь?

[ДралсяСошибками]

О_о, как раз тоже понадобилась инфа о проце и о материнке
ошибка получается *Ошибка Could not convert variant of type (Null) into type (Integer*

if SProp.Name='L2CacheSpeed' then ListBox1.AddItem('L2CacheSpeed: ' + IntToStr(SProp.Get_Value), nil);

понимаю, что там пусто, но как обойти эту неприятность?

[Stilet]

Проверку поставь с помошью VarIsClear() или VarIsNull(). И проверяй SProp.Get_Value

[ДралсяСошибками]

Благодарю)))
в принципе, VarToStr пока помог, но ежели на другом компе, какое-то поле будет null, то будет ошибка. Действительно, или проверять каждое поле на null или все варианты привести к строке.