Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Узнать заводской номер жёсткого диска

Коля © (2013-09-29 06:43:00)
Может у кого-нибудь есть функция (код)?

Германн (2013-09-30 17:42:00) [1]

> показывают китайские символы, что делать?)

Учить китайский.

Коля (2013-09-30 16:27:00) [2]
вот что то ещё на форуме нашёл
"Вот полный исходник с примером, если кому нужно:
http://www.unclejoe.ho.com.ua/hdd_info/hddinfo.zip
3.6 Кб. "
скачал, но там при нажатии на "покажи мне это" показывают китайские символы, что делать?)

Inovet (2013-09-29 19:18:00) [3]
> [9] Коля (29.09.13 19:04)
> но вот заводского пример я нашёл только 1

Просмотри подходящие темы
http://www.delphimaster.net/?s=%2B%D0%A1%D0%B5%D1%80%D0%B8%D0%B9%D0%BD%D1%8B%D0%B9+%2B%D0%BD%D0%BE%D0%BC%D0%B5%D1%80&pcount=50&forum=0&user=&order=REPLYDATE&dir=desc&title=1&message=1&date_begin=&date_end=

Коля (2013-09-29 19:04:00) [4]
Весь инет кешит кодом как получить Серийный номер тома, но вот заводского пример я нашёл только 1 и там сам код вообще мне не понятен. Т.е. ладно у меня 1 диск, а если у кого 2, не понятно какую инфу он выдаст

robt5 (2013-09-29 18:34:00) [5]
вообще идея серийников железа была похоронена давным давно, борцами за приватность личной жизни

Туповатый (2013-09-29 17:44:00) [6]
более того: через wmi тоже нет уверенности - может быть подделан клонирующими disk-to-disk программами

brother (2013-09-29 16:57:00) [7]
это логического диска (c: d: e: итп), но не физического (\\.\PhysicalDrive0 \\.\PhysicalDrive1 итп)...

IdeSN2 (2013-09-29 16:39:00) [8]
Серийный номер тома можно получить следующим образом:
Код:

function GetHardDiskSerial(const DriveLetter: Char): string; var NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; VolumeSerialNumber: DWORD; begin GetVolumeInformation(PChar(DriveLetter + ':\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0); Result := Format('Label = %s VolSer = %8.8X', [VolumeInfo, VolumeSerialNumber]) end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetHardDiskSerial('c')); end;

IdeSN2 (2013-09-29 13:49:00) [9]
Alex Konshin писал такие функции.
Можно найти его на форуме, написать и проконсультироваться
http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1197761880

Коля (2013-09-29 13:19:00) [10]
Windows) XP и выше

Туповатый (2013-09-29 12:25:00) [11]

> IdeSN2

ну да, верно. спрашивающему же на ОС наплевать.

IdeSN2 (2013-09-29 09:04:00) [12]
http://home.earthlink.net/~akonshin/files/IdeSN2.zip

Наверх

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