![]() |
|
Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply |
![]()
|
|
| VictorBondarenko |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 77 Регистрация: 14.2.2005 Репутация: нет Всего: нет |
Уважаемые дузья!
Подскажите пожалуйста, как из проги на Delphi определить серийный номер процессора и материнки. С благодарностью и уважением, Виктор |
|||
|
||||
| Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 30 Всего: 484 |
Эта функция поддерживается не всеми процессорами.
Для получения информации о процессоре (в т.ч. серийного номера, если это поддерживается) есть такой компонент: http://www.torry.net/vcl/system/cpu/acpuid.zip Материнка - не есть цельное устройство. Получить её серийный номер нельзя. Но можно получить серийный номер BIOS'a - в FAQ есть пример. |
|||
|
||||
| VictorBondarenko |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 77 Регистрация: 14.2.2005 Репутация: нет Всего: нет |
Уважаемый Модератор!
Я посмотрел компонент acpuid, о котором Вы написали, но при его компиляции возникает ошибка. Система не находит юнит DsgnIntf. Есть в компоненте такая строка: uses ..... , DsgnIntf; Может чего-нибудь присоветуете? С благодарностью и уважением, Виктор |
|||
|
||||
| Alexeis |
|
|||
![]() Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 16 Всего: 459 |
А знаю, этот модуль требуется в старых версиях делфи. Нужно поискать компонентик для вашей версии. -------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 30 Всего: 484 |
Для 7-ки нужно дорабатывать руками. DsgnIntf требовался для интеграции в дельфи редактора пропертей данного компонента. Можно вообще вырезать этот редактор из кода - нет особого смысла делать его компонентом. Главное там - функциональные классы. Их нужно смотреть и использовать как пример. Если всё таки хочется установить его именно, как компонент, то стоит поискать решение проблемы установки старых компонентов: FAQ: http://vingrad.ru/DELPHI-DLP-000314 Поиск: http://www.google.ru/search?q=DsgnIntf+site:forum.vingrad.ru |
|||
|
||||
| Alexeis |
|
|||
![]() Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 16 Всего: 459 |
Snowy, Я пробовал решить эту проблему. Тут самый тяжелый случай совмещения DisignTime и RunTime. Как пишут тут http://community.borland.com/article/27717
Требуется разделение модуля на две части (DisignTime и RunTime отдельно). Т.е. нужно перелопатить весь модуль. Это довольно сложно. Кроме того в одной из ассемблерных вставок применяется оператор dw его нужно заменить на обычную переменную типа word c тем же именем. -------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| Albinos_x |
|
|||
![]() Evil Skynet ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 3 Всего: 108 |
примеров получения серийника проца в интернете полно... вот к примеру один из них (см. прикреплёный файл)
Добавлено @ 16:53 ещё здесь посмотреть можно Присоединённый файл ( Кол-во скачиваний: 81 )
______________.zip 168,34 Kb-------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
| VictorBondarenko |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 77 Регистрация: 14.2.2005 Репутация: нет Всего: нет |
Чего-то не скачивается присоединенный "Albinos X" файл
почему-то говорит, что Эта функция запрещена для Гостей, хотя я участник. Виктор |
|||
|
||||
| Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 30 Всего: 484 |
Перезалил сюда: http://slil.ru/23373217
И этот вариант у меня не даёт ничего. Выдал серийник 0000-0000-0000-0000-0000-0000 Не поддерживает мой проц (XP2500+) выдачу номера. |
|||
|
||||
| VictorBondarenko |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 77 Регистрация: 14.2.2005 Репутация: нет Всего: нет |
Но если все так мрачно, что где-то s/n проца определяется, а где-то нет,
если s/n BIOSa из $FEC71 для 98 читается, а для ХР нет, если в реестре, который читается в ХР не содержится s/n BIOSa, если s/n материнки можно прочитать только на коробке, то что же тогда есть в железе фундаментального и уникального которое бы всегда было и программно читалось чтобы можно было бы привязать прогу к компу? Может быть сер.ном. модуля памяти, сер ном. монитора, сер. ном. памяти на видеокарте, сер.ном. винта? Наверняка кто-то уже такую задачу решал и не один раз. С уважением и признательностью за любые соображения, Виктор |
|||
|
||||
| Albinos_x |
|
|||
![]() Evil Skynet ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 3 Всего: 108 |
по ссылке смотрели?
тоже не работает? можно использовать, только вот для SATA винтов нормального алгоритма е нашёл... для обычных пример есть в DRKB... -------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
| Burm |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 1 Регистрация: 11.11.2006 Репутация: нет Всего: нет |
Пример получения серийного номера винта есть в DRKB, сам попробовал - вроде на всех машинах работает.
|
|||
|
||||
| Albinos_x |
|
|||
![]() Evil Skynet ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3288 Регистрация: 28.5.2004 Где: X-6120400 Y-1 4624650 Репутация: 3 Всего: 108 |
-------------------- "Кто владеет информацией, тот владеет миром" Уинстон Черчилль |
|||
|
||||
| ArtemRubtsov |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 20 Регистрация: 12.11.2006 Репутация: нет Всего: нет |
серийный номер на мать можно вытащщить из БИОСа (если серийник там есть, обычно нет)
из под 2000/ХР нужно писать процедуру доступа к физической памяти, пример точно есть на каком-то сайте по Delphi |
|||
|
||||
![]()
|
| Правила форума "Delphi: WinAPI и системное программирование" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |