Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

МАСТЕРЫЫЫЫ!!! ВОПРОС ЖИЗНИ И СМЕРТИ !!!! 


sssss   (2001-09-23 14:15) [0]

Как определить серийный номер винта из под 9х\2000\NT???
ПОЖАЛУЙСТА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



hotfix   (2001-09-23 16:39) [1]

Ответ был - библиотека X2000 - смотри кладовку



aus   (2001-09-24 13:18) [2]

GetVolumeInformation(...........)



Andrey Klimov   (2001-09-24 22:42) [3]

var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWORD;
MaxComponentLength : DWORD;
FileSystemFlags : DWORD;

begin
GetVolumeInformation(PChar("C:\"),
VolumeName,
MAX_PATH,
@VolumeSerialNo,
MaxComponentLength,
FileSystemFlags,
FileSystemName,
MAX_PATH);
...
...
...
//"Volume Name:"+ VolumeName;
//"Volume Serial No: $"+IntToHex(VolumeSerialNo,8);
//"Comp Len: "+IntToStr(MaxComponentLength);
//"Flags: $"+IntToHex(FileSystemFlags,4);
//"File System Name: "+FileSystemName;
end;


Фирштейн?



vic_vm   (2001-09-25 23:26) [4]

Сколько раз уже этот вопрос задавали и все равно задают!!!!!!!
Посмотри http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=996668472&n=2
неплохой пример получения физического номера винта.
Есть еще способы (чтение портов IDE напрямую - в 9х это вполне можно реализовать если постараться) но они довольно таки сложные.
СКОЛЬКО РАЗ УЖЕ ГОВОРИЛИ - GetVolumeInformation дает логический номер - номер который дается при форматировании и после следующего форматирования он будет абсолютно другой. И ВСЕ РАВНО КАЖДЫЙ РАЗ кто-то да посоветует это.



Andrey Klimov   (2001-09-26 12:52) [5]

Физический номер можно определить только для IDE винчестеров. А как для SCSI? В данном случае вопрос звучал не "как определить физический серйный номер", а просто "серийный номер", т.е. логический, который дается при форматировании, который, опять же можно изменить без форматирования... Насколько я понимаю, автор вопроса планирует использовать эту информацию, например, при организации защиты своего ПО. Вполне логично, учитывая, что форматирование винта тождественно замене оборудования с точки зрения защищенного софта (все равно весь софт потом переустанавливается с нуля).
Кстати, было бы крайне интересно узнать как определить физический серейный номер винта для SCSI (если такой номер в этих дисках есть). Не подскажет ли уважаемый vic_vm © как этого достичь? Было бы очень полезно об этом знать.




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.047 c
6-22268           Voha                  2001-10-05 13:25  2002.01.08  
В компоненте WebBrowser нет параметра referer


14-22413          РУС                   2001-11-11 21:27  2002.01.08  
CD-RW


1-22080           Delphimun             2001-12-18 17:11  2002.01.08  
Как загрузить курсор из ресурса, а потом сохранить его на диске?


1-22225           Reyst                 2001-12-16 15:56  2002.01.08  
Не могу сохранить ресурс в файл


14-22347          roman001              2001-11-06 18:09  2002.01.08  
Хостинг