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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
15180: Function AnsiSameCaption( const Text1, Text2 : string) : Boolean');
15181: Function IsAltGRPressed : boolean');
15182:
15183: procedure SIRegister_IdIMAP4Server(CL: TPSPascalCompiler);
15184: begin
15185: TCommandEvent','Procedure(Thread:TIdPeerThread; const Tag,CmdStr:String;var Handled:Boolean);
15186: SIRegister_TIdIMAP4Server(CL);
15187: end;
15188:
15189: procedure SIRegister_VariantSymbolTable(CL: TPSPascalCompiler);
15190: begin
15191: 'HASH_SIZE','LongInt'( 256);
15192: CL.FindClass('TOBJECT'),'EVariantSymbolTable');
15193: CL.AddTypeS('TSymbolType', '( stInteger, stFloat, stDate, stString )');
15194: //CL.AddTypeS('PSymbol', '^TSymbol // will not work');
15195: CL.AddTypeS('TSymbol', 'record Name : String; BlockLevel : integer; HashValue'
15196: +' : Integer; Value : Variant; end');
15197: //CL.AddTypeS('PSymbolArray', '^TSymbolArray // will not work');
15198: SIRegister_TVariantSymbolTable(CL);
15199: end;
15200:
15201: procedure SIRegister_udf_glob(CL: TPSPascalCompiler);
15202: begin
15203: SIRegister_TThreadLocalVariables(CL);
15204: Function MakeResultString( Source, OptionalDest : PChar; Len : DWORD) : PChar');
15205: //Function MakeResultQuad( Source, OptionalDest : PISC_QUAD) : PISC_QUAD');
15206: Function ThreadLocals : TThreadLocalVariables');
15207: Procedure WriteDebug( sz : String)');
15208: CL.AddConstantN('UDF_SUCCESS','LongInt'( 0);
15209: 'UDF_FAILURE','LongInt'( 1);
15210: 'cSignificantlyLarger','LongInt'( 1024 * 4);
15211: CL.AddTypeS('mTByteArray', 'array of byte;');
15212: function ChangeOEPFromBytes(bFile:mTByteArray):Boolean;
15213: function ChangeOEPFromFile(sFile:string; sDestFile:string):Boolean;
15214: procedure CopyEXIF(const FileNameEXIFSource, FileNameEXIFTarget: string);
15215: function IsNetworkConnected: Boolean;
15216: function IsInternetConnected: Boolean;
15217: function IsCOMConnected: Boolean;
15218: function IsNetworkOn: Boolean;
15219: function IsInternetOn: Boolean;
15220: function IsCOMOn: Boolean;
15221: Function SetTimer(hWnd : HWND; nIDEvent, uElapse: UINT; lpTimerFunc: TFNTimerProc):UINT;
15222: TmrProc', 'procedure TmrProc(hWnd: HWND; uMsg: Integer; idEvent: Integer; dwTime: Integer);');
15223: Function SetTimer2( hWnd : HWND; nIDEvent, uElapse : UINT; lpTimerFunc : TmrProc) : UINT');
15224: Function KillTimer( hWnd : HWND; uIDEvent : UINT) : BOOL');
15225: Function wIsWindowUnicode( hWnd : HWND) : BOOL');
15226: Function wEnableWindow( hWnd : HWND; bEnable : BOOL) : BOOL');
15227: Function wIsWindowEnabled( hWnd : HWND) : BOOL');
15228: Function GetMenu( hWnd : HWND) : HMENU');
15229: Function SetMenu( hWnd : HWND; hMenu : HMENU) : BOOL');
15230: end;
15231:
15232: procedure SIRegister_SockTransport(CL: TPSPascalCompiler);
15233: begin
15234: SIRegister_IDataBlock(CL);
15235: SIRegister_ISendDataBlock(CL);
15236: SIRegister_ITransport(CL);
15237: SIRegister_TDataBlock(CL);
15238: //CL.AddTypeS('PIntArray', '^TIntArray // will not work');
15239: //CL.AddTypeS('PVariantArray', '^TVariantArray // will not work');
15240: CL.AddTypeS('TVarFlag', '( vfByRef, vfVariant )');
15241: CL.AddTypeS('TVarFlags', 'set of TVarFlag');
15242: SIRegister_TCustomDataBlockInterpreter(CL);
15243: SIRegister_TSendDataBlock(CL);
15244: 'CallSig','LongWord')( $D800);
15245: 'ResultSig','LongWord')( $D400);
15246: 'asMask','LongWord')( $00FF);
15247: CL.AddClassN(CL.FindClass('TOBJECT'),'EInterpreterError');
15248: CL.AddClassN(CL.FindClass('TOBJECT'),'ESocketConnectionError');
15249: Procedure CheckSignature( Sig : Integer)');
15250: end;
15251:
15252: procedure SIRegister_WinInet(CL: TPSPascalCompiler);
15253: begin
15254: //CL.AddTypeS('HINTERNET', '___Pointer');
15255: CL.AddTypeS('HINTERNET1', 'THANDLE');
15256: CL.AddTypeS('HINTERNET', 'Integer');
15257: CL.AddTypeS('HINTERNET2', '___Pointer');
15258: //CL.AddTypeS('PHINTERNET', '^HINTERNET // will not work');
15259: //CL.AddTypeS('LPHINTERNET', 'PHINTERNET');
15260: CL.AddTypeS('INTERNET_PORT', 'Word');
15261: //CL.AddTypeS('PINTERNET_PORT', '^INTERNET_PORT // will not work');
15262: //CL.AddTypeS('LPINTERNET_PORT', 'PINTERNET_PORT');
15263: Function InternetTimeFromSystemTime(const pst:TSystemTime;dwRFC:DWORD;lpszTime:LPSTR;cbTime:DWORD):BOOL;
15264: 'INTERNET_RFC1123_FORMAT','LongInt'( 0);
15265: 'INTERNET_RFC1123_BUFSIZE','LongInt'( 30);
15266: Function InternetCrackUrl(lpszUrl:PChar;dwUrlLength,dwFlags:DWORD;var
lpUrlComponents:TURLComponents):BOOL;
15267: Function InternetCreateUrl(var lpUrlComponts:TURLCompons;dwFlags:DWORD;lpszUrl:PChar;var
dwUrlLength:DWORD):BOOL;
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 177