WriteInteger (SectionData, 'AccAcmeKeyV2_ItemIndex', AccAcmeKeyV2_ItemIndex) ; WriteString (SectionData, 'AcmeServerV2_Text', AcmeServerV2_Text) ; if AutoOrderComplete_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'AutoOrderComplete_Checked', temp) ; WriteString (SectionData, 'CACertFile_Text', CACertFile_Text) ; WriteString (SectionData, 'CAPkeyFile_Text', CAPkeyFile_Text) ; WriteString (SectionData, 'CAPkeyPw_Text', CAPkeyPw_Text) ; WriteString (SectionData, 'CertAddress_Text', CertAddress_Text) ; WriteString (SectionData, 'CertCentreApprovEmail_Text', CertCentreApprovEmail_Text) ; WriteString (SectionData, 'CertCentreOrderId_Text', CertCentreOrderId_Text) ; WriteString (SectionData, 'CertCentreOrderRef_Text', CertCentreOrderRef_Text) ; WriteInteger (SectionData, 'CertCentreProducts_ItemIndex', CertCentreProducts_ItemIndex) ; WriteString (SectionData, 'CertCentreProducts_Items', CertCentreProducts.Items.CommaText) ; WriteString (SectionData, 'CertCentreServer_Text', CertCentreServer_Text) ; WriteString (SectionData, 'CertCommonName_Text', CertCommonName_Text) ; WriteString (SectionData, 'CertContactEmail_Text', CertContactEmail_Text) ; WriteString (SectionData, 'CertContactFirst_Text', CertContactFirst_Text) ; WriteString (SectionData, 'CertContactLast_Text', CertContactLast_Text) ; WriteString (SectionData, 'CertContactTitle_Text', CertContactTitle_Text) ; WriteString (SectionData, 'CertCountry_Text', CertCountry_Text) ; WriteInteger (SectionData, 'CertCsrOrigin_ItemIndex', CertCsrOrigin_ItemIndex) ; WriteString (SectionData, 'CertLocality_Text', CertLocality_Text) ; WriteString (SectionData, 'CertOldCsrFile_Text', CertOldCsrFile_Text) ; WriteString (SectionData, 'CertOldPrvKey_Text', CertOldPrvKey_Text) ; WriteString (SectionData, 'CertOrganization_Text', CertOrganization_Text) ; WriteString (SectionData, 'CertOrganizationalUnit_Text', CertOrganizationalUnit_Text) ; if CertOutFmtBudl_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertOutFmtBudl_Checked', temp) ; if CertOutFmtP12_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertOutFmtP12_Checked', temp) ; if CertOutFmtP7_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertOutFmtP7_Checked', temp) ; if CertOutFmtReq_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertOutFmtReq_Checked', temp) ; if CertOutFmtSep_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertOutFmtSep_Checked', temp) ; WriteString (SectionData, 'CertPhone_Text', CertPhone_Text) ; WriteString (SectionData, 'CertPostCode_Text', CertPostCode_Text) ; WriteInteger (SectionData, 'CertSerNumType_ItemIndex', CertSerNumType_ItemIndex) ; WriteInteger (SectionData, 'CertSignDigestType_ItemIndex', CertSignDigestType_ItemIndex) ; WriteString (SectionData, 'CertState_Text', CertState_Text) ; WriteString (SectionData, 'CertValidity_Text', CertValidity_Text) ; WriteInteger (SectionData, 'DebugLogging_ItemIndex', DebugLogging_ItemIndex) ; WriteString (SectionData, 'DirAcmeConfV2_Text', DirAcmeConfV2_Text) ; WriteString (SectionData, 'DirCertCenConf_Text', DirCertCenConf_Text) ; WriteString (SectionData, 'DirDatabase_Items', DirDatabase.Items.CommaText) ; WriteString (SectionData, 'DirDatabase_Text', DirDatabase_Text) ; WriteString (SectionData, 'DirLogs_Text', DirLogs_Text) ; WriteString (SectionData, 'DirPubWebCert_Text', DirPubWebCert_Text) ; WriteString (SectionData, 'DirWellKnown_Text', DirWellKnown_Text) ; WriteString (SectionData, 'DomWebSrvIP_Text', DomWebSrvIP_Text) ; if LogJson_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'LogJson_Checked', temp) ; if LogPkeys_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'LogPkeys_Checked', temp) ; WriteString (SectionData, 'OAuthAccToken_Text', OAuthAccToken_Text) ; WriteString (SectionData, 'OAuthAppUrl_Text', OAuthAppUrl_Text) ; if OAuthAutoRefresh_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'OAuthAutoRefresh_Checked', temp) ; WriteString (SectionData, 'OAuthClientId_Text', OAuthClientId_Text) ; WriteString (SectionData, 'OAuthClientSecret_Text', OAuthClientSecret_Text) ; WriteString (SectionData, 'OAuthExpire_Text', OAuthExpire_Text) ; WriteString (SectionData, 'OAuthRedirectUrl_Text', OAuthRedirectUrl_Text) ; WriteString (SectionData, 'OAuthRefToken_Text', OAuthRefToken_Text) ; WriteString (SectionData, 'OAuthRefrMins_Text', OAuthRefrMins_Text) ; WriteString (SectionData, 'OAuthScope_Text', OAuthScope_Text) ; WriteString (SectionData, 'OAuthTokenUrl_Text', OAuthTokenUrl_Text) ; WriteString (SectionData, 'OAuthWebIP_Text', OAuthWebIP_Text) ; WriteString (SectionData, 'OAuthWebPort_Text', OAuthWebPort_Text) ; WriteString (SectionData, 'OwnCACertDir_Text', OwnCACertDir_Text) ; WriteInteger (SectionData, 'PrivKeyCipher_ItemIndex', PrivKeyCipher_ItemIndex) ; WriteString (SectionData, 'PrivKeyPassword_Text', PrivKeyPassword_Text) ; WriteInteger (SectionData, 'PrivKeyType_ItemIndex', PrivKeyType_ItemIndex) ; WriteInteger (SectionData, 'SuppCertChallenge_ItemIndex', SuppCertChallenge_ItemIndex) ; WriteString (SectionData, 'SupplierEmail_Text', SupplierEmail_Text) ; WriteInteger (SectionData, 'IpSocFamily_ItemIndex', IpSocFamily_ItemIndex) ; WriteString (SectionData, 'ProxyURL_Text', ProxyURL_Text) ; WriteInteger (SectionData, 'DnsChlgType_ItemIndex', DnsChlgType_ItemIndex) ; if SelfSignedCA_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'SelfSignedCA_Checked', temp) ; if CertPwPemKeys_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertPwPemKeys_Checked', temp) ; if CertPwPkcs12_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertPwPkcs12_Checked', temp) ; if CertWindowsStore_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'CertWindowsStore_Checked', temp) ; if OAuthExtBrowser_Checked then temp := 'True' else temp := 'False' ; WriteString (SectionData, 'OAuthExtBrowser_Checked', temp) ; WriteString (SectionData, 'DomWebSrvIP2_Text', DomWebSrvIP2_Text) ; WriteInteger (SectionData, 'CertMsStoreLoc_ItemIndex', CertMsStoreLoc_ItemIndex) ;