BCB 应用TRegistry读取Python目录

  AnsiString KeyName, ver, s;
  KeyName = "\\SOFTWARE\\Python\\PythonCore";
  TRegistry *Registry = new TRegistry(KEY_READ);
  TStringList *ps = new TStringList();
  try
  {
    Registry->RootKey = HKEY_LOCAL_MACHINE;
    if(Registry->KeyExists(KeyName)){
        Registry->OpenKey(KeyName,false);
        Registry->GetKeyNames(ps);
        for(int i = 0; i < ps->Count; i++){
            ver = ps->operator [](i);
            if(ver == "2.5" || ver == "2.6" || ver == "2.7"){
                KeyName += "\\";
                KeyName += ver;
                KeyName += "\\InstallPath";
                Registry->CloseKey();
                Registry->OpenKey(KeyName,false);
                s = Registry->ReadString("");
                break;
            }
            else{
                ShowMessage("Python Verion Must be 2.5/2.6/2.7 !");
            }
        }
    }
    Edit1->Text = s;
  }
  __finally
  {
    delete ps;
    delete Registry;
  }