серийный номер винта!!!

← →
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;

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

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