if CopyEmptyDirs.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CopyEmptyDirs_Checked', temp) ; WriteInteger (section, 'CopyFileRepl_ItemIndex', CopyFileRepl.ItemIndex) ; WriteString (section, 'CopyIgnorePath_Text', CopyIgnorePath.Text) ; WriteString (section, 'CopySrcDir_Text', CopySrcDir.Text) ; WriteString (section, 'CopySrcFile_Text', CopySrcFile.Text) ; if CopySubdirs.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CopySubdirs_Checked', temp) ; WriteString (section, 'CopyTarDir_Text', CopyTarDir.Text) ; if CopyWow64Disable.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CopyWow64Disable_Checked', temp) ; WriteString (section, 'DirLogs_Text', DirLogs.Text) ; WriteString (section, 'Ftp1LocDir_Text', Ftp1LocDir.Text) ; WriteString (section, 'Ftp1Path_Text', Ftp1Path.Text) ; WriteString (section, 'Ftp1SrcName_Text', Ftp1SrcName.Text) ; WriteString (section, 'Ftp1UpFile_Text', Ftp1UpFile.Text) ; WriteString (section, 'FtpBandWidth_Text', FtpBandWidth.Text) ; if FtpCopyAllDir.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpCopyAllDir_Checked', temp) ; if FtpDelDone.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpDelDone_Checked', temp) ; if FtpDelOldTar.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpDelOldTar_Checked', temp) ; if FtpEmptyDirs.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpEmptyDirs_Checked', temp) ; WriteString (section, 'FtpHost_Text', FtpHost.Text) ; WriteString (section, 'FtpIgnorePath_Text', FtpIgnorePath.Text) ; if FtpIgnoreUtf8.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpIgnoreUtf8_Checked', temp) ; WriteString (section, 'FtpKeepAlive_Text', FtpKeepAlive.Text) ; WriteString (section, 'FtpLocDir_Text', FtpLocDir.Text) ; WriteInteger (section, 'FtpMultiFileRepl_ItemIndex', FtpMultiFileRepl.ItemIndex) ; if FtpNoCrc.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpNoCrc_Checked', temp) ; if FtpNoFeatCmd.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpNoFeatCmd_Checked', temp) ; if FtpNoHost.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpNoHost_Checked', temp) ; if FtpNoMd5.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpNoMd5_Checked', temp) ; if FtpNoTmpFile.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpNoTmpFile_Checked', temp) ; if FtpNoUtf8.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpNoUtf8_Checked', temp) ; if FtpNoZlib.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpNoZlib_Checked', temp) ; if Ftp1DelDone.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'Ftp1DelDone_Checked', temp) ; WriteInteger (section, 'Ftp1FileRepl_ItemIndex', Ftp1FileRepl.ItemIndex) ; if FtpPassive.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpPassive_Checked', temp) ; WriteString (section, 'FtpPassword_Text', FtpPassword.Text) ; WriteString (section, 'FtpPath_Text', FtpPath.Text) ; WriteString (section, 'FtpPort_Text', FtpPort.Text) ; WriteString (section, 'FtpPortSsl_Text', FtpPortSsl.Text) ; WriteInteger (section, 'FtpServerType_ItemIndex', FtpServerType.ItemIndex) ; WriteString (section, 'FtpSrcFile_Text', FtpSrcFile.Text) ; if FtpSubdirs.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpSubdirs_Checked', temp) ; WriteString (section, 'FtpUsername_Text', FtpUsername.Text) ; WriteString (section, 'HttpBandWidth_Text', HttpBandWidth.Text) ; WriteInteger (section, 'HttpFileRepl_ItemIndex', HttpFileRepl.ItemIndex) ; WriteString (section, 'HttpSrcDir_Lines', HttpSrcDir.Lines.CommaText) ; WriteString (section, 'HttpSrcFile_Text', HttpSrcFile.Text) ; WriteString (section, 'HttpTarDir_Text', HttpTarDir.Text) ; WriteString (section, 'NetLogon_Text', NetLogon.Text) ; WriteString (section, 'NetPassword_Text', NetPassword.Text) ; if ReportChain.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ReportChain_Checked', temp) ; if RevokeCheck.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'RevokeCheck_Checked', temp) ; if ShowDiagsHigh.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ShowDiagsHigh_Checked', temp) ; if ShowDiagsLow.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ShowDiagsLow_Checked', temp) ; if ShowDiagsSSL.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ShowDiagsSSL_Checked', temp) ; if ShowDiagsUtf8.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ShowDiagsUtf8_Checked', temp) ; if ShowXProgesss.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ShowXProgesss_Checked', temp) ; WriteInteger (section, 'SslSecurity_ItemIndex', SslSecurity.ItemIndex) ; WriteInteger (section, 'VerifyCertMode_ItemIndex', VerifyCertMode.ItemIndex) ; WriteInteger (section, 'XferSockFamily_ItemIndex', XferSockFamily.ItemIndex) ; if FtpFixPassiveLanIP.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpFixPassiveLanIP_Checked', temp) ; WriteString (section, 'FtpHost_Items', FtpHost.Items.CommaText) ; if HttpParsePage.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'HttpParsePage_Checked', temp) ; WriteString (section, 'HttpParseLevels_Text', HttpParseLevels.Text) ; WriteString (section, 'CleanupDays_Text', CleanupDays.Text) ; WriteFloat (section, 'CleanupDateFrom_Date', CleanupDateFrom.Date) ; WriteFloat (section, 'CleanupDateTo_Date', CleanupDateTo.Date) ; WriteString (section, 'CleanupFileMask_Text', CleanupFileMask.Text) ; if CleanupSubDirs.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CleanupSubDirs_Checked', temp) ; WriteString (section, 'CleanupPath_Text', CleanupPath.Text) ; WriteString (section, 'Copy1FileTar_Text', Copy1FileTar.Text) ; WriteInteger (section, 'Copy1Replc_ItemIndex', Copy1Replc.ItemIndex) ; WriteString (section, 'Copy1FileSrc_Text', Copy1FileSrc.Text) ; if CopyUnzip.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CopyUnzip_Checked', temp) ; if CopyZip.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CopyZip_Checked', temp) ; if Ftp1Unzip.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'Ftp1Unzip_Checked', temp) ; if Ftp1Zip.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'Ftp1Zip_Checked', temp) ; if FtpMultiUnzip.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpMultiUnzip_Checked', temp) ; if FtpMultiZip.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'FtpMultiZip_Checked', temp) ; if HttpUnzip.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'HttpUnzip_Checked', temp) ; WriteString (section, 'UnzipDir_Text', UnzipDir.Text) ; if UnzipDownDel.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'UnzipDownDel_Checked', temp) ; WriteInteger (section, 'UnzipZipPath_ItemIndex', UnzipZipPath.ItemIndex) ; WriteInteger (section, 'ZippingExtFmt_ItemIndex', ZippingExtFmt.ItemIndex) ; WriteInteger (section, 'ZippingType_ItemIndex', ZippingType.ItemIndex) ;