Форум: "Начинающим";
Текущий архив: 2014.08.24;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Коля   (2013-09-29 06:43) [0]

Может у кого-нибудь есть функция (код)?

---

← →
IdeSN2   (2013-09-29 09:04) [1]

http://home.earthlink.net/~akonshin/files/IdeSN2.zip

---

← →
Туповатый ©   (2013-09-29 12:25) [2]

> IdeSN2  

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

---

← →
Коля   (2013-09-29 13:19) [3]

Windows) XP и выше

---

← →
IdeSN2   (2013-09-29 13:49) [4]

Alex Konshin писал такие функции.
Можно найти его на форуме, написать и проконсультироваться
http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1197761880

---

← →
IdeSN2   (2013-09-29 16:39) [5]

Серийный номер тома можно получить следующим образом:
Код:

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;

---

← →
brother ©   (2013-09-29 16:57) [6]

это логического диска (c: d: e: итп), но не физического (\\.\PhysicalDrive0 \\.\PhysicalDrive1 итп)...

---

← →
Туповатый ©   (2013-09-29 17:44) [7]

более того: через wmi тоже нет уверенности - может быть подделан клонирующими disk-to-disk программами

---

← →
robt5   (2013-09-29 18:34) [8]

вообще идея серийников железа была похоронена давным давно, борцами за приватность личной жизни

---

← →
Коля   (2013-09-29 19:04) [9]

Весь инет кешит кодом как получить Серийный номер тома, но вот заводского пример я нашёл только 1 и там сам код вообще мне не понятен. Т.е. ладно у меня 1 диск, а если у кого 2, не понятно какую инфу он выдаст

---

← →
Inovet ©   (2013-09-29 19:18) [10]

> [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-30 16:27) [11]

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

---

← →
Германн ©   (2013-09-30 17:42) [12]

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2014.08.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.002 c