dws2mfziplibmodule.dfm

script language

object dws2MFZipLib: Tdws2MFZipLib
  OldCreateOrder = False
  Left = 823
  Top = 513
  Height = 200
  Width = 400
  object dws2UnitZip: Tdws2Unit
    Arrays = <>
    Classes = <
      item
        Name = 'TZip'
        Constructors = <>
        Fields = <>
        Methods = <
          item
            Name = 'Create'
            Parameters = <>
            OnEval = dws2UnitZipClassesTZipMethodsCreateEval
            Kind = mkConstructor
          end
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = dws2UnitZipClassesTZipMethodsDestroyEval
            Kind = mkDestructor
          end
          item
            Name = 'Add'
            Parameters = <
              item
                Name = 'Action'
                DataType = 'Integer'
              end
              item
                Name = 'ZipFile'
                DataType = 'String'
              end
              item
                Name = 'FileName'
                DataType = 'String'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsAddEval
            Kind = mkFunction
          end
          item
            Name = 'AddList'
            Parameters = <
              item
                Name = 'Action'
                DataType = 'Integer'
              end
              item
                Name = 'ZipFile'
                DataType = 'String'
              end
              item
                Name = 'FileNames'
                DataType = 'TStringList'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsAddListEval
            Kind = mkFunction
          end
          item
            Name = 'Delete'
            Parameters = <
              item
                Name = 'ZipFile'
                DataType = 'String'
              end
              item
                Name = 'FileName'
                DataType = 'String'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsDeleteEval
            Kind = mkFunction
          end
          item
            Name = 'DeleteList'
            Parameters = <
              item
                Name = 'ZipFile'
                DataType = 'String'
              end
              item
                Name = 'FileNames'
                DataType = 'TStringList'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsDeleteListEval
            Kind = mkFunction
          end
          item
            Name = 'Extract'
            Parameters = <
              item
                Name = 'Action'
                DataType = 'Integer'
              end
              item
                Name = 'ZipFile'
                DataType = 'String'
              end
              item
                Name = 'FileName'
                DataType = 'String'
              end
              item
                Name = 'BaseDir'
                DataType = 'String'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsExtractEval
            Kind = mkFunction
          end
          item
            Name = 'ExtractList'
            Parameters = <
              item
                Name = 'Action'
                DataType = 'Integer'
              end
              item
                Name = 'ZipFile'
                DataType = 'String'
              end
              item
                Name = 'FileNames'
                DataType = 'TStringList'
              end
              item
                Name = 'BaseDir'
                DataType = 'String'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsExtractListEval
            Kind = mkFunction
          end
          item
            Name = 'List'
            Parameters = <
              item
                Name = 'ZipFile'
                DataType = 'String'
              end>
            ResultType = 'TStringList'
            OnEval = dws2UnitZipClassesTZipMethodsListEval
            Kind = mkFunction
          end
          item
            Name = 'Message'
            Parameters = <
              item
                Name = 'ZipFile'
                DataType = 'String'
              end>
            ResultType = 'String'
            OnEval = dws2UnitZipClassesTZipMethodsMessageEval
            Kind = mkFunction
          end
          item
            Name = 'ReadSpan'
            Parameters = <
              item
                Name = 'SpanFile'
                DataType = 'String'
              end
              item
                Name = 'ZipFile'
                DataType = 'String'
                IsVarParam = True
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsReadSpanEval
            Kind = mkFunction
          end
          item
            Name = 'SFX2ZIP'
            Parameters = <
              item
                Name = 'ZipFile'
                DataType = 'String'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsSFX2ZIPEval
            Kind = mkFunction
          end
          item
            Name = 'WriteSpan'
            Parameters = <
              item
                Name = 'ZipFile'
                DataType = 'String'
              end
              item
                Name = 'SpanFile'
                DataType = 'String'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsWriteSpanEval
            Kind = mkFunction
          end
          item
            Name = 'ZIP2SFX'
            Parameters = <
              item
                Name = 'ZipFile'
                DataType = 'String'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsZIP2SFXEval
            Kind = mkFunction
          end
          item
            Name = 'ReadAddHiddenFiles'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadAddHiddenFilesEval
            Kind = mkFunction
          end
          item
            Name = 'WriteAddHiddenFiles'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteAddHiddenFilesEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadAddZipTime'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadAddZipTimeEval
            Kind = mkFunction
          end
          item
            Name = 'WriteAddZipTime'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteAddZipTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadAddDirNames'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadAddDirNamesEval
            Kind = mkFunction
          end
          item
            Name = 'WriteAddDirNames'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteAddDirNamesEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadAddSeparateDirs'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadAddSeparateDirsEval
            Kind = mkFunction
          end
          item
            Name = 'WriteAddSeparateDirs'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteAddSeparateDirsEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadAddCompLevel'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsReadAddCompLevelEval
            Kind = mkFunction
          end
          item
            Name = 'WriteAddCompLevel'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Integer'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteAddCompLevelEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadAddRecurseDirs'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadAddRecurseDirsEval
            Kind = mkFunction
          end
          item
            Name = 'WriteAddRecurseDirs'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteAddRecurseDirsEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadAddEncrypt'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadAddEncryptEval
            Kind = mkFunction
          end
          item
            Name = 'WriteAddEncrypt'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteAddEncryptEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadPassword'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2UnitZipClassesTZipMethodsReadPasswordEval
            Kind = mkFunction
          end
          item
            Name = 'WritePassword'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWritePasswordEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadExtrDirNames'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadExtrDirNamesEval
            Kind = mkFunction
          end
          item
            Name = 'WriteExtrDirNames'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteExtrDirNamesEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadExtrOverwrite'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadExtrOverwriteEval
            Kind = mkFunction
          end
          item
            Name = 'WriteExtrOverwrite'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteExtrOverwriteEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadConfirmErase'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadConfirmEraseEval
            Kind = mkFunction
          end
          item
            Name = 'WriteConfirmErase'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteConfirmEraseEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadHowToDelete'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = dws2UnitZipClassesTZipMethodsReadHowToDeleteEval
            Kind = mkFunction
          end
          item
            Name = 'WriteHowToDelete'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Integer'
              end>
            OnEval = dws2UnitZipClassesTZipMethodsWriteHowToDeleteEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadAddDiskSpan'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2UnitZipClassesTZipMethodsReadAddDiskSpanEval
            Kind = mkFunction
          end
          item
            Name = 'WriteAddDiskSpan'
            Parameters = <