Модель материнской платы

[Legeardo]

Как получить Модель материнской платы?

[come-on]

https://msdn.microsoft.com/en-us/lib...72(VS.85).aspx

[Legeardo]

Мне надо на делфи пример

[p51x]

гугл -> delphi wmi

[Serge_Bliznykov]

Сообщение от Legeardo

Мне надо на делфи пример

ну так Вам же указали ключевые слова, по которым можно найти необходимое!

ну, например,

http://stackoverflow.com/questions/2...mber-in-delphi

или
ТЫЦ

берите, пробуйте.

p.s. а ещё есть специальные библиотеки, которые позволяют получить характеристики железа. Например, MiTeC System Information Component
Они не бесплатные, но, возможно, что это Вас не остановит
или сходите на Torry

[FaTaL]

Сообщение от Legeardo

Мне надо на делфи пример

WMI в любом языке одинаковый.

[Legeardo]

Для работы wmi нужно установить WMI SDK. То есть работать моя программа на компьютерах у которых нет WMI SDK не будет?

[Pavia]

Для работы wmi нужно установить WMI SDK. То есть работать моя программа на компьютерах у которых нет WMI SDK не будет?

Установка, чего либо для работы WMI не требуется. Доказательство.
WMI всего лишь СУБД. А вот БД формируют или пополняют провайдеры. Конкретно информацию о серийном номере матернике ОС заполняет самостоятельно, точнее её драйвера.

[Человек_Борща]

WMI установлен в системе по умолчанию, для работы с ним не нужен никакой SDK.
Есть такая классная вещь, как WMI Code Creator. который налету и данные покажет, и код сформирует для разных ЯП, в том числе и для delphi. Ед. проблема с WMI, его могут отключить сис. администраторы на ПК сотрудников, по соображениям безопасности.
Вам нужно лишь считать класс Win32_BaseBoard:

//-----------------------------------------------------------------------------------------------------
//     This code was generated by the Wmi Delphi Code Creator (WDCC) Version 1.9.9.350
//     http://code.google.com/p/wmi-delphi-code-creator/
//     Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
//     Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2015 
//----------------------------------------------------------------------------------------------------- 
//
//     LIABILITY DISCLAIMER
//     THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.
//     YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,
//     DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
//
//----------------------------------------------------------------------------------------------------
program GetWMI_Info;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;
  

    
// Класс Win32_BaseBoard представляет основную плату (которую также называют 
// материнской или системной платой).

procedure  GetWin32_BaseBoardInfo;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_BaseBoard','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Writeln(Format('Caption         %s',[String(FWbemObject.Caption)]));// String
    Writeln(Format('Description     %s',[String(FWbemObject.Description)]));// Array of String
    Writeln(Format('HostingBoard    %s',[String(FWbemObject.HostingBoard)]));// Boolean
    Writeln(Format('HotSwappable    %s',[String(FWbemObject.HotSwappable)]));// Boolean
    Writeln(Format('InstallDate     %s',[String(FWbemObject.InstallDate)]));// Datetime
    Writeln(Format('Manufacturer    %s',[String(FWbemObject.Manufacturer)]));// String
    Writeln(Format('Model           %s',[String(FWbemObject.Model)]));// String
    Writeln(Format('Name            %s',[String(FWbemObject.Name)]));// String
    Writeln(Format('PartNumber      %s',[String(FWbemObject.PartNumber)]));// String
    Writeln(Format('PoweredOn       %s',[String(FWbemObject.PoweredOn)]));// Boolean
    Writeln(Format('Product         %s',[String(FWbemObject.Product)]));// String
    Writeln(Format('Removable       %s',[String(FWbemObject.Removable)]));// Boolean
    Writeln(Format('Replaceable     %s',[String(FWbemObject.Replaceable)]));// Boolean
    Writeln(Format('SerialNumber    %s',[String(FWbemObject.SerialNumber)]));// String
    Writeln(Format('SKU             %s',[String(FWbemObject.SKU)]));// String
    Writeln(Format('SlotLayout      %s',[String(FWbemObject.SlotLayout)]));// String
    Writeln(Format('Version         %s',[String(FWbemObject.Version)]));// String
	    
    Writeln('');
    FWbemObject:=Unassigned;
  end;
end;


begin
 try
    CoInitialize(nil);
    try
      GetWin32_BaseBoardInfo;
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;      
end.

[come-on]

Для работы wmi нужно установить WMI SDK.

вам вон Serge_Bliznykov примеры дал, где там про какойто сдк написано? просто скопировать и попробовать чтобы понять - трудно?
не ну надо же пойти кудато найти неизвестно что парить голову, вместо тупого готового теста