Скачать: CL | DM;

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

← →
тт   (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]

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

---

← →
Джо ©   (2006-05-07 03:59) [6]

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

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

---

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

Скачать: CL | DM;



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