Ejemplo n.º 1
0
void __fastcall TRegAssociationsForm::ButtonExitClick(TObject *Sender)
{
  TRegistry * reg = new TRegistry ();
  try
  {
    reg->RootKey = HKEY_LOCAL_MACHINE;

    if (reg->KeyExists("\\SOFTWARE\\Gis center\\Journal\\Associations"))
        reg->DeleteKey("\\SOFTWARE\\Gis center\\Journal\\Associations");

    reg->OpenKey ("\\SOFTWARE\\Gis center\\Journal\\Associations", true);

    for (int row = 1; row < ValueListEditorAssoc->RowCount; row++)
    {
      reg->WriteString (ValueListEditorAssoc->Cells [0][row],
                        ValueListEditorAssoc->Cells [1][row]);
    }

    reg->CloseKey();
  }
  __finally
  {
    safe_delete (reg);
    //delete reg;
  }
}
//---------------------------------------------------------------------------
AnsiString CheckOffice()
{
 AnsiString S="";
 TRegistry *Registry = new TRegistry;
 Registry->RootKey = HKEY_LOCAL_MACHINE;
 if (Registry->KeyExists("SOFTWARE\\Microsoft\\Office\\9.0\\Word"))
		S="MSO";
 if (Registry->KeyExists("SOFTWARE\\Microsoft\\Office\\10.0\\Word"))
        S="MSO";
 if (Registry->KeyExists("SOFTWARE\\Microsoft\\Office\\11.0\\Word"))
        S="MSO";
 if (Registry->KeyExists("SOFTWARE\\Microsoft\\Office\\12.0\\Word"))
        S="MSO";
 if (Registry->KeyExists("SOFTWARE\\OpenOffice.org\\OpenOffice.org"))
        S="OO";
 delete Registry;
 return S;
}