imp_sysutils.pas

Delphi脚本控件

  RegisterRoutine('function FileSetAttr(const FileName: string; Attr: Integer): Integer;', @FileSetAttr, H);
  RegisterRoutine('function DeleteFile(const FileName: string): Boolean;', @DeleteFile, H);
  RegisterRoutine('function RenameFile(const OldName, NewName: string): Boolean;', @RenameFile, H);
  RegisterRoutine('function ChangeFileExt(const FileName, Extension: string): string;', @ChangeFileExt, H);
  RegisterRoutine('function ExtractFilePath(const FileName: string): string;', @ExtractFilePath, H);
  RegisterRoutine('function ExtractFileDir(const FileName: string): string;', @ExtractFileDir, H);
  RegisterRoutine('function ExtractFileDrive(const FileName: string): string;', @ExtractFileDrive, H);
  RegisterRoutine('function ExtractFileName(const FileName: string): string;', @ExtractFileName, H);
  RegisterRoutine('function ExtractFileExt(const FileName: string): string;', @ExtractFileExt, H);
  RegisterRoutine('function ExpandFileName(const FileName: string): string;', @ExpandFileName, H);
  RegisterRoutine('function ExpandUNCFileName(const FileName: string): string;', @ExpandUNCFileName, H);
  RegisterRoutine('function ExtractRelativePath(const BaseName, DestName: string): string;', @ExtractRelativePath, H);
  RegisterRoutine('function ExtractShortPathName(const FileName: string): string;', @ExtractShortPathName, H);
  RegisterRoutine('function FileSearch(const Name, DirList: string): string;', @FileSearch, H);
  RegisterRoutine('function DiskFree(Drive: Byte): Int64;', @DiskFree, H);
  RegisterRoutine('function DiskSize(Drive: Byte): Int64;', @DiskSize, H);
  RegisterRoutine('function FileDateToDateTime(FileDate: Integer): TDateTime;', @FileDateToDateTime, H);
  RegisterRoutine('function DateTimeToFileDate(DateTime: TDateTime): Integer;', @DateTimeToFileDate, H);
  RegisterRoutine('function GetCurrentDir: string;', @GetCurrentDir, H);
  RegisterRoutine('function SetCurrentDir(const Dir: string): Boolean;', @SetCurrentDir, H);
  RegisterRoutine('function CreateDir(const Dir: string): Boolean;', @CreateDir, H);
  RegisterRoutine('function RemoveDir(const Dir: string): Boolean;', @RemoveDir, H);
  RegisterRoutine('function StrLen(const Str: PChar): Cardinal;', @StrLen, H);
  RegisterRoutine('function StrEnd(const Str: PChar): PChar;', @StrEnd, H);
  RegisterRoutine('function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): PChar;', @StrMove, H);
  RegisterRoutine('function StrCopy(Dest: PChar; const Source: PChar): PChar;', @StrCopy, H);
  RegisterRoutine('function StrECopy(Dest:PChar; const Source: PChar): PChar;', @StrECopy, H);
  RegisterRoutine('function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar;', @StrLCopy, H);
  RegisterRoutine('function StrPCopy(Dest: PChar; const Source: string): PChar;', @StrPCopy, H);
  RegisterRoutine('function StrPLCopy(Dest: PChar; const Source: string;  MaxLen: Cardinal): PChar;', @StrPLCopy, H);
  RegisterRoutine('function StrCat(Dest: PChar; const Source: PChar): PChar;', @StrCat, H);
  RegisterRoutine('function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar;', @StrLCat, H);
  RegisterRoutine('function StrComp(const Str1, Str2: PChar): Integer;', @StrComp, H);
  RegisterRoutine('function StrIComp(const Str1, Str2: PChar): Integer;', @StrIComp, H);
  RegisterRoutine('function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;', @StrLComp, H);
  RegisterRoutine('function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer;', @StrLIComp, H);
  RegisterRoutine('function StrScan(const Str: PChar; Chr: Char): PChar;', @StrScan, H);
  RegisterRoutine('function StrRScan(const Str: PChar; Chr: Char): PChar;', @StrRScan, H);
  RegisterRoutine('function StrPos(const Str1, Str2: PChar): PChar;', @StrPos, H);
  RegisterRoutine('function StrUpper(Str: PChar): PChar;', @StrUpper, H);
  RegisterRoutine('function StrLower(Str: PChar): PChar;', @StrLower, H);
  RegisterRoutine('function StrPas(const Str: PChar): string;', @StrPas, H);
  RegisterRoutine('function StrAlloc(Size: Cardinal): PChar;', @StrAlloc, H);
  RegisterRoutine('function StrBufSize(const Str: PChar): Cardinal;', @StrBufSize, H);
  RegisterRoutine('function StrNew(const Str: PChar): PChar;', @StrNew, H);
  RegisterRoutine('procedure StrDispose(Str: PChar);', @StrDispose, H);
  RegisterRoutine('function Format(const Format: string; const Args: array of const): string;', @Format, H);
  RegisterRoutine('procedure FmtStr(var Result: string; const Format: string;  const Args: array of const);', @FmtStr, H);
  RegisterRoutine('function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar;', @StrFmt, H);
  RegisterRoutine('function StrLFmt(Buffer: PChar; MaxLen: Cardinal; Format: PChar;  const Args: array of const): PChar;', @StrLFmt, H);
  RegisterRoutine('function FormatBuf(var Buffer; BufLen: Cardinal; const Format;  FmtLen: Cardinal; const Args: array of const): Cardinal;', @FormatBuf, H);
  RegisterRoutine('function FloatToStr(Value: Extended): string;', @FloatToStr, H);
  RegisterRoutine('function CurrToStr(Value: Currency): string;', @CurrToStr, H);
  RegisterRoutine('function FloatToStrF(Value: Extended; Format: TFloatFormat;  Precision, Digits: Integer): string;', @FloatToStrF, H);
  RegisterRoutine('function CurrToStrF(Value: Currency; Format: TFloatFormat;  Digits: Integer): string;', @CurrToStrF, H);
  RegisterRoutine('function FloatToText(Buffer: PChar; const Value; ValueType: TFloatValue;  Format: TFloatFormat; Precision, Digits: Integer): Integer;', @FloatToText, H);
  RegisterRoutine('function FormatFloat(const Format: string; Value: Extended): string;', @FormatFloat, H);
  RegisterRoutine('function FormatCurr(const Format: string; Value: Currency): string;', @FormatCurr, H);
  RegisterRoutine('function FloatToTextFmt(Buffer: PChar; const Value; ValueType: TFloatValue;  Format: PChar): Integer;', @FloatToTextFmt, H);
  RegisterRoutine('function StrToFloat(const S: string): Extended;', @StrToFloat, H);
  {$IFDEF Delphi6_UP}
    RegisterRoutine('function StrToFloatDef(const S: string;  const Default: Extended): Extended; overload;', @StrToFloatDef, H);
    RegisterRoutine('function StrToFloatDef(const S: string; const Default: Extended;  const FormatSettings: TFormatSettings): Extended; overload;', @StrToFloatDef, H);
    RegisterRoutine('function StrToBool(const S: string): Boolean;', @StrToBool, H);
    RegisterRoutine('function StrToBoolDef(const S: string; const Default: Boolean): Boolean;', @StrToBoolDef, H);
    RegisterRoutine('function BoolToStr(B: Boolean; UseBoolStrs: Boolean): string;', @BoolToStr, H);
    RegisterRoutine('function StrToDateTimeDef(const S: string; const Default: TDateTime): TDateTime; overload;',
                    @StrToDateTimeDef, H);
    RegisterRoutine('function StrToDateTimeDef(const S: string; const Default: TDateTime; const FormatSettings: TFormatSettings): TDateTime; overload;',
                    @StrToDateTimeDef, H);
    RegisterRoutine('function DirectoryExists(const Directory: string): Boolean;', @DirectoryExists, H);
  {$ENDIF}
  RegisterRoutine('function StrToCurr(const S: string): Currency;', @StrToCurr, H);
  RegisterRoutine('function TextToFloat(Buffer: PChar; var Value;  ValueType: TFloatValue): Boolean;', @TextToFloat, H);
  RegisterRoutine('procedure FloatToDecimal(var Result: TFloatRec; const Value;  ValueType: TFloatValue; Precision, Decimals: Integer);', @FloatToDecimal, H);
  RegisterRoutine('function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;', @DateTimeToTimeStamp, H);
  RegisterRoutine('function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;', @TimeStampToDateTime, H);
  RegisterRoutine('function MSecsToTimeStamp(MSecs: Comp): TTimeStamp;', @MSecsToTimeStamp, H);
  RegisterRoutine('function TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp;', @TimeStampToMSecs, H);
  RegisterRoutine('function EncodeDate(Year, Month, Day: Word): TDateTime;', @EncodeDate, H);
  RegisterRoutine('function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;', @EncodeTime, H);
  RegisterRoutine('procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);', @DecodeDate, H);
  RegisterRoutine('procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);', @DecodeTime, H);
  RegisterRoutine('procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);', @DateTimeToSystemTime, H);
  RegisterRoutine('function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;', @SystemTimeToDateTime, H);
  RegisterRoutine('function DayOfWeek(Date: TDateTime): Integer;', @DayOfWeek, H);
  RegisterRoutine('function Date: TDateTime;', @Date, H);
  RegisterRoutine('function Time: TDateTime;', @Time, H);
  RegisterRoutine('function Now: TDateTime;', @Now, H);
  RegisterRoutine('function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;', @IncMonth, H);
  RegisterRoutine('procedure ReplaceTime(var DateTime: TDateTime; const NewTime: TDateTime);', @ReplaceTime, H);
  RegisterRoutine('procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime);', @ReplaceDate, H);
  RegisterRoutine('function IsLeapYear(Year: Word): Boolean;', @IsLeapYear, H);
  RegisterRoutine('function DateToStr(Date: TDateTime): string;', @DateToStr, H);
  RegisterRoutine('function TimeToStr(Time: TDateTime): string;', @TimeToStr, H);
  RegisterRoutine('function DateTimeToStr(DateTime: TDateTime): string;', @DateTimeToStr, H);
  RegisterRoutine('function StrToDate(const S: string): TDateTime;', @StrToDate, H);
  RegisterRoutine('function StrToTime(const S: string): TDateTime;', @StrToTime, H);
  RegisterRoutine('function StrToDateTime(const S: string): TDateTime;', @StrToDateTime, H);
  RegisterRoutine('function FormatDateTime(const Format: string; DateTime: TDateTime): string;', @FormatDateTime, H);
  RegisterRoutine('procedure DateTimeToString(var Result: string; const Format: string;  DateTime: TDateTime);', @DateTimeToString, H);
  RegisterRoutine('function SysErrorMessage(ErrorCode: Integer): string;', @SysErrorMessage, H);
  RegisterRoutine('function GetLocaleStr(Locale, LocaleType: Integer; const Default: string): string;', @GetLocaleStr, H);
  RegisterRoutine('function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Char;', @GetLocaleChar, H);
  RegisterRoutine('procedure GetFormatSettings;', @GetFormatSettings, H);
  RegisterRoutine('function ExceptObject: TObject;', @ExceptObject, H);
  RegisterRoutine('function ExceptAddr: Pointer;', @ExceptAddr, H);
  RegisterRoutine('function ExceptionErrorMessage(ExceptObject: TObject; ExceptAddr: Pointer;  Buffer: PChar; Size: Integer): Integer;', @ExceptionErrorMessage, H);
  RegisterRoutine('procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer);', @ShowException, H);
  RegisterRoutine('procedure Abort;', @Abort, H);
  RegisterRoutine('procedure OutOfMemoryError;', @OutOfMemoryError, H);
  RegisterRoutine('procedure Beep;', @Beep, H);
  RegisterRoutine('function ByteType(const S: string; Index: Integer): TMbcsByteType;', @ByteType, H);
  RegisterRoutine('function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;', @StrByteType, H);
  RegisterRoutine('function ByteToCharLen(const S: string; MaxLen: Integer): Integer;', @ByteToCharLen, H);
  RegisterRoutine('function CharToByteLen(const S: string; MaxLen: Integer): Integer;', @CharToByteLen, H);
  RegisterRoutine('function ByteToCharIndex(const S: string; Index: Integer): Integer;', @ByteToCharIndex, H);
  RegisterRoutine('function CharToByteIndex(const S: string; Index: Integer): Integer;', @CharToByteIndex, H);
  RegisterRoutine('function IsPathDelimiter(const S: string; Index: Integer): Boolean;', @IsPathDelimiter, H);
  RegisterRoutine('function IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean;', @IsDelimiter, H);
  RegisterRoutine('function IncludeTrailingBackslash(const S: string): string;', @IncludeTrailingBackslash, H);
  RegisterRoutine('function ExcludeTrailingBackslash(const S: string): string;', @ExcludeTrailingBackslash, H);
  RegisterRoutine('function LastDelimiter(const Delimiters, S: string): Integer;', @LastDelimiter, H);
  RegisterRoutine('function AnsiCompareFileName(const S1, S2: string): Integer;', @AnsiCompareFileName, H);
  RegisterRoutine('function AnsiLowerCaseFileName(const S: string): string;', @AnsiLowerCaseFileName, H);
  RegisterRoutine('function AnsiUpperCaseFileName(const S: string): string;', @AnsiUpperCaseFileName, H);
  RegisterRoutine('function AnsiPos(const Substr, S: string): Integer;', @AnsiPos, H);
  RegisterRoutine('function AnsiStrPos(Str, SubStr: PChar): PChar;', @AnsiStrPos, H);
  RegisterRoutine('function AnsiStrRScan(Str: PChar; Chr: Char): PChar;', @AnsiStrRScan, H);
  RegisterRoutine('function AnsiStrScan(Str: PChar; Chr: Char): PChar;', @AnsiStrScan, H);
//  RegisterRoutine('function StringReplace(const S, OldPattern, NewPattern: string;  Flags: TReplaceFlags): string;', @StringReplace, H);
  RegisterConstant('rfReplaceAll', rfReplaceAll, H);
  RegisterConstant('rfIgnoreCase', rfIgnoreCase, H);
  RegisterStdRoutine('StringReplace', _StringReplace, 4, H);

  RegisterRoutine('function WrapText(const Line, BreakStr: string; BreakChars: TSysCharSet;  MaxCol: Integer): string; overload;', @WrapText, H);
  RegisterRoutine('function FindCmdLineSwitch(const Switch: string; SwitchChars: TSysCharSet;  IgnoreCase: Boolean): Boolean;', @FindCmdLineSwitch, H);
  RegisterRoutine('procedure FreeAndNil(var Obj);', @FreeAndNil, H);
  RegisterRoutine('function Supports(const Instance: IUnknown; const Intf: TGUID; out Inst): Boolean; overload;', @Supports, H);
  RegisterRoutine('function Supports(Instance: TObject; const Intf: TGUID; out Inst): Boolean; overload;', @Supports, H);
  RegisterConstant('PfNeverBuild', $00000001, H);
  RegisterConstant('PfDesignOnly', $00000002, H);
  RegisterConstant('PfRunOnly', $00000004, H);
  RegisterConstant('PfIgnoreDupUnits', $00000008, H);
  RegisterInt64Constant('PfModuleTypeMask', $C0000000, H);
  RegisterConstant('PfExeModule', $00000000, H);
  RegisterConstant('PfPackageModule', $40000000, H);
  RegisterConstant('PfProducerMask', $0C000000, H);
  RegisterConstant('PfV3Produced', $00000000, H);
  RegisterConstant('PfProducerUndefined', $04000000, H);
  RegisterConstant('PfBCB4Produced', $08000000, H);
  RegisterConstant('PfDelphi4Produced', $0C000000, H);
  RegisterInt64Constant('PfLibraryModule', $80000000, H);
  RegisterConstant('UfMainUnit', $01, H);
  RegisterConstant('UfPackageUnit', $02, H);
  RegisterConstant('UfWeakUnit', $04, H);
  RegisterConstant('UfOrgWeakUnit', $08, H);
  RegisterConstant('UfImplicitUnit', $10, H);
  RegisterRTTIType(TypeInfo(TNameType));
  RegisterRoutine('function LoadPackage(const Name: string): HMODULE;', @LoadPackage, H);
  RegisterRoutine('procedure UnloadPackage(Module: HMODULE);', @UnloadPackage, H);
  RegisterRoutine('procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer;  InfoProc: TPackageInfoProc);', @GetPackageInfo, H);
  RegisterRoutine('function GetPackageDescription(ModuleName: PChar): string;', @GetPackageDescription, H);
  RegisterRoutine('procedure InitializePackage(Module: HMODULE);', @InitializePackage, H);
  RegisterRoutine('procedure FinalizePackage(Module: HMODULE);', @FinalizePackage, H);
  RegisterRoutine('procedure RaiseLastWin32Error;', @RaiseLastWin32Error, H);
  RegisterRoutine('function Win32Check(RetVal: BOOL): BOOL;', @Win32Check, H);
  RegisterRoutine('procedure AddTerminateProc(TermProc: TTerminateProc);', @AddTerminateProc, H);
  RegisterRoutine('function CallTerminateProcs: Boolean;', @CallTerminateProcs, H);
  RegisterRoutine('function GDAL: LongWord;', @GDAL, H);
  RegisterRoutine('procedure RCS;', @RCS, H);
  RegisterRoutine('procedure RPR;', @RPR, H);
  RegisterVariable('HexDisplayPrefix', 'STRING',@HexDisplayPrefix, H);
  // Begin of class TMultiReadExclusiveWriteSynchronizer
  RegisterClassType(TMultiReadExclusiveWriteSynchronizer, H);
  RegisterMethod(TMultiReadExclusiveWriteSynchronizer,
       'constructor Create;',
       @TMultiReadExclusiveWriteSynchronizer.Create);
  RegisterMethod(TMultiReadExclusiveWriteSynchronizer,
       'destructor Destroy; override;',
       @TMultiReadExclusiveWriteSynchronizer.Destroy);
  RegisterMethod(TMultiReadExclusiveWriteSynchronizer,
       'procedure BeginRead;',
       @TMultiReadExclusiveWriteSynchronizer.BeginRead);
  RegisterMethod(TMultiReadExclusiveWriteSynchronizer,
       'procedure EndRead;',
       @TMultiReadExclusiveWriteSynchronizer.EndRead);
  RegisterMethod(TMultiReadExclusiveWriteSynchronizer,
       'procedure BeginWrite;',
       @TMultiReadExclusiveWriteSynchronizer.BeginWrite);
  RegisterMethod(TMultiReadExclusiveWriteSynchronizer,
       'procedure EndWrite;',
       @TMultiReadExclusiveWriteSynchronizer.EndWrite);
  // End of class TMultiReadExclusiveWriteSynchronizer
end;
initialization
  RegisterIMP_sysutils;
end.