Форум: "Система";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];
ВнизКак узнать какое железо стоит на компе. Найти похожие ветки
← →
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 вся ветка
Форум: "Система";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c