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; } }
//--------------------------------------------------------------------------- bool __fastcall TXirconForm::EraseXircServers( void ) // Delete XiRCON Server list { TRegistry * MyRegistry = new TRegistry(); try { MyRegistry->RootKey = HKEY_CURRENT_USER; try { MyRegistry->DeleteKey(RegKey); } catch(ERegistryException &E) { return false; } } __finally { if ( MyRegistry ) delete MyRegistry; } return true; }
//--------------------------------------------------------------------------- void __fastcall TMainForm::actUnregisterExecute(TObject *Sender) { try { TRegistry *reg = new TRegistry; reg->RootKey = HKEY_CLASSES_ROOT; reg->DeleteKey(".avm"); reg->DeleteKey("AVBARMatrix"); reg->DeleteKey(".avl"); reg->DeleteKey("AVBARStudList"); delete reg; Application->MessageBoxA("File types have been successfully unregistered!", "Register", MB_OK | MB_ICONINFORMATION); } catch (Exception &) { ShowError("An unrecognized error during registering!"); } }