Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.11;
Скачать: CL | DM;

Вниз

Подскажите как серийник с винта считать...   Найти похожие ветки 

 
vegarulez ©   (2007-02-16 14:04) [0]

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


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

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


 
iXT ©   (2007-02-16 14:31) [2]


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

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


 
Amoeba ©   (2007-02-16 15:12) [3]

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


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

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


 
TRUNK ©   (2007-02-18 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));


 
Amoeba ©   (2007-02-19 12:17) [6]


> 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


 
vegarulez ©   (2007-02-21 07:49) [7]

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



Страницы: 1 вся ветка

Текущий архив: 2007.03.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.042 c
2-1171715425
Hadroran
2007-02-17 15:30
2007.03.11
Refresh


15-1171294889
oldman
2007-02-12 18:41
2007.03.11
Онищенко в очередной раз призвал россиян бросить пить


15-1171542537
Сало
2007-02-15 15:28
2007.03.11
Секта любителей Линукс атакует


1-1169191653
mess
2007-01-19 10:27
2007.03.11
WMQueryEndSession


15-1171466391
oldman
2007-02-14 18:19
2007.03.11
Италия сместила Бразилию с мирового футбольного Олимпа!