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

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

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

Заводские номера железок? [D6]

RWS © (2003-01-28 04:15:00)
Как добыть информацию о заводских серийных номерах железа (материнки, винта, и т.д.). Помогите кто может:)) pls

evg.28 (2003-02-07 13:49:00) [1]
Ага, а завтра винт погорит, админ из резервной копии откатит и п...ц
Или просто апгрейд железа (того же винта)

vvvv (2003-02-07 12:22:00) [2]
Alban :
...
p := Pointer($0Fec71);
...

а нельзя-ли поподробней, что это было?

Yn (2003-02-07 09:40:00) [3]
В процессорах, начиная каюжись с 586 по счету,
есть команда типа cpuid (серийеый номер процессора, и проч),
там как то от значения eax
возвращаемый результат зависит (eax/edx).

DC-AC (2003-02-07 07:35:00) [4]
Alban : ну немного ешё продолжим...
"конкретная цель" - плохая цель. Гиморроя он себе заработает и пользователям гиморроя доставит.

Alban (2003-02-06 22:49:00) [5]
Беспечный ангел!
Пользователь не причем, у человека конкретная цель!
Помниш о перемещении программы в памяти ------>>>>>>Радио 86РК
RWS наверное закрыл тему, советов надавали кучу ;-)

Беспечный Ангел (2003-02-06 17:55:00) [6]
Извени, конечно, может совет и "не прокатит" но... К чему такие сложности? Неужели больше не к чему привязаться? Я так не думаю, существует куча других способов защиты от копирования (Если это бухгалтерская прога, например, то к коду ОКПО, и т.д.). Правда, еще зависит от того, насколько сильно ты хочешь привязать прогу к пользоателю (а не железу ;)

RWS (2003-02-05 03:53:00) [7]
Всем спасибо!:)

Alban (2003-02-03 10:19:00) [8]
s[0] := #50;
p := Pointer($0Fec71);
Move(p^,s[1],50);
lable1.Caption := copy(s,1,50);
s[0] := #50;
p := Pointer($0F0812);
Move(p^,s[1],50);
lable2.Caption := copy(s,1,50);
s[0] := #50;
p := Pointer($0F0835);
Move(p^,s[1],50);
lable3.Caption := copy(s,1,50);
except
begin
lable1.Caption := "Sorry state!";
lable2.Caption := "Sorry state!";
lable3.Caption := "Sorry state!";
end;
end;

Alex Konshin (2003-01-31 06:26:00) [9]
Я дал очень даже дельный совет, потому как буквально несколько сообщений ниже было уже обсуждение на ту же тему.
Если же вы искали по интернету и не нашли, то, видать, у вас другой интернет :) Потому что первый приходящий в голову запрос на Google
"disk serial number" Delphi
выдает ссылку на мой сайт http://home.earthlink.net/~akonshin/index.htm

Мы плохих советов не даем.

RWS (2003-01-31 04:44:00) [10]
Alex Konshin © - если вы думаете что я обратился к народу до того как обыскал интернет то ошибаетесь, знаете какой линк по теме то сообщите буду благодарен. А такие советы мы все довать можем.

Dmitry Filippov © - если не затруднит немогли бы вы намылить эту библиотечку. Заранее благодарен.

DC-AC - Если бы я был уверен что эта инфа есть, то и знал бы откуда и как её брать.
По логике вещей должен же быть уникальный идентификатор где в регистрах храниться? коль - уж это электронная штука то :)).
s/n HDD имеется в виду s/n тома или самого винта. Если винта то как???

Если кто имеет практический опыт в этом или хотя бы обладает теоритическими знаниями по этой теме пожалуста ПОМОГИТЕ, но ненадо давать ничего незначащие реплики или бесполезные советы.

DC-AC (2003-01-29 08:01:00) [11]
RWS : ну если Вы ТОЧНО уверены что все серийные номера компонентов системного блока можно добыть программным путём, то читайте больше про аппаратное обеспечение, про методы программного обращения к нему. Самый верный помошник в этом - фирменная документация на комлектующие от производителей. И ещё MSDN конечно. По моему мнению программным путём можно "добыть" только s/n HDD и современных мониторов/принтеров (это проверено). Ну и CPU (от P3 и выше), правда сам не пробовал.

Alex Konshin (2003-01-29 07:05:00) [12]
Ты поиском умеешь пользоваться? Ну или хотя бы посмотреть пару-тройку предыдущих старниц форума слабо?

RWS (2003-01-29 04:06:00) [13]
Вообще мне нужно привизаться к конкретному компу. Это можно зделать проверяя серийные номера железа. Поэтому смотреть должна прога.

Может у кого есть другие варианты решения этой задачи.???

DC-AC (2003-01-28 11:48:00) [14]
И чего этот компонент такого "заводского" показывает ???

Dmitry Filippov (2003-01-28 09:14:00) [15]
Поищи в интернете компоненты
вот заголовок
{*******************************************************}
{ }
{ MiTeC System Information Component }
{ version 6.0 for Delphi 5,6 }
{ }
{ Copyright й 1997,2001 Michal Mutl }
{ }
{*******************************************************}

DC-AC (2003-01-28 07:56:00) [16]
Зачем ? Глазами посмотреть сложно ?

Наверх

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