Auslesen der Mainboard Seriennummer

[jaenicke]

Delphi-Quellcode:

procedure ...
var
  ResultList: TStringList;
begin
  ResultList := TStringList.Create;
  try
    if QueryWMI('Win32_BaseBoard', 'SerialNumber', ResultList) then
      edtResultDisplay.Text := ResultList.Text
    else
      edtResultDisplay.Text := 'Fehler beim Auslesen';
  finally
    ResultList.Free;
  end;
end;