список подключенных жестких дисков

if (Reg->KeyExists("Control")){
    //ok
}

TRegistry *Reg=new TRegistry;
Reg->RootKey = HKEY_LOCAL_MACHINE;

TStringList *list = new TStringList();
TStringList *list2 = new TStringList();

AnsiString put = "\\SYSTEM\\CurrentControlSet\\Enum\\IDE";
AnsiString clas = "";
  //.....
Reg->OpenKeyReadOnly(put); //открываем ветку
Reg->GetKeyNames(list);       //получаем все подветки

for(int i=0; i < list->Count; i++){ //проходимся по подветкам
  put = put+"\\"+list->Strings;
  Reg->OpenKeyReadOnly(put);
  Reg->GetKeyNames(list2);       //получаем все под-подветки

      for(int j=0; j < list2->Count; j++){
           Reg->OpenKeyReadOnly(put + "\\" + list2->Strings[j]);
           clas = Reg->ReadString("Class"); //считываем класс устройства
           if(clas == "DiskDrive")                //если это жестяк
              if (Reg->KeyExists("Control")){ //проверочка на Control
                  //АГА! Есть.
                  //получили название жестяка
                  ShowMessage(list->Strings);
              }
      }
}

Reg->CloseKey();
delete Reg;
delete list;
delete list2;