dws2mflib.txt

script language

    HKEY_PERFORMANCE_DATA
    HKEY_CURRENT_CONFIG
    HKEY_DYN_DATA

    Funktionen
    ----------

    procedure RegCreateKey(MainKey: Integer; SubKey: String);
    procedure RegDeleteKey(MainKey: Integer; SubKey: String);
    procedure RegDeleteValue(MainKey: Integer; SubKey: String; ValName: String);
    function  RegReadInteger(MainKey: Integer; SubKey: String; ValName: String; ValDef: Integer): Integer;
    function  RegReadString(MainKey: Integer; SubKey: String; ValName: String; ValDef: String): String;
    function  RegGetType(MainKey: Integer; SubKey: String; ValName: String; var Size: Integer): Integer;
    function  RegKeyExists(MainKey: Integer; SubKey: String): Boolean;
    function  RegValueExists(MainKey: Integer; SubKey: String; ValName: String): Boolean;
    procedure RegWriteInteger(MainKey: Integer; SubKey: String; ValName: String; Value: Integer);
    procedure RegWriteString(MainKey: Integer; SubKey: String; ValName: String; Value: String);



Shell
=====

    Konstanten
    ----------

    -

    Funktionen
    ----------

    DesktopRefresh;



String
======

    Konstanten
    ----------

    cdrLeft
    cdrRight

    Funktionen
    ----------

    function  ANSI2OEM(S: String): String;
    function  ChangeTokenValue(S: String; Name: String; Value: String; Delimiter: String): String;
    function  Chr(Byte: Integer): String;
    function  CmpRE(S: String; RE: String): Boolean;
    function  CmpWC(S: String; WC: String; Case: Boolean): Boolean;
    function  Crop(S: String; Len: Integer; Dir: Integer; Delimiter: String)
    function  ForEach(List: TStringList; Func: String; Flag: Integer): Boolean;
    procedure FormatColumns(List: TStringList; Delimiter: String; Space: String; Adjustment: Integer);
    function  GetCRC32FromString(S: String): Integer;
    function  GetStringFromList(List: TStringList; Delimiter: String): String;
    function  GetTokenList(S: String; Delimiter: String; Repeater: Boolean; IgnoreFirst: Boolean; IgnoreLast: Boolean): TStringList;
    function  IncWC(S: String; WC: String; Case: Boolean): String;
    function  Num2Text(Num: Integer): String;
    function  OEM2ANSI(S: String): String;
    function  Ord(Char: String): Integer;
    function  PosX(SubStr: String; S: String): Integer;
    function  StringOfChar(Ch: String; Count: Integer): String;
    function  TestWC(S: String): Integer;
    function  Translate(S: String; Out: String; In: String; Place: String; Case: Boolean): String;



System
======

    Konstanten
    ----------

    SW_HIDE
    SW_SHOWNORMAL
    SW_NORMAL
    SW_SHOWMINIMIZED
    SW_SHOWMAXIMIZED
    SW_MAXIMIZE
    SW_SHOWNOACTIVE
    SW_SHOW
    SW_MINIMIZE
    SW_SHOWMINNOACTIVE
    SW_SHOWNA
    SW_RESTORE
    SW_SHOWDEFAULT
    EWX_LOGOFF
    EWX_SHUTDOWN
    EWX_REBOOT
    EWX_FORCE
    EWX_POWEROFF
    EWX_FORCEIFHUNG

    Nachrichten-Konstanten f黵 PostMessage() und SendMessage() siehe Datei dws2MFLibMessages.txt

    Funktionen
    ----------

    function  ShellExecute(Operation: String; Filename: String; Parameters: String; Directory: String; ShowCmd: Integer): Integer;
    function  ShellExecuteWait(Filename: String; Parameters: String; Directory: String; ShowCmd: Integer): Boolean;
    function  ExitWindowsEx(Flags: Integer): Integer;
    function  WriteMailslot(Machine: String; Mailslot: String; Text: String): Boolean;
    function  GetProcessList: TStringList;
    function  HiWord(Value: Integer): Integer;
    function  IsFileActive(FileName: String): Boolean;
    function  KillProcess(Window: Integer; FileName: String; KillAll: Boolean): Boolean;
    function  LoWord(Value: Integer): Integer;
    function  MakeLong(Low, High: Integer): Integer;
    function  PostMessage(Window, Msg, WParam, LParam: Integer): Boolean;
    procedure SendKeys(Keys: String);
    procedure SendKeysEx(Keys: String; Wait: Integer);
    function  SendKeysNamedWin(Window: String; Keys: String): Integer;
    function  SendKeysNamedWinEx(Window: String; Keys: String; Wait: Integer; Back: Boolean): Integer;
    function  SendKeysWin(Window: Integer; Keys: String): Integer;
    function  SendKeysWinEx(Window: Integer; Keys: String; Wait: Integer; Back: Boolean): Integer;
    function  SendMessage(Window, Msg, WParam, LParam: Integer): Integer;



Window
======

    Konstanten
    ----------

    -

    Funktionen
    ----------

    function  FindWindow(Class: String; Window: String): Integer;
    function  FindWindowEx(Parent: Integer; ChildAfter: Integer; Class: String; Window: String): Integer;
    function  GetClassName(Window: Integer): String;
    function  GetWindowText(Window: Integer): String;
    procedure HideTaskbar;
    function  IsIconic(Window: Integer): Boolean;
    function  IsWindow(Window: Integer): Boolean;
    function  IsWindowEnabled(Window: Integer): Boolean;
    function  IsWindowVisible(Window: Integer): Boolean;
    function  IsZoomed(Window: Integer): Boolean;
    function  SearchWindow(var Class; var Window: String; ProcID: Integer): Integer;
    function  SearchWindowEx(Parent: Integer; ChildAfter: Integer; var Class; var Window: String; Num: Integer): Integer;
    procedure ShowTaskbar;
    function  WaitForWindow(var Class; var Window: String; Timeout: Integer; ProcID: Integer): Integer;
    function  WaitForWindowClose(Window: Integer; Timeout: Integer): Boolean;
    function  WaitForWindowClose(Class: String; Window: String; Timeout: Integer; ProcID: Integer): Boolean;
    function  WaitForWindowEnabled(Window: Integer; Timeout: Integer): Boolean;
    function  WaitForWindowEnabled(Class: String; Window: String; Timeout: Integer; ProcID: Integer): Boolean;
    function  WaitForWindowEx(Parent: Integer; var Class; var Window: String; Timeout: Integer; Num: Integer): Integer;
    procedure WindowMove(Window: Integer; X: Integer; Y: Integer; Abs: Boolean);
    procedure WindowResize(Window: Integer; X: Integer; Y: Integer; Abs: Boolean);



Zip
===

    Konstanten
    ----------

    Zip_Add
    Zip_Move
    Zip_Update
    Zip_Freshen
    Zip_Extract
    Zip_Test
    Zip_OverwriteConfirm
    Zip_OverwriteAlways
    Zip_OverwriteNever
    Zip_EraseFinal
    Zip_EraseAllowUndo

    Klassen
    -------

    TZip

    constructor TZip.Create;
    destructor  TZip.Destroy;

    function  TZip.Add(Action: Integer; ZipFile: String; FileName: String): Integer;
    function  TZip.AddList(Action: Integer; ZipFile: String; FileNames: TStringList): Integer;
    function  TZip.Delete(ZipFile: String; FileName: String): Integer;
    function  TZip.DeleteList(ZipFile: String; FileNames: TStringList): Integer;
    function  TZip.Extract(Action: Integer; ZipFile: String; FileName: String): Integer;
    function  TZip.ExtractList(Action: Integer; ZipFile: String; FileNames: TStringList): Integer;
    function  TZip.List(ZipFile: String): TStringList;
    function  TZip.Message(ZipFile: String): String;
    function  TZip.ReadSpan(SpanFile: String; var ZipFile: String): Integer;
    function  TZip.SFX2ZIP(ZipFile: String): Integer;
    function  TZip.WriteSpan(ZipFile: String; SpanFile: String): Integer;
    function  TZip.ZIP2SFX(ZipFile: String): Integer;

    property TZip.AddCompLevel: Integer;
    property TZip.AddDirNames: Boolean;
    property TZip.AddDiskSpan: Boolean;
    property TZip.AddDiskSpanErase: Boolean;
    property TZip.AddEncrypt: Boolean;
    property TZip.AddHiddenFiles: Boolean;
    property TZip.AddRecurseDirs: Boolean;
    property TZip.AddSeparateDirs: Boolean;
    property TZip.AddZipTime: Boolean;
    property TZip.ConfirmErase: Boolean;
    property TZip.ExtrDirNames: Boolean;
    property TZip.ExtrOverwrite: Boolean;
    property TZip.HowToDelete: Boolean;
    property TZip.KeepFreeOnDisk1: Integer;
    property TZip.MaxVolumeSize: Integer;
    property TZip.MinFreeVolumeSize: Integer;
    property TZip.Password: String;
    property TZip.SFXAskCmdLine: Boolean;
    property TZip.SFXAskFiles: Boolean;
    property TZip.SFXCaption: String;
    property TZip.SFXCommandLine: String;
    property TZip.SFXDefaultDir: String;
    property TZip.SFXHideOverwriteBox: Boolean;
    property TZip.SFXOverwriteMode: Integer;
    property TZip.Temp: String;


    Funktionen
    ----------

    -