BCB 应用TRegistry读取Python目录

来源：互联网发布：开源商城cms 编辑：程序博客网时间：2024/04/30 15:55

  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;  }