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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
16938: Function UnmapDrive( Drive : char; Force : boolean) : boolean');
16939: Function TBIsWindowsVista : Boolean');
16940: Procedure SetVistaFonts( const AForm : TForm)');
16941: Procedure SetVistaContentFonts( const AFont : TFont)');
16942: Function GetProductType( var sType : String) : Boolean');
16943: Function lstrcmp( lpString1, lpString2 : PChar) : Integer');
16944: Function lstrcmpi( lpString1, lpString2 : PChar) : Integer');
16945: Function lstrcpyn( lpString1, lpString2 : PChar; iMaxLength : Integer) : PChar');
16946: Function lstrcpy( lpString1, lpString2 : PChar) : PChar');
16947: Function lstrcat( lpString1, lpString2 : PChar) : PChar');
16948: Function lstrlen( lpString : PChar) : Integer');
16949: Function GetTokenInformation( TokenHandle : THandle; TokenInformationClass : TTokenInformationClass;
TokenInformation : ___Pointer; TokenInformationLength : DWORD; var ReturnLength : DWORD) : BOOL');
16950: Function SetTokenInformation( TokenHandle : THandle; TokenInformationClass : TTokenInformationClass;
TokenInformation : ___Pointer; TokenInformationLength : DWORD) : BOOL');
16951: end;
16952:
16953: procedure SIRegister_dwsXPlatform(CL: TPSPascalCompiler);
16954: begin
16955: 'cLineTerminator','Char').SetString( #10);
16956: 'cLineTerminators','String').SetString( #13#10);
16957: 'INVALID_HANDLE_VALUE','LongInt').SetInt( DWORD ( - 1 ));
16958: SIRegister_TFixedCriticalSection(CL);
16959: SIRegister_TMultiReadSingleWrite(CL);
16960: Procedure SetDecimalSeparator( c : Char)');
16961: Function GetDecimalSeparator : Char');
16962: TCollectFileProgressEvent', 'Procedure ( const directory : String; var skipScan : Boolean)');
16963: Procedure CollectFiles(const directory,fileMask:UnicodeString; list:TStrings;
recurseSubdirectories:Boolean; onProgress : TCollectFileProgressEvent)');
16964: CL.AddTypeS('NativeInt', 'Integer');
16965: //CL.AddTypeS('PNativeInt', '^NativeInt // will not work');
16966: CL.AddTypeS('NativeUInt', 'Cardinal');
16967: //CL.AddTypeS('PNativeUInt', '^NativeUInt // will not work');
16968: //CL.AddTypeS('TBytes', 'array of Byte');
16969: CL.AddTypeS('RawByteString', 'UnicodeString');
16970: //CL.AddTypeS('PNativeInt', '^NativeInt // will not work');
16971: //CL.AddTypeS('PUInt64', '^UInt64 // will not work');
16972: SIRegister_TPath(CL);
16973: SIRegister_TFile(CL);
16974: SIRegister_TdwsThread(CL);
16975: Function GetSystemMilliseconds : Int64');
16976: Function UTCDateTime : TDateTime');
16977: Function UnicodeFormat(const fmt:UnicodeString; const args : array of const): UnicodeString');
16978: Function UnicodeCompareStr( const S1, S2 : UnicodeString) : Integer');
16979: Function dwsAnsiCompareText( const S1, S2 : UnicodeString) : Integer');
16980: Function dwsAnsiCompareStr( const S1, S2 : UnicodeString) : Integer');
16981: Function UnicodeComparePChars( p1 : PChar; n1 : Integer; p2 : PChar; n2 : Integer) : Integer;');
16982: Function UnicodeComparePChars1( p1, p2 : PChar; n : Integer) : Integer;');
16983: Function UnicodeLowerCase( const s : UnicodeString) : UnicodeString');
16984: Function UnicodeUpperCase( const s : UnicodeString) : UnicodeString');
16985: Function ASCIICompareText( const s1, s2 : UnicodeString) : Integer');
16986: Function ASCIISameText( const s1, s2 : UnicodeString) : Boolean');
16987: Function InterlockedIncrement( var val : Integer) : Integer');
16988: Function InterlockedDecrement( var val : Integer) : Integer');
16989: Procedure FastInterlockedIncrement( var val : Integer)');
16990: Procedure FastInterlockedDecrement( var val : Integer)');
16991: Function InterlockedExchangePointer( var target : ___Pointer; val : ___Pointer) : ___Pointer');
16992: Procedure SetThreadName( const threadName : Char; threadID : Cardinal)');
16993: Procedure dwsOutputDebugString( const msg : UnicodeString)');
16994: Procedure WriteToOSEventLog(const logName,logCaption,logDetails:UnicodeString;const logRawData:Str);
16995: Function TryTextToFloat(const s:PChar;var value:Extended;const formatSettings:TFormatSettings):Bool;
16996: Procedure VarCopy( out dest : Variant; const src : Variant)');
16997: Function VarToUnicodeStr( const v : Variant) : UnicodeString');
16998: Function LoadTextFromBuffer( const buf : TBytes) : UnicodeString');
16999: Function LoadTextFromStream( aStream : TStream) : UnicodeString');
17000: Function LoadTextFromFile( const fileName : UnicodeString) : UnicodeString');
17001: Procedure SaveTextToUTF8File( const fileName, text : UnicodeString)');
17002: Function OpenFileForSequentialReadOnly( const fileName : UnicodeString) : THandle');
17003: Function OpenFileForSequentialWriteOnly( const fileName : UnicodeString) : THandle');
17004: Procedure CloseFileHandle( hFile : THandle)');
17005: Function FileCopy(const existing, new : UnicodeString; failIfExists : Boolean):Boolean');
17006: Function FileMove( const existing, new : UnicodeString) : Boolean');
17007: Function dwsFileDelete( const fileName : String) : Boolean');
17008: Function FileRename( const oldName, newName : String) : Boolean');
17009: Function dwsFileSize( const name : String) : Int64');
17010: Function dwsFileDateTime( const name : String) : TDateTime');
17011: Function DirectSet8087CW( newValue : Word) : Word');
17012: Function DirectSetMXCSR( newValue : Word) : Word');
17013: Function TtoObject( const T: byte) : TObject');
17014: Function TtoPointer( const T: byte) : ___Pointer');
17015: Procedure GetMemForT(var T: byte; Size : integer)');
17016: Function FindDelimiter( const Delimiters, S : string; StartIdx : Integer) : Integer');
17017: end;
17018:
17019: procedure SIRegister_AdSocket(CL: TPSPascalCompiler);
17020: begin
17021: 'IPStrSize','LongInt').SetInt( 15);
17022: 'CM_APDSOCKETMESSAGE','LongWord').SetUInt( WM_USER + $0711);
17023: 'CM_APDSOCKETQUIT','LongWord').SetUInt( WM_USER + $0712);
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 198