Серийный № HDD

← →
Koala © (2004-09-29 14:54) [0]

Вопрос может и старый но нигде не нашел ответа. Как программно узнать серийный № жесткого диска. Программа AIDA32 как-то показывает его.

← →
Igit (2004-09-29 15:07) [1]

Не помню что именно, но точно есть

http://www.yandex.ru/yandsearch?text=%D1%E5%F0%E8%E9%ED%FB%E9+%ED%EE%EC%E5%F0+IDE&stype=www&rpt=rad

← →
Rext (2004-09-29 15:39) [2]

Вот, что тебе поможет

function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ":\"),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format("Label = %s VolSer = %8.8X",
[VolumeInfo, VolumeSerialNumber])
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHardDiskSerial("c"));
end;

Взято с http://www.goldfaq.ru/modules/xfsection/article.php?articleid=358 .

← →
Koala © (2004-09-29 16:40) [3]

Rext (29.09.04 15:39) [2]
Она показывает VolumeLabel... :о(
А мне необходимо именно серийный №
AIDA32 показывает сер№ 662221940231
а вот #тома BC7C7C208 имено то, что выдает ваша процедура

← →
Игорь Шевченко © (2004-09-29 17:14) [4]

Все дружно ждем Алекса Коншина :)

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

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