Инфа о железе

[Mailer]

Как средствами lazarus вытянуть инфу о железе, номер винта или мак адрес?
P.S.: Гуглил, не нашел.

[alexkam]

Как средствами lazarus вытянуть инфу о железе, номер винта или мак адрес?
P.S.: Гуглил, не нашел.

Вот серийный номер тома жесткого диска:

Код: Выделить всё

function GetSN() : String;
var
  NotUsed:     DWORD;
  VolumeFlags: DWORD;
  VolumeInfo:  array[0..MAX_PATH] of Char;
  VolumeSerialNumber: DWORD;
begin
  GetVolumeInformation(nil, nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, nil, 0);
  Result := IntToHex(VolumeSerialNumber,8);
end;                       

[Kemet]

Под Виндой можно пользоваться WMI, и для Дельфи есть opensource компоненты для работы с WMI

[ssadragon]

Вот такие исходники есть, тоже недавно наткнулся. Надо было идентификатор процессора прочесть - прочел . Кроссплатформенно!!! Много чего интересного есть.
http://tsmbios.googlecode.com/svn/trunk

[mirk]

А при чем тут Lazarus?