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

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

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

Серийный № HDD

Koala © (2004-09-29 14:54:00)
Вопрос может и старый но нигде не нашел ответа. Как программно узнать серийный № жесткого диска. Программа AIDA32 как-то показывает его.

Koala (2004-09-29 19:22:00) [1]
Devel © (29.09.04 17:18) [5]
спасибо...

Devel (2004-09-29 17:18:00) [2]
http://home.earthlink.net/~akonshin/delphi_ru.htm

Игорь Шевченко (2004-09-29 17:14:00) [3]
Все дружно ждем Алекса Коншина :)

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

Rext (2004-09-29 15:39:00) [5]
Вот, что тебе поможет

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.

Igit (2004-09-29 15:07:00) [6]
Не помню что именно, но точно есть

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

Наверх

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