Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Серийный номер [D7, Win2k]

AZiN © (2004-09-15 19:18:00)
Ув. мастера, как узнать серийный номер винчестера?

Amoeba (2004-09-16 12:14:00) [1]
Смотри на сайте Alex'а Konshin'а. Там найдешь именно то, что тебе нужно.

1008 (2004-09-16 09:58:00) [2]
http://delphibase.endimus.com/

Alex Konshin (2004-09-15 20:05:00) [3]
http://home.earthlink.net/~akonshin/

AZiN (2004-09-15 19:39:00) [4]
Уточню: заводской номер жесткого диска.(он же написан на винчестере после S/N:)

begin...end (2004-09-15 19:39:00) [5]

> AZiN

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

Jel (2004-09-15 19:38:00) [6]

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

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

QuasiLamo (2004-09-15 19:30:00) [7]
Искать в факью надо, прежде чем вопросы задавать!!!

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

= 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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »