| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Подскажите как серийник с винта считать... [D6, WinXP]

vegarulez ©   (2007-02-16 14:04:00) 

Привет всем мастерам!
У меня вот такой вопрос - как считать серийник с винта?

---

vegarulez   (2007-02-21 07:49:00) [1]

Да, именно защитый изготовителем. Ссыль очень помогла. Спасибо.

---

Amoeba   (2007-02-19 12:17:00) [2]

> TRUNK ©   (18.02.07 19:30) [5]
>
>
> var
> VolumeSerialNumber,MaximumComponentLength,FileSystemFlags:
>  Cardinal;
> VolumeName,FileSystemName: array[0..15] of Char;
>
> GetVolumeInformation(PChar('\\.\C:'),@VolumeName,Length(VolumeName),
>
>                     @VolumeSerialNumber,MaximumComponentLength,
>
>                     FileSystemFlags,@FileSystemName,Length(FileSystemName));
>

Это только если автору вопроса нужен серийный номер тома прописываемый ОС. Если же речь идет о "железном" серийнике, зашитом изготовителем жесткого диска, то смотреть на http://home.earthlink.net/~akonshin/delphi_ru.htm

---

TRUNK   (2007-02-18 19:30:00) [3]


var
VolumeSerialNumber,MaximumComponentLength,FileSystemFlags: Cardinal;
VolumeName,FileSystemName: array[0..15] of Char;

GetVolumeInformation(PChar('\\.\C:'),@VolumeName,Length(VolumeName),
                    @VolumeSerialNumber,MaximumComponentLength,
                    FileSystemFlags,@FileSystemName,Length(FileSystemName));


---

Desdechado   (2007-02-16 15:15:00) [4]

Лазерным считывателем штрихкода.

---

Amoeba   (2007-02-16 15:12:00) [5]

Найдешь здесь:
http://home.earthlink.net/~akonshin/delphi_ru.htm

---

iXT   (2007-02-16 14:31:00) [6]

> Сергей М. ©   (16.02.07 14:24) [1]

Что бы винт не подменили :)

---

Сергей М.   (2007-02-16 14:24:00) [7]

Что такое "серийник винта" и нафих оно надо ?)

---

Наверх