dws2mflibmodule.pas

script language

{**********************************************************************}
{                                                                      }
{    dws2MFLib                                                         }
{                                                                      }
{    A function library for DWSII                                      }
{    Version 1.0 Beta                                                  }
{    July 2001                                                         }
{                                                                      }
{    This software is distributed on an "AS IS" basis,                 }
{    WITHOUT WARRANTY OF ANY KIND, either express or implied.          }
{                                                                      }
{    The Initial Developer of the Original Code is Manfred Fuchs       }
{    Portions created by Manfred Fuchs are Copyright                   }
{    (C) 2001 Manfred Fuchs, Germany. All Rights Reserved.             }
{                                                                      }
{**********************************************************************}

unit dws2MFLibModule;

interface

uses
  {$IFDEF MSWINDOWS}
  Variants,
  {$ENDIF}
  Windows, SysUtils, ShellApi, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, WinSock, IniFiles, dws2Comp, dws2Exprs, dws2Symbols;

const
  CROP_LEFT = 0;
  CROP_RIGHT = 1;

type
  Tdws2MFLib = class(TDataModule)
    dws2UnitBasic: Tdws2Unit;
    dws2UnitConnection: Tdws2Unit;
    dws2UnitDialog: Tdws2Unit;
    dws2UnitFile: Tdws2Unit;
    dws2UnitInfo: Tdws2Unit;
    dws2UnitIniFiles: Tdws2Unit;
    dws2UnitRegistry: Tdws2Unit;
    dws2UnitShell: Tdws2Unit;
    dws2UnitString: Tdws2Unit;
    dws2UnitSystem: Tdws2Unit;
    dws2UnitWindow: Tdws2Unit;
    procedure dws2UnitBasicFunctionsBeepEval(Info: TProgramInfo);
    procedure dws2UnitBasicFunctionsDecEval(Info: TProgramInfo);
    procedure dws2UnitBasicFunctionsDec2Eval(Info: TProgramInfo);
    procedure dws2UnitBasicFunctionsIncEval(Info: TProgramInfo);
    procedure dws2UnitBasicFunctionsInc2Eval(Info: TProgramInfo);
    procedure dws2UnitBasicFunctionsGetTickCountEval(Info: TProgramInfo);
    procedure dws2UnitBasicFunctionsSleepEval(Info: TProgramInfo);
    procedure dws2UnitBasicFunctionsWriteLnEval(Info: TProgramInfo);
    procedure dws2UnitConnFunctionsConnectedEval(Info: TProgramInfo);
    procedure dws2UnitConnFunctionsIPAddressEval(Info: TProgramInfo);
    procedure dws2UnitDialogFunctionsSelectStringDialogEval(
      Info: TProgramInfo);
    procedure dws2UnitFileFunctionsDescCopyEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsDescListCreateEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsDescListReadEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsDescMoveEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsDescReadEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsDescWriteEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsOpenDialogEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsOpenDialogMultiEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsSaveDialogEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsCDCloseEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsCDOpenEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsGetCRC32FromFileEval(
      Info: TProgramInfo);
    procedure dws2UnitFileFunctionsGetDriveNameEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsGetDriveNumEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsGetDriveReadyEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsGetDriveSerialEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsGetDriveTypeEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsDirectoryExistsEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsDirectoryListEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsCopyFileEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsFileDateEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsFileListEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsFileSizeEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsMakePathEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsMoveFileEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsMoveFileExEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsReadOnlyPathEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsSplitPathEval(Info: TProgramInfo);
    procedure dws2UnitFileFunctionsSubdirectoryExistsEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetAllUsersDesktopDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetAllUsersProgramsDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetAllUsersStartmenuDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetAllUsersStartupDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetAppdataDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetCacheDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetChannelFolderNameEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetCommonFilesDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetComputerNameEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetConsoleTitleEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetCookiesDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetCPUSpeedEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetDesktopDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetDevicePathEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetEnvironmentVariableEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetFavoritesDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetFontsDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetHistoryDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetLinkfolderNameEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetMediaPathEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetNethoodDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetPersonalDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetPFAccessoriesNameEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetPrinthoodDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetProgramfilesDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetProgramsDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetRecentDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetSendtoDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetSMAccessoriesNameEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetStartmenuDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetStartupDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetSystemDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetTempDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetTemplatesDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetUserNameEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetVersionEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetWallpaperDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetWindowsDirectoryEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsGetWindowsVersionEval(
      Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsIsWin2000Eval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsIsWin9xEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsIsWinNTEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsIsWinNT4Eval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsSetComputerNameEval(Info: TProgramInfo);
    procedure dws2UnitInfoFunctionsSetConsoleTitleEval(Info: TProgramInfo);
    procedure dws2UnitIniFilesClassesTIniFileMethodsDestroyEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsDeleteKeyEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsEraseSectionEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadBoolEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadDateEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadDateTimeEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadFileNameEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadFloatEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadIntegerEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadSectionEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadSectionsEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadSectionValuesEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadStringEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsReadTimeEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsSectionExistsEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsUpdateFileEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsWriteBoolEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsWriteDateEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsWriteDateTimeEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsWriteFloatEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsWriteIntegerEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsWriteStringEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsWriteTimeEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitIniFilesClassesTIniFileMethodsValueExistsEval(
      Info: TProgramInfo; ExtObject: TObject);
    procedure dws2UnitRegistryFunctionsRegCreateKeyEval(
      Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegDeleteKeyEval(
      Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegDeleteValueEval(
      Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegReadIntegerEval(
      Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegReadStringEval(
      Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegGetTypeEval(Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegKeyExistsEval(
      Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegValueExistsEval(
      Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegWriteIntegerEval(
      Info: TProgramInfo);
    procedure dws2UnitRegistryFunctionsRegWriteStringEval(
      Info: TProgramInfo);
    procedure dws2UnitShellFunctionsDesktopRefreshEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsANSI2OEMEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsChangeTokenValueEval(
      Info: TProgramInfo);
    procedure dws2UnitStringFunctionsChrEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsCmpREEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsCmpWCEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsCropEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsForEachEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsFormatColumnsEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsGetCRC32FromStringEval(
      Info: TProgramInfo);
    procedure dws2UnitStringFunctionsGetStringFromListEval(
      Info: TProgramInfo);
    procedure dws2UnitStringFunctionsGetTokenListEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsIncWCEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsNum2TextEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsOEM2ANSIEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsOrdEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsPosXEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsStringOfCharEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsTestWCEval(Info: TProgramInfo);
    procedure dws2UnitStringFunctionsTranslateEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsShellExecuteEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsShellExecuteWaitEval(
      Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsExitWindowsExEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsWriteMailslotEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsGetProcessListEval(
      Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsHiWordEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsIsFileActiveEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsKillProcessEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsLoWordEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsMakeLongEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsPostMessageEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsSendKeysEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsSendKeysExEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsSendKeysNamedWinEval(
      Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsSendKeysNamedWinExEval(
      Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsSendKeysWinEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsSendKeysWinExEval(Info: TProgramInfo);
    procedure dws2UnitSystemFunctionsSendMessageEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsFindWindowEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsFindWindowExEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsGetClassNameEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsGetWindowTextEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsHideTaskbarEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsIsIconicEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsIsWindowEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsIsWindowEnabledEval(
      Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsIsWindowVisibleEval(
      Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsIsZoomedEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsSearchWindowEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsSearchWindowExEval(
      Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsShowTaskbarEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsWaitForWindowEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsWaitForWindowCloseEval(
      Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsWaitForWindowCloseExEval(
      Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsWaitForWindowEnabledEval(
      Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsWaitForWindowEnabledExEval(
      Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsWaitForWindowExEval(
      Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsWindowMoveEval(Info: TProgramInfo);
    procedure dws2UnitWindowFunctionsWindowResizeEval(Info: TProgramInfo);
    procedure dws2UnitIniFilesClassesTIniFileConstructorsCreateAssignExternalObject(
      Info: TProgramInfo; var ExtObject: TObject);
  private
    FScript: TDelphiWebScriptII;
    procedure SetScript(const Value: TDelphiWebScriptII);
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation);
      override;
  published
    property Script: TDelphiWebScriptII read FScript write SetScript;
  end;

procedure Register;

var
  dws2MFLib: Tdws2MFLib;

implementation

{$R *.DFM}

uses
  dws2MFLibFuncs, dws2MFLibUtils, ProcessViewer, RegExpr;

const
  WKey = '\Software\Microsoft\Windows\CurrentVersion';
  EKey = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';

  numNamesA: array[1..17] of string =
  (
    ('ein'),
    ('zwei'),
    ('drei'),
    ('vier'),
    ('f黱f'),
    ('sechs'),
    ('sieben'),
    ('acht'),
    ('neun'),
    ('zehn'),
    ('elf'),
    ('zw鰈f'),
    ('dreizehn'),
    ('vierzehn'),
    ('f黱fzehn'),