Сообщество Чайников

Вопрос

Как определить серийный номер винчестера? Scandisk его распознает как S2df-gh3h или что-то в этом роде.

Ответ

Должно помочь.

function disknumber(disk: string):string;
// Серийный номер диска var VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength, FileSystemFlags : Cardinal;
begin disk := copy(disk, 1, 1) + ':\';
GetVolumeInformation(pchar(disk),VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH);
result := IntToStr(VolumeSerialNo);
end;

Из конференции Expert_FAQ

Это не серийный номер винчестера! Это серийный номер тома, а это разные вещи!