start->run->cmd->systeminfo
Так... Я начинаю подозревать, что речь о винде...
Ну ладно, и не такое программили. Вывод команды в студию.
Хотя, ну её эту systeminfo, без неё инфы больше можно собрать.
Видяху через TDisplayDevice, к примеру такое выводит: NVIDIA GeForce 6600
А по процу вот что можно вытянуть:
procedure GetSystemInfo(var lpSystemInfo: TSystemInfo); stdcall;
Функция заполняет поля структуры lpSystemInfo, в частности, там есть поля:
* dwActiveProcessorMask - битовая маска, представляющая процессоры, установленные в системе (каждый бит соответствут процессору, например, в двухпроцессорной системе установлено два младших бита)
* dwNumberOfProcessors - количество процессоров в системе
* dwProcessorType - тип процессора
* wProcessorLevel, wProcessorRevision - характеристики процессора (их трактовка зависит от типа)