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

Серийный номер   Найти похожие ветки 

← →
AZiN   (2004-09-15 19:18) [0]

Ув. мастера, как узнать серийный номер винчестера?

---

← →
QuasiLamo ©   (2004-09-15 19:30) [1]

Искать в факью надо, прежде чем вопросы задавать!!!

Как узнать серийный номер тома
--------------------------------------------------------------------------------

= procedure TForm1.Button1Click(Sender: TObject); = var = = VolumeName, = = FileSystemName = = : array [0..MAX_PATH-1] of Char; = = VolumeSerialNo = = : DWord; = = MaxComponentLength, = = FileSystemFlags = =: DWORD; = begin = = GetVolumeInformation("C:\",VolumeName,MAX_PATH,@VolumeSerialNo, = = = = = = = = = = = = =MaxComponentLength,FileSystemFlags, = = = = = = = = = = = = =FileSystemName,MAX_PATH); = = Memo1.Lines.Add("VName = "+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;

---

← →
Jel ©   (2004-09-15 19:38) [2]

> QuasiLamo ©   (15.09.04 19:30) [1]


Серийный номер тома и серийный номер винчестера разные вещи.

---

← →
AZiN   (2004-09-15 19:39) [3]

Уточню: заводской номер жесткого диска.(он же написан на винчестере после S/N:)

---

← →
begin...end ©   (2004-09-15 19:39) [4]

> AZiN

Перед тем, как скопировать код из [1] к себе в программу, не забудь его  преобразовать. Как преобразовывать - спроси у QuasiLamo.
:-)

---

← →
Alex Konshin ©   (2004-09-15 20:05) [5]

http://home.earthlink.net/~akonshin/

---

← →
1008 ©   (2004-09-16 09:58) [6]

http://delphibase.endimus.com/

---

← →
Amoeba ©   (2004-09-16 12:14) [7]

Смотри на сайте Alex"а Konshin"а. Там найдешь именно то, что тебе нужно.

---

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

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



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