Серийный номер

← →
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/

http://delphibase.endimus.com/

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

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