🚀 go-pugleaf

I Cant WAIT

  AnsiString VersaoBios;
  char biosnro[100];
  int i;
  TRegistry *Reg;

  i=0;
  while(i < sizeof(biosnro))
  {
    biosnro[i] = ' ';
    i++;
  }

  try
  {
    Reg = new TRegistry;
  }
  catch(...)
  {
    MessageDlg("AUTORUN ERROR! ", mtError, TMsgDlgButtons() << mbOK, 0);
  }
  Reg->RootKey = HKEY_LOCAL_MACHINE;
  Reg->OpenKey("\\HARDWARE\\DESCRIPTION\\System", false);
  if(Reg->KeyExists("\\HARDWARE\\DESCRIPTION\\System"))
  {
    Reg->ReadBinaryData("SystemBiosVersion",&biosnro,sizeof(biosnro));
    i=0;
    while(i < sizeof(biosnro))
    {
      if(biosnro[i] == '\0'){
        VersaoBios = VersaoBios + AnsiString(" # ");
      }
      else{
        VersaoBios = VersaoBios + AnsiString(biosnro[i]);
      }
      i++;
    }
    Memo1->Lines->Add( VersaoBios );
  }
  Reg->CloseKey();
  delete Reg;


Just FOR Windows NT, 2000, XP






Any one to convert
??? ???????? ?????????? ? BIOS ? Windows 9x


procedure TForm1.Button1Click(Sender: TObject);
begin
 with Memo1.Lines do
 begin
  Add('MainBoardBiosName: '+string(Pchar(Ptr($FE061))));
  Add('MainBoardBiosCopyRight: '+string(Pchar(Ptr($FE091))));
  Add('MainBoardBiosDate: '+string(Pchar(Ptr($FFFF5))));
  Add('MainBoardBiosSerialNo: '+string(Pchar(Ptr($FEC71))));
 end;
end;

"Edward" <registrados@via-rs.net> escreveu na mensagem
news:40e386a0@newsgroups.borland.com...
> I got this code but its in delphi any one to convert?
>
> BIOS
>
> --------------------------------------------------------------------------
--
> ----
>
> ??? ???????? ?????????? ? BIOS ? Windows NT, 2000, XP
>
>
> ? NT/2000/XP ?? ????????? ????????? ???????? ????? ?? BIOS, ??????, ??????
> ?? ?????? ??? ??????? ?????? ???????? ?? ???????.
>
> procedure TBIOSInfo.GetRegInfoWinNT;
> var
>   Registryv: TRegistry;
>   RegPath: string;
>   sl: TStrings;
> begin
>   Params.Clear;
>   RegPath := 'HARDWAREDESCRIPTIONSystem';
>   registryv := tregistry.Create;
>   registryv.rootkey := HKEY_LOCAL_MACHINE;
>   sl := nil;
>   try
>     registryv.Openkey(RegPath, false);
>     ShowMessage('BIOS Date: ' + RegistryV.ReadString('SystemBiosDate'));
>     sl := ReadMultirowKey(RegistryV, 'SystemBiosVersion');
>     ShowMessage('BIOS Version: ' + sl.Text);
>   except
>   end;
>   Registryv.Free;
>   if Assigned(sl) then
>     sl.Free;
> end;
> ?? ?????? ????????:
>
> // ????????? ????? ???????? ????????????? ???????? ?? ???????
> // ? ??????????? ?? ? TStringlist
>
> function ReadMultirowKey(reg: TRegistry; Key: string): TStrings;
> const
>   bufsize = 100;
> var
>   i: integer;
>   s1: string;
>   sl: TStringList;
>   bin: array[1..bufsize] of char;
> begin
>   try
>     result := nil;
>     sl := nil;
>     sl := TStringList.Create;
>     if not Assigned(reg) then
>       raise Exception.Create('TRegistry object not assigned.');
>     FillChar(bin, bufsize, #0);
>     reg.ReadBinaryData(Key, bin, bufsize);
>     i := 1;
>     s1 := '';
>     while i < bufsize do
>     begin
>       if ord(bin[i]) >= 32 then
>         s1 := s1 + bin[i]
>       else
>       begin
>         if Length(s1) > 0 then
>         begin
>           sl.Add(s1);
>           s1 := '';
>         end;
>       end;
>       inc(i);
>     end;
>     result := sl;
>   except
>     sl.Free;
>     raise;
>   end;
> end;"Fabi�n Fierro" <fabianfierro@hotmail.com> escreveu na mensagem
> news:40c86e9e@newsgroups.borland.com...
> > Do someone knows how to read the BIOS serial number?
> >
> >
> "Fabi�n Fierro" <fabianfierro@hotmail.com> escreveu na mensagem
> news:40c86e9e@newsgroups.borland.com...
> > Do someone knows how to read the BIOS serial number?
> >
> >
>
>