tsmbios

SMBIOS (система управления системой) является стандартом, разработанным DMTF. Информация, хранящаяся в SMBIOS, включает производителя устройств, имя модели, серийный номер, версию BIOS, тег активов, процессоры, порты и память устройства.

Tsmbios Libary позволяет получить доступ к биографическому (SMBIOS) управлению системой (SMBIOS), используя объект Pascal Language (Delphi или Free Pascal).

Функции

• Полностью документированный (XMLDOC), совместим с функцией справочной информации, доступна с Delphi 2005.
• Поддерживает SMBIOS версию с 2,1 до 2.8.
• Совместим с Delphi 5 через Delphi 11 Alexandria.
• Работает с FPC 2.4.0 или более поздней версии.
• Поддерживает Windows и Linux.
• Может прочитать данные SMBIOS с удаленных машин с помощью WMI.

Поддерживаются таблицы SMBIOS

• Информация BIOS (тип 0)
• Информация о системе (тип 1)
• Информация об основном плане (или модуле) (тип 2)
• Системный корпус или шасси (тип 3)
• Информация о процессоре (тип 4)
• Информация о контроллере памяти (тип 5)
• Информация о модуле памяти (тип 6)
• Информация о кэше (тип 7)
• Информация о разъеме порта (тип 8)
• Системные слоты (тип 9)
• Информация о устройствах на борту (тип 10)
• OEM -строки (тип 11)
• Параметры конфигурации системы (тип 12)
• Информация о языке BIOS (тип 13)
• Групповые ассоциации (тип 14)
• Журнал системного события (тип 15) - не реализовано
• Массив физической памяти (тип 16)
• Устройство памяти (тип 17)
• Адрес массива памяти (тип 19)
• Нанесенный адрес устройства памяти (тип 20)
• Встроенное навесное устройство (тип 21)
• Портативная батарея (тип 22)
• Сброс системы (тип 23) - не реализован
• Зонд напряжения (тип 26)
• Охлаждающее устройство (тип 27)
• Температурный зонд (тип 28)
• Зонд электрического тока (тип 29)
• Удаленный доступ внеполосный доступ (тип 30)-не реализован
• 64 -битная информация об ошибке памяти (тип 33) - не реализована
• Управление устройством (тип 34) - не реализовано
• Компонент устройства управления (тип 35) - не реализован
• Данные пороговых данных устройства управления (тип 36) - не реализованы
• Канал памяти (тип 37) - не реализован
• Системный источник питания (тип 39) - не реализован
• Дополнительная информация (тип 40) - не реализована
• Встроенные устройства расширенная информация (тип 41) - не реализована
• Интерфейс хоста управления контроллером (тип 42) - не реализован

Пример исходного кода

Этот код демонстрирует, как получить информацию, связанную с устройствами памяти, установленными в системе.

 { $APPTYPE CONSOLE }

{ $R *.res }

uses
  Classes,
  SysUtils,
  uSMBIOS in ' ....CommonuSMBIOS.pas ' ;

procedure GetMemoryDeviceInfo ;
Var
  SMBios: TSMBios;
  LMemoryDevice: TMemoryDeviceInformation;
begin
  SMBios := TSMBios.Create;
  try
      WriteLn( ' Memory Device Information ' );
      WriteLn( ' ------------------------- ' );

      if SMBios.HasPhysicalMemoryArrayInfo then
      for LMemoryDevice in SMBios.MemoryDeviceInformation do
      begin
        WriteLn(Format( ' Total Width    %d bits ' ,[LMemoryDevice.RAWMemoryDeviceInfo.TotalWidth]));
        WriteLn(Format( ' Data Width     %d bits ' ,[LMemoryDevice.RAWMemoryDeviceInfo.DataWidth]));
        WriteLn(Format( ' Size           %d Mbytes ' ,[LMemoryDevice.GetSize]));
        WriteLn(Format( ' Form Factor    %s ' ,[LMemoryDevice.GetFormFactor]));
        WriteLn(Format( ' Device Locator %s ' ,[LMemoryDevice.GetDeviceLocatorStr]));
        WriteLn(Format( ' Bank Locator   %s ' ,[LMemoryDevice.GetBankLocatorStr]));
        WriteLn(Format( ' Memory Type    %s ' ,[LMemoryDevice.GetMemoryTypeStr]));
        WriteLn(Format( ' Speed          %d MHz ' ,[LMemoryDevice.RAWMemoryDeviceInfo.Speed]));
        WriteLn(Format( ' Manufacturer   %s ' ,[LMemoryDevice.ManufacturerStr]));
        WriteLn(Format( ' Serial Number  %s ' ,[LMemoryDevice.SerialNumberStr]));
        WriteLn(Format( ' Asset Tag      %s ' ,[LMemoryDevice.AssetTagStr]));
        WriteLn(Format( ' Part Number    %s ' ,[LMemoryDevice.PartNumberStr]));

        WriteLn;

        if LMemoryDevice.RAWMemoryDeviceInfo.PhysicalMemoryArrayHandle> 0 then
        begin
          WriteLn( '  Physical Memory Array ' );
          WriteLn( '  --------------------- ' );
          WriteLn( '  Location         ' +LMemoryDevice.PhysicalMemoryArray.GetLocationStr);
          WriteLn( '  Use              ' +LMemoryDevice.PhysicalMemoryArray.GetUseStr);
          WriteLn( '  Error Correction ' +LMemoryDevice.PhysicalMemoryArray.GetErrorCorrectionStr);
          if LMemoryDevice.PhysicalMemoryArray.RAWPhysicalMemoryArrayInformation.MaximumCapacity<>$ 80000000 then
            WriteLn(Format( '  Maximum Capacity %d Kb ' ,[LMemoryDevice.PhysicalMemoryArray.RAWPhysicalMemoryArrayInformation.MaximumCapacity]))
          else
            WriteLn(Format( '  Maximum Capacity %d bytes ' ,[LMemoryDevice.PhysicalMemoryArray.RAWPhysicalMemoryArrayInformation.ExtendedMaximumCapacity]));

          WriteLn(Format( '  Memory devices   %d ' ,[LMemoryDevice.PhysicalMemoryArray.RAWPhysicalMemoryArrayInformation.NumberofMemoryDevices]));
        end ;
        WriteLn;
      end
      else
      Writeln( ' No Memory Device Info was found ' );
  finally
   SMBios.Free;
  end ;
end ;


begin
 try
    GetMemoryDeviceInfo;
 except
    on E:Exception do
        Writeln(E.Classname, ' : ' , E.Message);
 end ;
 Writeln( ' Press Enter to exit ' );
 Readln;
end .

Помогите понять

Другой

Вы можете установить Delphinus Package Manager и установить Tsmbios в качестве пакета. (Delphinus-поддержка)