Серийный номер HDD ?!

[$T@LKER]

Под скажите как получить серийный номер винта во всех ОС Windows включая Vista і 7 ?

Понимаю тема изежджена вдоль и поперёк но все что я видел на форуме максимум работает на XP !

Заранее огромное спасибо!

[novichok1]

Здравствуйте. Было такое на форуме, но не знаю походит ли к семерке и висте.

procedure TForm1.Button1Click(Sender: TObject);
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
SerialNumber : string;
begin
GetVolumeInformation('C:\',  nil, 0, @VolumeSerialNumber,MaximumComponentLength, FileSystemFlags,  nil,  0);
SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +   '-' +
IntToHex(LoWord(VolumeSerialNumber), 4);
Memo1.Lines.Add(SerialNumber);

end;

[$T@LKER]

Данный код позволяет узнать серийный номер тока диска С но не самого HDD!!! Может бы мне этого и хватило тока на сколько уникален серийник диска С ??

[asmodey1]

После форматирования он изменится.
Это называется серийный номер тома (логического диска).
Вот консольный исходник, работающий в семерке и выдающий серийники всех физических винтов, которые установлены:
DiskID.rar
З.Ы. И не только серийники

[$T@LKER]

После форматирования он изменится.
Это называется серийный номер тома. Или логического диска.

Я знаю как это называется и знаю что изменится после форматирования))))! То что измениться после форматирования меня неособо пугает! Лучше подскажите насколько этот серийник уникален?? Тоесть какая вероятность увидет этот серийник на другом компе???

[novichok1]

"Привязка программы к компьютеру", это наверное чаще всего задаваемый вопрос на форумах. Я новичок в программировании, но насколько я знаю, если пишете программу для чайников, то вышеприведенный вариант подходит, а так этот вариант насквозь протыкают опытные программисты. Ну а вот такой вариант попробуйте, я сам не тестировал, и не знаю что там к чему.
http://www.delphikingdom.com/asp/ans...IDAnswer=18102

[$T@LKER]

Но там же написано что вроде тока под XP максимум??? А как же Vista и 7 ???

[asmodey1]

Сообщение от novichok1

...вот такой вариант попробуйте, я сам не тестировал...[/url]

А надо было. Он работает только в ХР.
$T@LKER, объясните, чем вас мой вариант не устроил... Уж эти-то номера уникальны.

[novichok1]

Там вроде не написано

[$T@LKER]

Там вроде не написано

Написано)!

А точнее там не написано что работет и в Vista, 7 !

$T@LKER, объясните, чем вас мой вариант не устроил... Уж эти-то номера уникальны.

Так я же и спрашиваю - уникален ли серийник тома если не брать к вниманию форматирования диска С ? Если да то устраивает и я проверил в 7 пашет ваш вариант)! Я и раньше мог это использовать но незнал на сколько он уникален!