Registry and AdvstringGrid

var  sBuf: array[1..1024] of byte;begin  sBuf[1] := 128;  sBuf[2] := 00;  sBuf[3] := 00;  sBuf[4] := 00;  sBuf[5] := 00;  sBuf[6] := 126;  sBuf[7] := 00;  sBuf[8] := 00;  sBuf[9] := 00;  sBuf[10] := 00;  sBuf[11] := 00;  sBuf[12] := 00;  reg := Tregistry.Create;  reg.RootKey := HKEY_LOCAL_MACHINE;  reg.OpenKey('SYSTEM/MountedDevices' + Drv, false);  //reg.CloseKey;  //reg.Free;end;//---------------------------------------读取注册表过程//---------------------------------------procedure TForm1.Button1Click(Sender: TObject);var  sBuf: array[1..255] of byte;  List: TStringlist; //子键列表  d, t, i, k, j: integer;  s, Drv: string;begin  Drv := ComboBoxEx1.SelText;  List := TstringList.Create;  reg := Tregistry.Create;  reg.RootKey := HKEY_LOCAL_MACHINE;  reg.OpenKey('SYSTEM/MountedDevices', false);  reg.GetValueNames(List); //读取所有子键  d := List.Count; //读取子键的行数  //showmessage(inttostr(list.count));  for k := 0 to d - 1 do  begin    begin      reg.ReadBinaryData(list[k], sBUf, SizeOf(sBuf));      //showmessage(inttostr(sBuf[1]));      AdvStringGrid1.Cells[3, k] := LowerCase(s);      AdvStringGrid1.Cells[3, d] := LowerCase(s);      //showmessage(s);    end;    s := '';    for i := 1 to 16 do    begin      s := s + ' ' + (inttohex((Sbuf[i]), 2));      //showmessage(s);  //------------------------------------ 创建表格过程      AdvStringGrid1.Cells[0, 0] := '序号';      AdvStringGrid1.Cells[1, 0] := '名称';      AdvStringGrid1.Cells[2, 0] := '类型';      AdvStringGrid1.Cells[3, 0] := '数据数值';      d := List.Count;      AdvStringGrid1.RowCount := d + 1;      //AdvStringGrid1.Cells[3, i] := s;      for t := 1 to d do      begin        //AdvStringGrid1.Cells[3, i] := s;        AdvStringGrid1.Cells[0, t] := inttostr(t);        AdvStringGrid1.Cells[1, t] := list[t - 1];        AdvStringGrid1.Cells[2, t] := 'Reg_Binary';        //AdvStringGrid1.AddImageIdx(1,t,0,haBeforeText,vatop); 添加图标        //showmessage(inttostr(t));      end    end;  end;  //showmessage(inttostr(i));  AdvStringGrid1.AddRow;  AdvStringGrid1.Cells[0, d + 1] := inttostr(d + 1);  AdvStringGrid1.Cells[1, d + 1] := '/DosDevices/' + Drv;  AdvStringGrid1.Cells[2, d + 1] := 'Reg_Binary';  AdvStringGrid1.Cells[3, d + 1] := 'fc 57 b2 d9 4e 68 cb 4d ab 79 03 cf a2 f6 b7 50';  AdvStringGrid1.FontColors[0, d + 1] := clRed;  AdvStringGrid1.FontColors[1, d + 1] := clRed;  AdvStringGrid1.FontColors[2, d + 1] := clRed;  AdvStringGrid1.FontColors[3, d + 1] := clRed;  //AdvStringGrid1.FontStyles[1, d + 1] := AdvStringGrid1.FontStyles[i, 0] + [fsBold]; //字体加粗  //reg.WriteBinaryData('/DosDevices/' + Drv, sbuf, SizeOf(sBuf));  //reg.CloseKey;  //reg.Free;end;