|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.10.2007, 10:42 | #1 |
Пользователь
Регистрация: 23.04.2007
Сообщений: 38
|
как узнать серийник винта
Помогите с кодом: нужно узнать серийник винта, мамки, и другого железа. Программа должна определять и выводить серийники железа.
Заранее благодарен |
02.10.2007, 11:02 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
{начало функции Серийный номер винчестера}
Код:
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 02.10.2007 в 11:44. |
02.10.2007, 11:02 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Продолжение:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
02.10.2007, 11:03 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Продолжение:
Код:
Life is too short, play more...
Как правильно задавать вопросы |
02.10.2007, 11:03 | #5 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Пример использования:
Код:
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 02.10.2007 в 11:06. |
02.10.2007, 14:00 | #6 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
BOOL GetVolumeInformation(
LPCTSTR lpRootPathName, // address of root directory of the file system LPTSTR lpVolumeNameBuffer, // address of name of the volume DWORD nVolumeNameSize, // length of lpVolumeNameBuffer LPDWORD lpVolumeSerialNumber, // address of volume serial number LPDWORD lpMaximumComponentLength, // address of system's maximum filename length LPDWORD lpFileSystemFlags, // address of file system flags LPTSTR lpFileSystemNameBuffer, // address of name of file system DWORD nFileSystemNameSize // length of lpFileSystemNameBuffer ); пример var SerialNum : dword; a, b : dword; Buffer : array [0..255] of char; if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then Label1.Caption :=' S.N. '+IntToStr(SerialNum);
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог Последний раз редактировалось mutabor; 02.10.2007 в 14:03. |
26.04.2009, 21:17 | #7 |
Пользователь
Регистрация: 31.10.2007
Сообщений: 65
|
Есть ли обновлённый код? просто на висте, на 7, и на некоторых xp непоказывает код, буду благодарен, но это очень нужно
mutabor что за BOOL? куда сувать? Последний раз редактировалось rangel; 26.04.2009 в 21:22. |
26.04.2009, 21:21 | #8 |
Пользователь
Регистрация: 31.10.2007
Сообщений: 65
|
Спасибо справился но вопрос этот код определяет серийник?
Последний раз редактировалось rangel; 26.04.2009 в 21:39. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Серийник и ключ авторизации на BDS 2006 | Квэнди | Свободное общение | 10 | 26.02.2012 15:54 |
Узнать IP | Черничный | Работа с сетью в Delphi | 5 | 11.08.2008 20:36 |
BIOSa не видит винта после замены платы управления | PDVich | Компьютерное железо | 3 | 05.03.2008 14:38 |
Как узнать емкость винта | Hottabych | Помощь студентам | 1 | 26.01.2008 06:04 |
ID Винта | Chals | Win Api | 2 | 14.06.2007 11:27 |