🚀 go-pugleaf

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?
>
>