imp_sysutils.pas

Delphi脚本控件

  RegisterProperty(TLanguages,
       'property Count:Integer read TLanguages_ReadCount;');
  RegisterMethod(TLanguages,
       'function TLanguages_ReadName(Index: Integer):String;',
       @TLanguages_ReadName, Fake);
  RegisterProperty(TLanguages,
       'property Name[Index: Integer]:String read TLanguages_ReadName;');
  RegisterMethod(TLanguages,
       'function TLanguages_ReadNameFromLocaleID(ID: LCID):String;',
       @TLanguages_ReadNameFromLocaleID, Fake);
  RegisterProperty(TLanguages,
       'property NameFromLocaleID[ID: LCID]:String read TLanguages_ReadNameFromLocaleID;');
  RegisterMethod(TLanguages,
       'function TLanguages_ReadNameFromLCID(const ID: string):String;',
       @TLanguages_ReadNameFromLCID, Fake);
  RegisterProperty(TLanguages,
       'property NameFromLCID[const ID: string]:String read TLanguages_ReadNameFromLCID;');
  RegisterMethod(TLanguages,
       'function TLanguages_ReadID(Index: Integer):String;',
       @TLanguages_ReadID, Fake);
  RegisterProperty(TLanguages,
       'property ID[Index: Integer]:String read TLanguages_ReadID;');
  RegisterMethod(TLanguages,
       'function TLanguages_ReadLocaleID(Index: Integer):LCID;',
       @TLanguages_ReadLocaleID, Fake);
  RegisterProperty(TLanguages,
       'property LocaleID[Index: Integer]:LCID read TLanguages_ReadLocaleID;');
  RegisterMethod(TLanguages,
       'function TLanguages_ReadExt(Index: Integer):String;',
       @TLanguages_ReadExt, Fake);
  RegisterProperty(TLanguages,
       'property Ext[Index: Integer]:String read TLanguages_ReadExt;');
  // End of class TLanguages
  // Begin of class Exception
  RegisterClassType(Exception, H);
  RegisterMethod(Exception,
       'constructor Create(const Msg: string);',
       @Exception.Create);
  RegisterMethod(Exception,
       'constructor CreateFmt(const Msg: string; const Args: array of const);',
       @Exception.CreateFmt);
  RegisterMethod(Exception,
       'constructor CreateRes(Ident: Integer); overload;',
       @Exception.CreateRes);
  RegisterMethod(Exception,
       'constructor CreateRes(ResStringRec: PResStringRec); overload;',
       @Exception.CreateRes);
  RegisterMethod(Exception,
       'constructor CreateResFmt(Ident: Integer; const Args: array of const); overload;',
       @Exception.CreateResFmt);
  RegisterMethod(Exception,
       'constructor CreateResFmt(ResStringRec: PResStringRec; const Args: array of const); overload;',
       @Exception.CreateResFmt);
  RegisterMethod(Exception,
       'constructor CreateHelp(const Msg: string; AHelpContext: Integer);',
       @Exception.CreateHelp);
  RegisterMethod(Exception,
       'constructor CreateFmtHelp(const Msg: string; const Args: array of const;      AHelpContext: Integer);',
       @Exception.CreateFmtHelp);
  RegisterMethod(Exception,
       'constructor CreateResHelp(Ident: Integer; AHelpContext: Integer); overload;',
       @Exception.CreateResHelp);
  RegisterMethod(Exception,
       'constructor CreateResHelp(ResStringRec: PResStringRec; AHelpContext: Integer); overload;',
       @Exception.CreateResHelp);
  RegisterMethod(Exception,
       'constructor CreateResFmtHelp(ResStringRec: PResStringRec; const Args: array of const;      AHelpContext: Integer); overload;',
       @Exception.CreateResFmtHelp);
  RegisterMethod(Exception,
       'constructor CreateResFmtHelp(Ident: Integer; const Args: array of const;      AHelpContext: Integer); overload;',
       @Exception.CreateResFmtHelp);
  RegisterMethod(Exception,
       'function Exception_ReadHelpContext:Integer;',
       @Exception_ReadHelpContext, Fake);
  RegisterMethod(Exception,
       'procedure Exception_WriteHelpContext(const Value: Integer);',
       @Exception_WriteHelpContext, Fake);
  RegisterProperty(Exception,
       'property HelpContext:Integer read Exception_ReadHelpContext write Exception_WriteHelpContext;');
  RegisterMethod(Exception,
       'function Exception_ReadMessage:String;',
       @Exception_ReadMessage, Fake);
  RegisterMethod(Exception,
       'procedure Exception_WriteMessage(const Value: String);',
       @Exception_WriteMessage, Fake);
  RegisterProperty(Exception,
       'property Message:String read Exception_ReadMessage write Exception_WriteMessage;');
  // End of class Exception
  // Begin of class EHeapException
  RegisterClassType(EHeapException, H);
  RegisterMethod(EHeapException,
       'procedure FreeInstance; override;',
       @EHeapException.FreeInstance);
  RegisterMethod(EHeapException,
       'constructor Create(const Msg: string);',
       @EHeapException.Create);
  // End of class EHeapException
  // Begin of class EInOutError
  RegisterClassType(EInOutError, H);
  RegisterMethod(EInOutError,
       'constructor Create(const Msg: string);',
       @EInOutError.Create);
  // End of class EInOutError
  // Begin of class EExternal
  RegisterClassType(EExternal, H);
  RegisterMethod(EExternal,
       'constructor Create(const Msg: string);',
       @EExternal.Create);
  // End of class EExternal
  // Begin of class EWin32Error
  RegisterClassType(EWin32Error, H);
  RegisterMethod(EWin32Error,
       'constructor Create(const Msg: string);',
       @EWin32Error.Create);
  // End of class EWin32Error
  RegisterVariable('EmptyStr', 'STRING',@EmptyStr, H);
  RegisterVariable('Win32Platform', 'INTEGER',@Win32Platform, H);
  RegisterVariable('Win32MajorVersion', 'INTEGER',@Win32MajorVersion, H);
  RegisterVariable('Win32MinorVersion', 'INTEGER',@Win32MinorVersion, H);
  RegisterVariable('Win32BuildNumber', 'INTEGER',@Win32BuildNumber, H);
  RegisterVariable('Win32CSDVersion', 'STRING',@Win32CSDVersion, H);
  RegisterVariable('CurrencyString', 'STRING',@CurrencyString, H);
  RegisterVariable('CurrencyFormat', 'BYTE',@CurrencyFormat, H);
  RegisterVariable('NegCurrFormat', 'BYTE',@NegCurrFormat, H);
  RegisterVariable('ThousandSeparator', 'CHAR',@ThousandSeparator, H);
  RegisterVariable('DecimalSeparator', 'CHAR',@DecimalSeparator, H);
  RegisterVariable('CurrencyDecimals', 'BYTE',@CurrencyDecimals, H);
  RegisterVariable('DateSeparator', 'CHAR',@DateSeparator, H);
  RegisterVariable('ShortDateFormat', 'STRING',@ShortDateFormat, H);
  RegisterVariable('LongDateFormat', 'STRING',@LongDateFormat, H);
  RegisterVariable('TimeSeparator', 'CHAR',@TimeSeparator, H);
  RegisterVariable('TimeAMString', 'STRING',@TimeAMString, H);
  RegisterVariable('TimePMString', 'STRING',@TimePMString, H);
  RegisterVariable('ShortTimeFormat', 'STRING',@ShortTimeFormat, H);
  RegisterVariable('LongTimeFormat', 'STRING',@LongTimeFormat, H);
  RegisterVariable('TwoDigitYearCenturyWindow', 'WORD',@TwoDigitYearCenturyWindow, H);
  RegisterVariable('ListSeparator', 'CHAR',@ListSeparator, H);
  RegisterRoutine('function Languages: TLanguages;', @Languages, H);
  RegisterRoutine('function AllocMem(Size: Cardinal): Pointer;', @AllocMem, H);
  RegisterRoutine('procedure AddExitProc(Proc: TProcedure);', @AddExitProc, H);
  RegisterRoutine('function NewStr(const S: string): PString;', @NewStr, H);
  RegisterRoutine('procedure DisposeStr(P: PString);', @DisposeStr, H);
  RegisterRoutine('procedure AssignStr(var P: PString; const S: string);', @AssignStr, H);
  RegisterRoutine('procedure AppendStr(var Dest: string; const S: string);', @AppendStr, H);
  RegisterRoutine('function UpperCase(const S: string): string;', @UpperCase, H);
  RegisterRoutine('function LowerCase(const S: string): string;', @LowerCase, H);
  RegisterRoutine('function CompareStr(const S1, S2: string): Integer;', @CompareStr, H);
  RegisterRoutine('function CompareMem(P1, P2: Pointer; Length: Integer): Boolean;', @CompareMem, H);
  RegisterRoutine('function CompareText(const S1, S2: string): Integer;', @CompareText, H);
  RegisterRoutine('function SameText(const S1, S2: string): Boolean;', @SameText, H);
  RegisterRoutine('function AnsiUpperCase(const S: string): string;', @AnsiUpperCase, H);
  RegisterRoutine('function AnsiLowerCase(const S: string): string;', @AnsiLowerCase, H);
  RegisterRoutine('function AnsiCompareStr(const S1, S2: string): Integer;', @AnsiCompareStr, H);
  RegisterRoutine('function AnsiSameStr(const S1, S2: string): Boolean;', @AnsiSameStr, H);
  RegisterRoutine('function AnsiCompareText(const S1, S2: string): Integer;', @AnsiCompareText, H);
  RegisterRoutine('function AnsiSameText(const S1, S2: string): Boolean;', @AnsiSameText, H);
  RegisterRoutine('function AnsiStrComp(S1, S2: PChar): Integer;', @AnsiStrComp, H);
  RegisterRoutine('function AnsiStrIComp(S1, S2: PChar): Integer;', @AnsiStrIComp, H);
  RegisterRoutine('function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer;', @AnsiStrLComp, H);
  RegisterRoutine('function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer;', @AnsiStrLIComp, H);
  RegisterRoutine('function AnsiStrLower(Str: PChar): PChar;', @AnsiStrLower, H);
  RegisterRoutine('function AnsiStrUpper(Str: PChar): PChar;', @AnsiStrUpper, H);
  RegisterRoutine('function AnsiLastChar(const S: string): PChar;', @AnsiLastChar, H);
  RegisterRoutine('function AnsiStrLastChar(P: PChar): PChar;', @AnsiStrLastChar, H);
  RegisterRoutine('function Trim(const S: string): string;', @Trim, H);
  RegisterRoutine('function TrimLeft(const S: string): string;', @TrimLeft, H);
  RegisterRoutine('function TrimRight(const S: string): string;', @TrimRight, H);
  RegisterRoutine('function QuotedStr(const S: string): string;', @QuotedStr, H);
  RegisterRoutine('function AnsiQuotedStr(const S: string; Quote: Char): string;', @AnsiQuotedStr, H);
  RegisterRoutine('function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string;', @AnsiExtractQuotedStr, H);
  RegisterRoutine('function AdjustLineBreaks(const S: string): string;', @AdjustLineBreaks, H);
  RegisterRoutine('function IsValidIdent(const Ident: string): Boolean;', @IsValidIdent, H);
  RegisterRoutine('function IntToStr(Value: Integer): string; overload;', @IntToStr, H);
  RegisterRoutine('function IntToStr(Value: Int64): string; overload;', @IntToStr, H);
  RegisterRoutine('function IntToHex(Value: Integer; Digits: Integer): string; overload;', @IntToHex, H);
  RegisterRoutine('function IntToHex(Value: Int64; Digits: Integer): string; overload;', @IntToHex, H);
  RegisterRoutine('function StrToInt(const S: string): Integer;', @StrToInt, H);
  RegisterRoutine('function StrToInt64(const S: string): Int64;', @StrToInt64, H);
  RegisterRoutine('function StrToIntDef(const S: string; Default: Integer): Integer;', @StrToIntDef, H);
  RegisterRoutine('function StrToInt64Def(const S: string; Default: Int64): Int64;', @StrToInt64Def, H);
  RegisterRoutine('function LoadStr(Ident: Integer): string;', @LoadStr, H);
  RegisterRoutine('function FmtLoadStr(Ident: Integer; const Args: array of const): string;', @FmtLoadStr, H);
  RegisterRoutine('function FileOpen(const FileName: string; Mode: LongWord): Integer;', @FileOpen, H);
  RegisterRoutine('function FileCreate(const FileName: string): Integer;', @FileCreate, H);
//  RegisterRoutine('function FileRead(Handle: Integer; var Buffer; Count: LongWord): Integer;', @FileRead, H);
//  RegisterRoutine('function FileWrite(Handle: Integer; const Buffer; Count: LongWord): Integer;', @FileWrite, H);

  RegisterStdRoutine('FileRead', _FileRead, 3, H);
  RegisterStdRoutine('FileWrite', _FileWrite, 3, H);

  RegisterRoutine('function FileSeek(Handle, Offset, Origin: Integer): Integer; overload;', @FileSeek, H);
  RegisterRoutine('function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64; overload;', @FileSeek, H);
  RegisterRoutine('procedure FileClose(Handle: Integer);', @FileClose, H);
  RegisterRoutine('function FileAge(const FileName: string): Integer;', @FileAge, H);
  RegisterRoutine('function FileExists(const FileName: string): Boolean;', @FileExists, H);
  RegisterRoutine('function FindFirst(const Path: string; Attr: Integer;  var F: TSearchRec): Integer;', @FindFirst, H);
  RegisterRoutine('function FindNext(var F: TSearchRec): Integer;', @FindNext, H);
  RegisterRoutine('procedure FindClose(var F: TSearchRec);', @FindClose, H);
  RegisterRoutine('function FileGetDate(Handle: Integer): Integer;', @FileGetDate, H);
  RegisterRoutine('function FileSetDate(Handle: Integer; Age: Integer): Integer;', @FileSetDate, H);
  RegisterRoutine('function FileGetAttr(const FileName: string): Integer;', @FileGetAttr, H);