Скачать: CL | DM;

Как узнать какое железо стоит на компе.   Найти похожие ветки 

← →
cfk   (2002-04-20 13:54) [0]

Кто нить может подсказать как можно программно определить название матери, сколько на ней слотов, какой разъем под проц и тд и тп? Видео, винт... В общем надо выловить всю информацию о установленом железе вместе с их характеристиками.

---

← →
cfk   (2002-04-25 11:26) [1]

Неужели никто не знает? Или я вопрос некоректно задал?!

---

← →
Poirot ©   (2002-04-25 12:26) [2]

mf...
Torry.net ищите... там компонентов по самые гланды... Если вам исходники то придётся искать доброго дядю или просто самому написать... не очень то и сложно... но надо покапаться в MSDN и Internete

---

← →
cfk   (2002-04-25 14:26) [3]

Вот по поводу И-нета, если можно, поподробнее, плиз.

---

← →
DC-AC   (2002-04-26 08:35) [4]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1017578008&n=2

---

← →
Mambo ©   (2002-04-26 11:20) [5]

Ищите и найдёте....

---

← →
VEG ©   (2002-04-26 17:16) [6]

Вот пример как можно даты БИОС материнской платы и видеокарты выдрать.
То же самое можно с названием производителя и версией.
В WinNT приходится читать не из ПЗУ а из реестра но это достаточно надежно
- соотв ключи WinNT закрывает на запись и обновляет при каждом старте (?).
Для Win9x можешь хоть весь БИОС напрямую читать.

Получить заводской номер винчестера (не тот что getvolumeinfo дает) ИМХО
невозможно - порты IDE даже Win9x блокирует.

typeT
> OSisNT then begin with TRegistryRO.Create do
try RootKey := HKEY_LOCAL_MACHINE;
if OpenKeyRO (SystemKey) then
begin
s := ReadString (BiosDateParam);
end;
finally
Free;
end; { of try}
end
else
(VideoDatePtr + 60 + 250);
Move (p^, s[1], 255);
if pos("/", s) > 2 then s := copy (s, pos("/", s) - 2, 8);
end; except FillChar (s[1], 8, "9");
end; { of try}
Result := copy (s, 1, 2) + copy (s, 4, 2) + copy (s, 7, 2);
end;
unit WAPIInfo;interfaceuses Registry, SysUtils, Window
b>if s = "SERVERNT" then OSStr := OSStr + " Server 3.5 & hi"
else if s = "LANMANNT" then OSStr := OSStr + " Advanced server 3.1";
Reg.Free;
end;
end;
with OSVerInfo do OSStr := OSStr + Format (" %d.%d (выпуск %d)",
[dwMajorVersion, dwMinorVersion, LoWord(dwBuildNumber)]);
end;f
unction OSisNT : 24]);
end;
end.

PS Возможно, эти процедуры не всегда дату возвращают ;)
но то что практически всегда для разных материнских/видео
плат возвращаются разные значения - проверено, что мне
собственно и требовалось.

---

← →
cfk   (2002-04-27 13:58) [7]

> Вот пример как можно даты БИОС материнской платы и видеокарты выдрать.
* поскипано *
> собственно и требовалось.

Благодарю! Это то, что доктор прописал!!!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c