Текущий архив: 2004.10.17;
Скачать: 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 вся ветка
Текущий архив: 2004.10.17;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.049 c
