jak odczytać Serial'a płyty głównej

[Frani0]

witam sporo goglowałem ale temat został nie roztrzygnięty gdy znajdę jakiś kod to albo jest on dla mnie nie zrozumiały albo pod inny język albo nie działa szukałem an zagranicznych forach lecz z moim angielskim to hello word nie znajdę może znacie jakiś prosty kod wyświetlający serial number płyty głównej lub moze macie działający program z kodem źrudłowym?

[Cyfrowy Baron]

Kod: Zaznacz cały

//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
HKEY hKey;
    LONG Res1,Res2;
    DWORD cData=255;
   char SystemBiosVersion[255] = {'\0'};
   Res1 = RegOpenKeyEx(HKEY_LOCAL_MACHINE,"HARDWARE\\DESCRIPTION\\System",
         NULL, KEY_QUERY_VALUE, &hKey);
    if(Res1==ERROR_SUCCESS)
    {
    Res2 = RegQueryValueEx( hKey,"SystemBiosVersion", NULL, NULL,
                          (LPBYTE)SystemBiosVersion, &cData);
      if(Res2==ERROR_SUCCESS)
      {
       String tmp = "";
       for(int i = 0; i < sizeof(SystemBiosVersion); i++)
       {
        if(SystemBiosVersion[i] == 0)
        {
         if(tmp.Length() > 1)
         {
         Memo1->Lines->Add(tmp);
         SystemBiosVersion[i] = ' ';
         }
         tmp = "";
        }
        else tmp = tmp + (String)SystemBiosVersion[i];
       }
       Edit1->Text = (String)SystemBiosVersion;
      }
        else
        {
         MessageBox(NULL,"RegQueryValueEx: SystemBiosVersion","ERROR",MB_OK);
        }
    }
    else
    {
      MessageBox(NULL,"RegOpenKeyEx: SystemBiosVersion","ERROR",MB_OK);
   }

   RegCloseKey(hKey);
}
//---------------------------------------------------------------------------


To taki prosty przykład pokazujący jak pobrać wersję BIOS'u do Memo w liniach i do Edit w całości (niepotrzebne skreślić).

[Cyfrowy Baron]

Dziś pomyślałem sobie, że jako początkujący możesz mieć problemy z przerobieniem tego kodu, wiec podaję dwa rozwiązania.

Pierwsze rozwiązanie polega na wyświetleniu wersji BIOS'u w Memo1, z podziałem na linie, gdyż na ten klucz składa się kilka informacji:

Kod: Zaznacz cały

void __fastcall TForm1::Button5Click(TObject *Sender)
{
  HKEY hKey;
  LONG Res1,Res2;
  DWORD cData = 255;
  TCHAR SystemBiosVersion[255] = {'\0'};
  Res1 = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System", NULL, KEY_QUERY_VALUE, &hKey);

  if(Res1==ERROR_SUCCESS)
  {
   Res2 = RegQueryValueEx(hKey, "SystemBiosVersion", NULL, NULL,  (LPBYTE)SystemBiosVersion, &cData);
   if(Res2==ERROR_SUCCESS)
   {
     int i = 0;
     while(i < cData)
     {
       if(SystemBiosVersion[i] == '\0') SystemBiosVersion[i] = '\r';
       i++;
     }
     Memo1->Lines->SetText(SystemBiosVersion);
   }
    else
    {
      Application->MessageBox("RegQueryValueEx: SystemBiosVersion", "ERROR", MB_OK | MB_ICONSTOP);
    }
   }
  else
   {
     Application->MessageBox("RegQueryValueEx: SystemBiosVersion", "ERROR", MB_OK | MB_ICONSTOP);
   }

  RegCloseKey(hKey);
}


---

Drugi sposób polega na wyświetleniu wersji BIOS'u w obiekcie Edit1 bez podziału na linie:

Kod: Zaznacz cały

void __fastcall TForm1::Button5Click(TObject *Sender)
{
  HKEY hKey;
  LONG Res1,Res2;
  DWORD cData = 255;
  TCHAR SystemBiosVersion[255] = {'\0'};
  Res1 = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System", NULL, KEY_QUERY_VALUE, &hKey);

  if(Res1==ERROR_SUCCESS)
  {
   Res2 = RegQueryValueEx(hKey, "SystemBiosVersion", NULL, NULL,  (LPBYTE)SystemBiosVersion, &cData);
   if(Res2==ERROR_SUCCESS)
   {
     int i = 0;
     while(i < cData)
     {
       if(SystemBiosVersion[i] == '\0') SystemBiosVersion[i] = ' ';
       i++;
     }
     Edit1->SetTextBuf(SystemBiosVersion);
   }
    else
    {
      Application->MessageBox("RegQueryValueEx: SystemBiosVersion", "ERROR", MB_OK | MB_ICONSTOP);
    }
   }
  else
   {
     Application->MessageBox("RegQueryValueEx: SystemBiosVersion", "ERROR", MB_OK | MB_ICONSTOP);
   }

  RegCloseKey(hKey);
}


[riddyk]

Wszystko sprowadza siÄ™ do odnalezienia odpowiedniego klucza rejestru i pobraniu z rekordu informacji.

[Cyfrowy Baron]

Tak, ale tych kluczy rejestru nie da się pobrać za pomocą klasy TRegistry, gdyż są chronione i jest wymagalny specjalny tryb dostępu.