Версия для печати темы

Автор: Адель 7.04.2007 23:31

А как получить характеристики и модель проца, материнки, плока питания, видиокарты, харда, сиди и тд ??

Автор: volvo 7.04.2007 23:37

http://forum.pascal.net.ru/index.php?s=&showtopic=16096&view=findpost&p=94341

Устроит?

Автор: Адель 8.04.2007 1:35

не вполне
я так поняла, что WMI нету по умолчанию ..
можно кусок кода кинуть?))

вот нашла...

procedure TForm1.button1click(Sender: TObject);  
var  
 lpDisplayDevice: TDisplayDevice;  
 dwFlags: DWORD;  
 cc: DWORD;  
begin  
form2.memo1.Clear;   

lpDisplayDevice.cb := sizeof(lpDisplayDevice);   

dwFlags := 0;   

cc:= 0;   

while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do   

  begin   

    Inc(cc);   

    form2.memo1.lines.add(lpDisplayDevice.DeviceString);  

    form2.show;   

  end;   

 
end;

а также еще 2 вопроса:
1.можно для поика инфы о системе использовать sysinfo?
2.и где в регистре все это можо найти? (проц нашла, а вот относительно cd к примеру в HKEY_LOCAL_MACHINE->SYSTEM->CurrentControlSet->Sevices->Cdrom->Enum в '0' значение = IDE\CdRomPIONEER_DVD-RW_DVR-K16RS________________1.35____\46_04445314c323033355738204c202020202020 -- это ID ??)

Автор: Адель 10.04.2007 19:36

а ткуда взять библиотеки?
Active DS Type Library (Version 1.0)
Microsoft WMI Scripting v1.1 Library (Version 1.1)