Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать какое железо стоит на компе. [D5, Win95/98, WinME, WinXP]

cfk © (2002-04-20 13:54:00)
Кто нить может подсказать как можно программно определить название матери, сколько на ней слотов, какой разъем под проц и тд и тп? Видео, винт... В общем надо выловить всю информацию о установленом железе вместе с их характеристиками.

cfk (2002-04-27 13:58:00) [1]
> Вот пример как можно даты БИОС материнской платы и видеокарты выдрать.
* поскипано *
> собственно и требовалось.

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

VEG (2002-04-26 17:16:00) [2]
Вот пример как можно даты БИОС материнской платы и видеокарты выдрать.
То же самое можно с названием производителя и версией.
В 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 Возможно, эти процедуры не всегда дату возвращают ;)
но то что практически всегда для разных материнских/видео
плат возвращаются разные значения - проверено, что мне
собственно и требовалось.

Mambo (2002-04-26 11:20:00) [3]
Ищите и найдёте....

DC-AC (2002-04-26 08:35:00) [4]
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1017578008&n=2

cfk (2002-04-25 14:26:00) [5]
Вот по поводу И-нета, если можно, поподробнее, плиз.

Poirot (2002-04-25 12:26:00) [6]
mf...
Torry.net ищите... там компонентов по самые гланды... Если вам исходники то придётся искать доброго дядю или просто самому написать... не очень то и сложно... но надо покапаться в MSDN и Internete

cfk (2002-04-25 11:26:00) [7]
Неужели никто не знает? Или я вопрос некоректно задал?!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »