Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

Серийный № 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]

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

---

← →
Devel ©   (2004-09-29 17:18) [5]

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

---

← →
Koala ©   (2004-09-29 19:22) [6]

Devel ©   (29.09.04 17:18) [5]
спасибо...

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.036 c