Как узнать серийный номер ж.диска?

← →
тт (2006-05-06 20:49) [0]

Как узнать серийный номер ж.диска, я делаю так:

function hddSN_C:cardinal;
var
v,L,F:cardinal;
begin
if GetVolumeInformation("C:\",nil,0,@V,L,F,nil,0)
then result:=V
else result:=0;
end;

Но функция возвращает номер логическоко диска а не физического.:(

← →
Handle (2006-05-06 22:32) [1]

procedure TForm1.Button1Click(Sender: TObject); var VolumeName, FileSystemName : array [0..MAX_PATH-1] of Char; VolumeSerialNo : DWord; MaxComponentLength,FileSystemFlags: Cardinal; begin GetVolumeInformation("C:\",VolumeName,MAX_PATH,@VolumeSerialNo, MaxComponentLength,FileSystemFlags, FileSystemName,MAX_PATH); Memo1.Lines.Add("VolumeName = "+VolumeName); Memo1.Lines.Add("SerialNo = $"+IntToHex(VolumeSerialNo,8)); Memo1.Lines.Add("CompLen = "+IntToStr(MaxComponentLength)); Memo1.Lines.Add("Flags = $"+IntToHex(FileSystemFlags,4)); Memo1.Lines.Add("FSName = "+FileSystemName); end;

← →
Alex Konshin © (2006-05-07 02:25) [2]

Искал?
Зайди ко мне на сайт.

← →
Германн © (2006-05-07 02:48) [3]

Имхо, надо что-то сделать, чтобы хотя бы поиск на форуме автоматом бы приводил на сайты АП, ИШ, АК и др. Если др. появятся.
Хоть что-то.

Может быть добавить в " Добавить свой вопрос в форум".
Т.е. к "Искать в FAQ" и "Искать в этом форуме", добавить поиск по сайтам АП, ИШ, АК?

← →
тт (2006-05-07 03:43) [4]

<Handle>
Спасибо конечно, но у тебя тоже самое, что и у меня:(

<A.K.>
Ок! Вроде то что нужно, но я еще не разобрался.

← →
тт (2006-05-07 03:45) [5]

<Гермамм>
А что такое АП, ИШ, АК?

> [5] тт (07.05.06 03:45)
> <Гермамм>
> А что такое АП, ИШ, АК?

Это не "что такое", а "кто такие" :)
АК, например, это Alex Konshin, и, собственно, его сайт.

Как узнать серийный номер ж.диска? Найти похожие ветки