Форум: "WinAPI";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Вниз

серийный номер винта!!!   Найти похожие ветки 

← →
Kent   (2005-11-25 18:19) [0]

Добрый вечер!!!!!!! Подскажите как узнать серийный номер винчестера (программным путем конечно))))!!!

---

← →
kami ©   (2005-11-25 20:13) [1]

Удалено модератором
Примечание: Личная переписка

---

← →
kent   (2005-11-25 21:59) [2]

Удалено модератором
Примечание: Личная переписка

---

← →
antonpv   (2005-11-25 23:26) [3]

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;

---

← →
Alex Konshin ©   (2005-11-28 09:54) [4]

antonpv   (25.11.05 23:26) [3]
Ну сколько же можно?
GetVolumeInformation выдает информацию о томе.
Получить же серрийный номер диска не так просто.
Примеры есть на мойей страницы (см.анкету).

---

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

Форум: "WinAPI";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.039 c