Текущий архив: 2014.08.24;
Скачать: CL | DM;
Вниз
Узнать заводской номер жёсткого диска Найти похожие ветки
← →
Коля (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;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.006 c
