maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
11900: Function ALRandomStr1(const aLength: Longint; const aCharset: Array of Char): AnsiString;<br />
11901: Function ALRandomStr(const aLength: Longint): AnsiString;<br />
11902: Function ALRandomStrU1(const aLength: Longint; const aCharset: Array of Char): String;<br />
11903: Function ALRandomStrU(const aLength: Longint): String;<br />
11904: end;<br />
119<strong>05</strong>:<br />
11906: procedure SIRegister_ALJSONDoc(CL: TPSPascalCompiler);<br />
11907: begin<br />
119<strong>08</strong>: Procedure ALJSONToTStrings(const AJsonStr:AnsiString;aLst:TALStrings; const aNullStr:AnsiString;const<br />
aTrueStr: AnsiString; const aFalseStr : AnsiString)<br />
11909: end;<br />
11910:<br />
11911: procedure SIRegister_ALWindows(CL: TPSPascalCompiler);<br />
11912: begin<br />
11913: _ALMEMORYSTATUSEX', 'record dwLength : DWORD; dwMemoryLoad : DWO'<br />
119<strong>14</strong>: +'RD; ullTotalPhys : Int64; ullAvailPhys : Int64; ullTotalPageFile : Int64; '<br />
11915: +'ullAvailPageFile : Int64; ullTotalVirtual : Int64; ullAvailVirtual : Int64'<br />
11916: +'; ullAvailExtendedVirtual : Int64; end<br />
119<strong>17</strong>: TALMemoryStatusEx', '_ALMEMORYSTATUSEX<br />
11918: Function ALGlobalMemoryStatusEx( var lpBuffer : TALMEMORYSTATUSEX) : BOOL<br />
11919: Function ALInterlockedExchange64( var Target : LONGlONG; Value : LONGLONG) : LONGLONG<br />
11920: 'INVALID_SET_FILE_POINTER','LongInt'( DWORD ( - 1 ));<br />
11921: 'QUOTA_LIMITS_HARDWS_MIN_DISABLE','LongWord').SetUInt( $2);<br />
11922: 'QUOTA_LIMITS_HARDWS_MIN_ENABLE','LongWord').SetUInt( $1);<br />
11923: 'QUOTA_LIMITS_HARDWS_MAX_DISABLE','LongWord').SetUInt( $8);<br />
11924: 'QUOTA_LIMITS_HARDWS_MAX_ENABLE','LongWord').SetUInt( $4);<br />
11925: end;<br />
11926:<br />
11927: procedure SIRegister_IPCThrd(CL: TPSPascalCompiler);<br />
11928: begin<br />
11929: SIRegister_THandledObject(CL);<br />
11930: SIRegister_TEvent(CL);<br />
11931: SIRegister_TMutex(CL);<br />
11932: SIRegister_TSharedMem(CL);<br />
11933: 'TRACE_BUF_SIZE','LongInt'( 200 * 1024);<br />
11934: 'TRACE_BUFFER','String 'TRACE_BUFFER<br />
11935: 'TRACE_MUTEX','String 'TRACE_MUTEX<br />
11936: //PTraceEntry', '^TTraceEntry // will not work<br />
119<strong>37</strong>: SIRegister_TIPCTracer(CL);<br />
11938: 'MAX_CLIENTS','LongInt'( 6);<br />
11939: 'IPCTIMEOUT','LongInt'( 2000);<br />
11940: 'IPCBUFFER_N<strong>AM</strong>E','String 'BUFFER_N<strong>AM</strong>E<br />
11941: 'BUFFER_MUTEX_N<strong>AM</strong>E','String 'BUFFER_MUTEX<br />
11942: 'MONITOR_EVENT_N<strong>AM</strong>E','String 'MONITOR_EVENT<br />
11943: 'CLIENT_EVENT_N<strong>AM</strong>E','String 'CLIENT_EVENT<br />
11944: 'CONNECT_EVENT_N<strong>AM</strong>E','String 'CONNECT_EVENT<br />
11945: 'CLIENT_DIR_N<strong>AM</strong>E','String 'CLIENT_DIRECTORY<br />
11946: 'CLIENT_DIR_MUTEX','String 'DIRECTORY_MUTEX<br />
11947: FindClass('TOBJECT'),'EMonitorActive<br />
11948: FindClass('TOBJECT'),'TIPCThread<br />
11949: TEventKind', '( evMonitorAttach, evMonitorDetach, evMonitorSigna'<br />
11950: +'l, evMonitorExit, evClientStart, evClientStop, evClientAttach, evClientDet'<br />
11951: +'ach, evClientSwitch, evClientSignal, evClientExit )<br />
11952: TClientFlag', '( cfError, cfMouseMove, cfMouseDown, cfResize, cfAttach )<br />
11953: TClientFlags', 'set of TClientFlag<br />
11954: //PEventData', '^TEventData // will not work<br />
11955: TEventData', 'record X : SmallInt; Y : SmallInt; Flag : TClientF'<br />
11956: +'lag; Flags : TClientFlags; end<br />
11957: TConnectEvent', 'Procedure ( Sender : TIPCThread; Connecting : Boolean)<br />
11958: TDirUpdateEvent', 'Procedure ( Sender : TIPCThread)<br />
11959: TIPCNotifyEvent', 'Procedure ( Sender : TIPCThread; Data : TEventData)<br />
11960: //PIPCEventInfo', '^TIPCEventInfo // will not work<br />
11961: TIPCEventInfo','record FID:Integer;FKind:TEventKind;FData:TEventData;end<br />
11962: SIRegister_TIPCEvent(CL);<br />
11963: //PClientDirRecords', '^TClientDirRecords // will not work<br />
11964: SIRegister_TClientDirectory(CL);<br />
11965: TIPCState', '( stInActive, stDisconnected, stConnected )<br />
11966: SIRegister_TIPCThread(CL);<br />
11967: SIRegister_TIPCMonitor(CL);<br />
11968: SIRegister_TIPCClient(CL);<br />
11969: Function IsMonitorRunning( var Hndl : THandle) : Boolean<br />
11970: end;<br />
11971:<br />
11972: (*----------------------------------------------------------------------------*)<br />
11973: procedure SIRegister_ALGSMComm(CL: TPSPascalCompiler);<br />
11974: begin<br />
11975: SIRegister_TAlGSMComm(CL);<br />
11976: Function AlGSMComm_BuildPDUMessage( aSMSCenter, aSMSAddress, aMessage : AnsiString) : AnsiString<br />
11977: Procedure AlGSMComm_DecodePDUMessage(aPDUMessage:AnsiString;var aSMSCenter,aSMSAddress,<br />
<strong>AM</strong>essage:AnsiString);<br />
11978: Function AlGSMComm_UnicodeToGSM7BitDefaultAlphabet( aMessage : WideString) : AnsiString<br />
11979: Function AlGSMComm_GSM7BitDefaultAlphabetToUnicode(aMess:AnsiString;const<br />
UseGreekAlphabet:Bool):Widestring;<br />
11980: function ALMatchesMask(const Filename, Mask: AnsiString): Boolean;<br />
11981: end;<br />
11982:<br />
11983: procedure SIRegister_ALHttpCommon(CL: TPSPascalCompiler);<br />
11984: begin<br />
11985: TALHTTPPropertyChangeEvent','Procedure(sender:Tobject;const PropertyIndex:Integer;<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 138