Серийный номер тома HDD

Советы » Диски » Серийный номер тома HDD

procedure

TForm1.Button1Click(Sender: TObject); var

SerialNum : dword; a, b : dword; Buffer : array

[0..255] of

char; begin

if

GetVolumeInformation('c:', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil

, 0) then

Label1.Caption := IntToStr(SerialNum); end

;

Алексей Коган
FIDOnet 2:5064/7.69
Russia, Stavropol

Должен заметить, что GetVolumeInformation возвращает серийный номер ТОМА, а не винчестера, то есть, если заменить C: на D:, то номерок-то и поменяется...

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com