dws2mflibmodule.dfm

script language

            DataType = 'String'
          end
          item
            Name = 'Target'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsMoveFileEval
      end
      item
        Name = 'MoveFileEx'
        Parameters = <
          item
            Name = 'Source'
            DataType = 'String'
          end
          item
            Name = 'Target'
            DataType = 'String'
          end
          item
            Name = 'Flags'
            DataType = 'Integer'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsMoveFileExEval
      end
      item
        Name = 'ReadOnlyPath'
        Parameters = <
          item
            Name = 'Path'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsReadOnlyPathEval
      end
      item
        Name = 'SplitPath'
        Parameters = <
          item
            Name = 'Path'
            DataType = 'String'
          end
          item
            Name = 'Drive'
            DataType = 'String'
            IsVarParam = True
          end
          item
            Name = 'Dir'
            DataType = 'String'
            IsVarParam = True
          end
          item
            Name = 'Name'
            DataType = 'String'
            IsVarParam = True
          end
          item
            Name = 'Ext'
            DataType = 'String'
            IsVarParam = True
          end>
        OnEval = dws2UnitFileFunctionsSplitPathEval
      end
      item
        Name = 'SubdirectoryExists'
        Parameters = <
          item
            Name = 'Dir'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsSubdirectoryExistsEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'MFFile'
    Variables = <>
    Left = 50
    Top = 180
  end
  object dws2UnitInfo: Tdws2Unit
    Arrays = <>
    Classes = <>
    Constants = <>
    Dependencies.Strings = (
      'Internal')
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'GetAllUsersDesktopDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetAllUsersDesktopDirectoryEval
      end
      item
        Name = 'GetAllUsersProgramsDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetAllUsersProgramsDirectoryEval
      end
      item
        Name = 'GetAllUsersStartmenuDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetAllUsersStartmenuDirectoryEval
      end
      item
        Name = 'GetAllUsersStartupDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetAllUsersStartupDirectoryEval
      end
      item
        Name = 'GetAppdataDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetAppdataDirectoryEval
      end
      item
        Name = 'GetCacheDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetCacheDirectoryEval
      end
      item
        Name = 'GetChannelFolderName'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetChannelFolderNameEval
      end
      item
        Name = 'GetCommonFilesDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetCommonFilesDirectoryEval
      end
      item
        Name = 'GetComputerName'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetComputerNameEval
      end
      item
        Name = 'GetConsoleTitle'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetConsoleTitleEval
      end
      item
        Name = 'GetCookiesDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetCookiesDirectoryEval
      end
      item
        Name = 'GetCPUSpeed'
        Parameters = <>
        ResultType = 'Float'
        OnEval = dws2UnitInfoFunctionsGetCPUSpeedEval
      end
      item
        Name = 'GetDesktopDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetDesktopDirectoryEval
      end
      item
        Name = 'GetDevicePath'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetDevicePathEval
      end
      item
        Name = 'GetEnvironmentVariable'
        Parameters = <
          item
            Name = 'Name'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetEnvironmentVariableEval
      end
      item
        Name = 'GetFavoritesDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetFavoritesDirectoryEval
      end
      item
        Name = 'GetFontsDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetFontsDirectoryEval
      end
      item
        Name = 'GetHistoryDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetHistoryDirectoryEval
      end
      item
        Name = 'GetLinkfolderName'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetLinkfolderNameEval
      end
      item
        Name = 'GetMediaPath'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetMediaPathEval
      end
      item
        Name = 'GetNethoodDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetNethoodDirectoryEval
      end
      item
        Name = 'GetPersonalDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetPersonalDirectoryEval
      end
      item
        Name = 'GetPFAccessoriesName'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetPFAccessoriesNameEval
      end
      item
        Name = 'GetPrinthoodDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetPrinthoodDirectoryEval
      end
      item
        Name = 'GetProgramfilesDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetProgramfilesDirectoryEval
      end
      item
        Name = 'GetProgramsDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetProgramsDirectoryEval
      end
      item
        Name = 'GetRecentDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetRecentDirectoryEval
      end
      item
        Name = 'GetSendtoDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetSendtoDirectoryEval
      end
      item
        Name = 'GetSMAccessoriesName'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetSMAccessoriesNameEval
      end
      item
        Name = 'GetStartmenuDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetStartmenuDirectoryEval
      end
      item
        Name = 'GetStartupDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetStartupDirectoryEval
      end
      item
        Name = 'GetSystemDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetSystemDirectoryEval
      end
      item
        Name = 'GetTempDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetTempDirectoryEval
      end
      item
        Name = 'GetTemplatesDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetTemplatesDirectoryEval
      end
      item
        Name = 'GetUserName'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetUserNameEval
      end
      item
        Name = 'GetVersion'
        Parameters = <>
        ResultType = 'Integer'
        OnEval = dws2UnitInfoFunctionsGetVersionEval
      end
      item
        Name = 'GetWallpaperDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetWallpaperDirectoryEval
      end
      item
        Name = 'GetWindowsDirectory'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitInfoFunctionsGetWindowsDirectoryEval
      end
      item
        Name = 'GetWindowsVersion'
        Parameters = <>
        ResultType = 'Integer'
        OnEval = dws2UnitInfoFunctionsGetWindowsVersionEval
      end
      item
        Name = 'IsWin2000'
        Parameters = <>
        ResultType = 'Boolean'
        OnEval = dws2UnitInfoFunctionsIsWin2000Eval
      end
      item
        Name = 'IsWin9x'
        Parameters = <>
        ResultType = 'Boolean'
        OnEval = dws2UnitInfoFunctionsIsWin9xEval
      end
      item
        Name = 'IsWinNT'
        Parameters = <>
        ResultType = 'Boolean'
        OnEval = dws2UnitInfoFunctionsIsWinNTEval
      end
      item
        Name = 'IsWinNT4'
        Parameters = <>
        ResultType = 'Boolean'
        OnEval = dws2UnitInfoFunctionsIsWinNT4Eval
      end
      item
        Name = 'SetComputerName'
        Parameters = <
          item
            Name = 'Name'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitInfoFunctionsSetComputerNameEval
      end
      item
        Name = 'SetConsoleTitle'
        Parameters = <
          item
            Name = 'Title'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitInfoFunctionsSetConsoleTitleEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'MFInfo'
    Variables = <>
    Left = 160
    Top = 30
  end
  object dws2UnitIniFiles: Tdws2Unit
    Arrays = <>
    Classes = <
      item
        Name = 'TIniFile'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <
              item
                Name = 'FileName'
                DataType = 'String'
              end>
            OnAssignExternalObject = dws2UnitIniFilesClassesTIniFileConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsDestroyEval
            Kind = mkDestructor
          end
          item
            Name = 'DeleteKey'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsDeleteKeyEval
            Kind = mkProcedure
          end
          item
            Name = 'EraseSection'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end>
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsEraseSectionEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadBool'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'Boolean'
              end>
            ResultType = 'Boolean'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadBoolEval
            Kind = mkFunction
          end
          item
            Name = 'ReadDate'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'DateTime'
              end>
            ResultType = 'DateTime'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadDateEval
            Kind = mkFunction
          end
          item
            Name = 'ReadDateTime'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'DateTime'
              end>
            ResultType = 'DateTime'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadDateTimeEval
            Kind = mkFunction
          end
          item
            Name = 'ReadFileName'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2UnitIniFilesClassesTIniFileMethodsReadFileNameEval
            Kind = mkFunction
          end
          item
            Name = 'ReadFloat'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'