maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
17196:
17197: procedure SIRegister_RedirFunc(CL: TPSPascalCompiler);
17198: begin
17199: CL.AddTypeS('TPreviousFsRedirectionState', record DidDisable : Boolean; OldValue : ___Pointer; end');
17200: Function AreFsRedirectionFunctionsAvailable : Boolean');
17201: Function DisableFsRedirectionIf(const Disable:Boolean;var PreviousState:TPreviousFsRedirectionState):Boo;
17202: Procedure RestoreFsRedirection( const PreviousState : TPreviousFsRedirectionState)');
17203: Function CreateDirectoryRedir( const DisableFsRedir : Boolean; const Filename : String) : BOOL');
17204: Function CreateProcessRedir(const DisableFsRedir:Boolean;const lpApplicationName:PChar;const
lpCommandLine:PChar; const lpProcessAttributes, lpThreadAttributes:PSecurityAttributes;const
bInheritHandles:BOOL; const dwCreationFlags:DWORD;const lpEnvironment:Pointer; const
lpCurrentDirectory:PChar; const lpStartupInfo : TStartupInfo; var
lpProcessInformation:TProcessInformation):BOOL;
17205: Function CopyFileRedir(const DisableFsRedir:Boolean; const ExistingFilename, NewFilename : String; const
FailIfExists : BOOL) : BOOL');
17206: Function DeleteFileRedir( const DisableFsRedir : Boolean; const Filename : String) : BOOL');
17207: Function DirExistsRedir( const DisableFsRedir : Boolean; const Filename : String) : Boolean');
17208: Function FileOrDirExistsRedir( const DisableFsRedir : Boolean; const Filename : String) : Boolean');
17209: Function FindFirstFileRedir( const DisableFsRedir : Boolean; const Filename : String; var FindData :
TWin32FindData) : THandle');
17210: Function GetFileAttributesRedir( const DisableFsRedir : Boolean; const Filename : String) : DWORD');
17211: Function GetShortNameRedir( const DisableFsRedir : Boolean; const Filename : String) : String');
17212: Function GetVersionNumbersRedir(const DisableFsRedir:Boolean; const Filename:String; var VersionNumbers :
TFileVersionNumbers) : Boolean');
17213: Function IsDirectoryAndNotReparsePointRedir(const DisableFsRedir:Boolean;const Name:String):Bool;
17214: Function MoveFileRedir(const DisableFsRedir:Bool;const ExistingFilename,NewFilename:String):BOOL;
17215: Function MoveFileExRedir(const DisableFsRedir:Bool;const ExistingFilen,NewFilename:String;const
Flags:DWORD):BOOL;
17216: Function NewFileExistsRedir( const DisableFsRedir : Boolean; const Filename : String) : Boolean');
17217: Function RemoveDirectoryRedir( const DisableFsRedir : Boolean; const Filename : String) : BOOL');
17218: Function SetFileAttributesRedir(const DisableFsRedir:Bool;const Filename:String;const Attrib:DWORD):BOOL;
17219: Function SetNTFSCompressionRedir(const DisableFsRedir:Boolean;const FileOrDir:String;Compress:Bool:Bool;
17220: SIRegister_TFileRedir(CL);
17221: SIRegister_TTextFileReaderRedir(CL);
17222: SIRegister_TTextFileWriterRedir(CL);
17223: end;
17224:
17225: procedure SIRegister_Int64Em(CL: TPSPascalCompiler);
17226: begin
17227: //CL.AddTypeS('LongWord', 'Cardinal');
17228: CL.AddTypeS('Integer64', 'record Lo : LongWord; Hi : LongWord; end');
17229: Function Compare64( const N1, N2 : Integer64) : Integer');
17230: Procedure Dec64( var X : Integer64; N : LongWord)');
17231: Procedure Dec6464( var X : Integer64; const N : Integer64)');
17232: Function Div64( var X : Integer64; const Divisor : LongWord) : LongWord');
17233: Function Inc64( var X : Integer64; N : LongWord) : Boolean');
17234: Function Inc6464( var X : Integer64; const N : Integer64) : Boolean');
17235: Function Integer64ToStr( X : Integer64) : String');
17236: Function Mod64( const X : Integer64; const Divisor : LongWord) : LongWord');
17237: Function Mul64( var X : Integer64; N : LongWord) : Boolean');
17238: Procedure Multiply32x32to64( N1, N2 : LongWord; var X : Integer64)');
17239: Procedure Shr64( var X : Integer64; Count : LongWord)');
17240: Function StrToInteger64( const S : String; var X : Integer64) : Boolean');
17241: end;
17242:
17243: procedure SIRegister_InstFunc(CL: TPSPascalCompiler);
17244: begin
17245: //CL.AddTypeS('PSimpleStringListArray', '^TSimpleStringListArray // will not work');
17246: SIRegister_TSimpleStringList(CL);
17247: CL.AddTypeS('TExecWait', '( ewNoWait, ewWaitUntilTerminated, ewWaitUntilIdle)');
17248: CL.AddTypeS('TDetermineDefaultLanguageResult', '( ddNoMatch, ddMatch, ddMatchLangParameter )');
17249: CL.AddTypeS('TMD5Digest', 'array[0..15] of Byte;');
17250: CL.AddTypeS('TSHA1Digest', 'array[0..19] of Byte;');
17251: // TMD5Digest = array[0..15] of Byte;
17252: // TSHA1Digest = array[0..19] of Byte;
17253: Function CheckForMutexes( Mutexes : String) : Boolean');
17254: Function CreateTempDir : String');
17255: Function DecrementSharedCount( const RegView : TRegView; const Filename : String) : Boolean');
17256: Procedure DelayDeleteFile( const DisableFsRedir : Boolean; const Filename : String; const MaxTries,
FirstRetryDelayMS, SubsequentRetryDelayMS : Integer)');
17257: //Function DelTree( const DisableFsRedir : Boolean; const Path : String; const IsDir, DeleteFiles,
DeleteSubdirsAlso, BreakOnError : Boolean; const DeleteDirProc : TDeleteDirProc; const DeleteFileProc :
TDeleteFileProc; const Param : Pointer) : Boolean');
17258: //Function DetermineDefaultLanguage( const GetLanguageEntryProc : TGetLanguageEntryProc; const Method :
TSetupLanguageDetectionMethod; const LangParameter : String; var ResultIndex : Integer) :
TDetermineDefaultLanguageResult');
17259: //Procedure EnumFileReplaceOperationsFilenames(const EnumFunc:TEnumFROFilenamesProc;Param:Pointer);
17260: Function GenerateNonRandomUniqueFilename( Path : String; var Filename : String) : Boolean');
17261: Function GenerateUniqueName(const DisableFsRedir:Bool;Path:String;const Extension:String):String;
17262: Function GetComputerNameString : String');
17263: Function GetFileDateTime(const DisableFsRedir:Boolean;const Filename:String;var DateTime:TFileTime):Bool;
17264: Function GetMD5OfFile( const DisableFsRedir : Boolean; const Filename : String) : TMD5Digest');
17265: Function GetMD5OfAnsiString( const S : AnsiString) : TMD5Digest');
17266: // Function GetMD5OfUnicodeString( const S : UnicodeString) : TMD5Digest');
17267: Function GetSHA1OfFile(const DisableFsRedir:Boolean;const Filename:String):TSHA1Digest');
17268: Function GetSHA1OfAnsiString( const S : AnsiString) : TSHA1Digest');
17269: // Function GetSHA1OfUnicodeString( const S : UnicodeString) : TSHA1Digest');
17270: Function GetRegRootKeyName( const RootKey : HKEY) : String');
17271: Function GetSpaceOnDisk(const DisableFsRedir:Bool;const DriveRoot:String;var FreeBytes,
TotBytes:Int64):Bool;
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 201