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

← →
Vladimir1 (2003-02-28 09:36) [0]

народ, киньте пример, как узнать серийник хоть какого-л устройства в компе, которое есть обязательно.

← →
Nic_B (2003-02-28 12:49) [1]

S/n винта (вроде должен работать)

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);

← →
Alex Konshin © (2003-03-01 08:58) [2]

Уфф... Опять... Может, это уже в FAQ?

2 Nic_B: Это не серийный номер "винта", а серийный номер тома, то есть, к устройству это никакого отношения не имеет.

Смотри:
http://www.latiumsoftware.com/en/pascal/0044.php#4

И наличие винчестера в компьютере не обязательно.

> Alex Konshin
> Уфф... Опять... Может, это уже в FAQ?

Да конечно надоело, но зачем это в ЧАВО? В хелпе (он же парт оф МСДН) написано всё нормальным языком. Это людей надо лечить, а не ЧАВО портить.

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