dws2mflibmodule.dfm

script language

              end
              item
                Name = 'Default'
                DataType = 'Float'
              end>
            ResultType = 'Float'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadFloatEval
            Kind = mkFunction
          end
          item
            Name = 'ReadInteger'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'Integer'
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadIntegerEval
            Kind = mkFunction
          end
          item
            Name = 'ReadSection'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Strings'
                DataType = 'TStringList'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadSectionEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadSections'
            Parameters = <
              item
                Name = 'Strings'
                DataType = 'TStringList'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadSectionsEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadSectionValues'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Strings'
                DataType = 'TStringList'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadSectionValuesEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadString'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'String'
              end>
            ResultType = 'String'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadStringEval
            Kind = mkFunction
          end
          item
            Name = 'ReadTime'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'DateTime'
              end>
            ResultType = 'DateTime'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadTimeEval
            Kind = mkFunction
          end
          item
            Name = 'SectionExists'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end>
            ResultType = 'Boolean'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsSectionExistsEval
            Kind = mkFunction
          end
          item
            Name = 'UpdateFile'
            Parameters = <>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsUpdateFileEval
            Kind = mkProcedure
          end
          item
            Name = 'WriteBool'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsWriteBoolEval
            Kind = mkProcedure
          end
          item
            Name = 'WriteDate'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsWriteDateEval
            Kind = mkProcedure
          end
          item
            Name = 'WriteDateTime'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsWriteDateTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'WriteFloat'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'Float'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsWriteFloatEval
            Kind = mkProcedure
          end
          item
            Name = 'WriteInteger'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'Integer'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsWriteIntegerEval
            Kind = mkProcedure
          end
          item
            Name = 'WriteString'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsWriteStringEval
            Kind = mkProcedure
          end
          item
            Name = 'WriteTime'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsWriteTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'ValueExists'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end>
            ResultType = 'Boolean'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsValueExistsEval
            Kind = mkFunction
          end>
        Properties = <
          item
            Name = 'FileName'
            DataType = 'String'
            ReadAccess = 'ReadFileName'
            Parameters = <>
            IsDefault = False
          end>
      end>
    Constants = <>
    Dependencies.Strings = (
      'Internal'
      'Classes')
    Enumerations = <>
    Forwards = <>
    Functions = <>
    Instances = <>
    Records = <>
    UnitName = 'MFIniFiles'
    Variables = <>
    Left = 160
    Top = 80
  end
  object dws2UnitRegistry: Tdws2Unit
    Arrays = <>
    Classes = <>
    Constants = <>
    Dependencies.Strings = (
      'Internal')
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'RegCreateKey'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end>
        OnEval = dws2UnitRegistryFunctionsRegCreateKeyEval
      end
      item
        Name = 'RegDeleteKey'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end>
        OnEval = dws2UnitRegistryFunctionsRegDeleteKeyEval
      end
      item
        Name = 'RegDeleteValue'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end
          item
            Name = 'ValName'
            DataType = 'String'
          end>
        OnEval = dws2UnitRegistryFunctionsRegDeleteValueEval
      end
      item
        Name = 'RegReadInteger'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end
          item
            Name = 'ValName'
            DataType = 'String'
          end
          item
            Name = 'ValDef'
            DataType = 'Integer'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitRegistryFunctionsRegReadIntegerEval
      end
      item
        Name = 'RegReadString'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end
          item
            Name = 'ValName'
            DataType = 'String'
          end
          item
            Name = 'ValDef'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitRegistryFunctionsRegReadStringEval
      end
      item
        Name = 'RegGetType'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end
          item
            Name = 'ValName'
            DataType = 'String'
          end
          item
            Name = 'Size'
            DataType = 'Integer'
            IsVarParam = True
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitRegistryFunctionsRegGetTypeEval
      end
      item
        Name = 'RegKeyExists'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitRegistryFunctionsRegKeyExistsEval
      end
      item
        Name = 'RegValueExists'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end
          item
            Name = 'ValName'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitRegistryFunctionsRegValueExistsEval
      end
      item
        Name = 'RegWriteInteger'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end
          item
            Name = 'ValName'
            DataType = 'String'
          end
          item
            Name = 'Value'
            DataType = 'Integer'
          end>
        OnEval = dws2UnitRegistryFunctionsRegWriteIntegerEval
      end
      item
        Name = 'RegWriteString'
        Parameters = <
          item
            Name = 'MainKey'
            DataType = 'Integer'
          end
          item
            Name = 'SubKey'
            DataType = 'String'
          end
          item
            Name = 'ValName'
            DataType = 'String'
          end
          item
            Name = 'Value'
            DataType = 'String'
          end>
        OnEval = dws2UnitRegistryFunctionsRegWriteStringEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'MFRegistry'
    Variables = <>
    Left = 160
    Top = 130
  end
  object dws2UnitShell: Tdws2Unit
    Arrays = <>
    Classes = <>
    Constants = <>
    Dependencies.Strings = (
      'Internal')
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'DesktopRefresh'
        Parameters = <>
        OnEval = dws2UnitShellFunctionsDesktopRefreshEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'MFShell'