|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.06.2007, 11:15 | #1 |
Регистрация: 04.06.2007
Сообщений: 7
|
ID Винта
Подскажите как получить ID винта
|
14.06.2007, 11:22 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
function GetHardDiskSerial(const DriveLetter: Char): string;
var NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; VolumeSerialNumber: DWORD; begin GetVolumeInformation(PChar(DriveLet ter + ':\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0); Result := Format('Label = %s VolSer = %8.8X', [VolumeInfo, VolumeSerialNumber]) end;
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
14.06.2007, 11:27 | #3 |
Форумчанин
Регистрация: 06.06.2007
Сообщений: 282
|
Не важно, как часто вы падаете. Важно, как часто вы поднимаетесь. Винс Ломбарди.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как узнать серийник винта | Prisian | Win Api | 7 | 26.04.2009 21:21 |
BIOSa не видит винта после замены платы управления | PDVich | Компьютерное железо | 3 | 05.03.2008 14:38 |
Как узнать емкость винта | Hottabych | Помощь студентам | 1 | 26.01.2008 06:04 |