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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
16850: begin
16851: 'DEFAULT_PIPE_BUFFER_SIZE','LongInt').SetInt( 4096);
16852: CL.AddConstantN('DEFAULT_PIPE_TIMEOUT','LongInt').SetInt( 5000);
16853: 'PIPE_NAMING_SCHEME','String').SetString( '\\%s\pipe\%s');
16854: 'WAIT_ERROR','LongWord').SetUInt( DWORD ( $FFFFFFFF ));
16855: 'WAIT_OBJECT_1','LongInt').SetInt( WAIT_OBJECT_0 + 1);
16856: 'STATUS_SUCCESS','LongWord').SetUInt( $00000000);
16857: 'STATUS_BUFFER_OVERFLOW','LongWord').SetUInt( $80000005);
16858: CL.AddTypeS('TPipeDirection', '( pdir_Duplex, pdir_ClientToServer, pdir_ServerToClient )');
16859: CL.AddTypeS('TPipeType', '( ptyp_ByteByte, ptyp_MsgByte, ptyp_MsgMsg )');
16860: CL.AddTypeS('TOverlappedResult', '( ov_Failed, ov_Pending, ov_MoreData, ov_Complete )');
16861: SIRegister_TNamedPipe(CL);
16862: SIRegister_TServerPipe(CL);
16863: SIRegister_TClientPipe(CL);
16864: Function CalculateTimeout( aBasis : DWORD) : DWORD');
16865: Function HasOverlappedIoCompleted( const ov : OVERLAPPED) : Boolean');
16866: Function GetOverlappedPipeResult(aHandle:THandle;const ov:OVERLAPPED;var dwBytes:DWORD;bWait:Boolean):
TOverlappedResult;
16867: Function GetStreamAsText( stm : TStream) : string');
16868: Procedure SetStreamAsText( const aTxt : string; stm : TStream)');
16869: end;
16870:
16871: procedure SIRegister_DPUtils(CL: TPSPascalCompiler);
16872: begin
16873: // CL.AddTypeS('pRGBTripleArray', '^TRGBTripleArray // will not work');
16874: SIRegister_TThumbData(CL);
16875: 'PIC_BMP','LongInt').SetInt( 0);
16876: 'PIC_JPG','LongInt').SetInt( 1);
16877: 'THUMB_WIDTH','LongInt').SetInt( 60);
16878: 'THUMB_HEIGHT','LongInt').SetInt( 60);
16879: Function IsEqualFile(Filename:string; Size:Integer; LastWriteTime : TDateTime): Boolean');
16880: Procedure GetFileInfo(Filename : string; var Size : Integer; var LastWriteTime : TDateTime)');
16881: Function ReadBitmap( Filehandle : Integer; Width, Height : Integer) : TBitmap');
16882: Procedure WriteBitmap( Filehandle : Integer; bmp : TBitmap)');
16883: Function OpenPicture( fn : string; var tp : Integer) : Integer');
16884: Function ConvertPicture( pi : Integer; tp : Integer) : TBitmap');
16885: Function LoadPicture( fn : string; var w, h : Integer) : TBitmap');
16886: Function TurnBitmap( bmp : TBitmap; ang : Integer) : TBitmap');
16887: Function RotateBitmap( Bitmap : TBitmap; Direction : Integer) : TBitmap');
16888: Function StretchBitmap( Canvas : TCanvas; re : TRect; bmp : TBitmap) : TRect');
16889: Function ThumbBitmap( Bitmap : TBitmap; Width, Height : Integer) : TBitmap');
16890: Procedure ClearFrame( Canvas : TCanvas; Rect : TRect; Width, Height : Integer)');
16891: Procedure FindFiles( path, mask : string; items : TStringList)');
16892: Function LetFileName( s : string) : string');
16893: Function LetParentPath( path : string) : string');
16894: Function AddBackSlash( path : string) : string');
16895: Function CutBackSlash( path : string) : string');
16896: end;
16897:
16898: procedure SIRegister_CommonTools(CL: TPSPascalCompiler);
16899: begin
16900: //'BYTES','LongInt').SetInt( 1);
16901: 'KBYTES','LongInt').SetInt( 1024);
16902: 'DBG_ALIVE','LongWord').SetUInt( Integer ( $11BABE11 ));
16903: 'DBG_DESTROYING','LongWord').SetUInt( Integer ( $44FADE44 ));
16904: 'DBG_GONE','LongWord').SetUInt( $99AC1D99);
16905: 'SHELL_NS_MYCOMPUTER','String').SetString( '::{20D04FE0-3AEA-1069-A2D8-08002B30309D}');
16906: SIRegister_MakeComServerMethodsPublic(CL);
16907: CL.AddTypeS('TSomeFileInfo', '( fi_DisplayType, fi_Application )');
16908: Function IsFlagSet( dwTestForFlag, dwFlagSet : DWORD) : Boolean');
16909: Procedure TBSetFlag( const dwThisFlag : DWORD; var dwFlagSet : DWORD; aSet : Boolean)');
16910: Function TBGetTempFolder : string');
16911: Function TBGetTempFile : string');
16912: Function TBGetModuleFilename : string');
16913: Function FormatModuleVersionInfo( const aFilename : string) : string');
16914: Function GetVersionInfoString( const aFile, aEntry : string; aLang : WORD) : string');
16915: Function TBGetFileSize( aFile : string; aMultipleOf : Integer) : Integer');
16916: Function FormatAttribString( aAttr : Integer) : string');
16917: Function GetSomeFileInfo( aFile : string; aWhatInfo : TSomeFileInfo) : string');
16918: Function ShellRecycle( aWnd : HWND; aFileOrFolder : string) : Boolean');
16919: Function IsDebuggerPresent : BOOL');
16920: Function TBNotImplemented : HRESULT');
16921: end;
16922:
16923: procedure SIRegister_D2_VistaHelperU(CL: TPSPascalCompiler);
16924: begin
16925: //CL.AddTypeS('OSVERSIONINFOEXA', '_OSVERSIONINFOEXA');
16926: //CL.AddTypeS('TOSVersionInfoExA', '_OSVERSIONINFOEXA');
16927: CL.AddTypeS('TOSVersionInfoEx', 'TOSVersionInfo');
16928: CL.AddTypeS('TDrivesProperty', 'array[1..26] of boolean;');
16929: //TDrivesProperty = array['A'..'Z'] of boolean;
16930: Function TBSetSystemTime( DateTime : TDateTime; DOW : word) : boolean');
16931: Function IsElevated : Boolean');
16932: Procedure CoCreateInstanceAsAdmin(aHWnd:HWND;const aClassID:TGUID;const aIID:TGUID;out aObj:TObject);
16933: CL.AddTypeS('TPasswordUsage', '( pu_None, pu_Default, pu_Defined )');
16934: Function TrimNetResource( UNC : string) : string');
16935: Procedure GetFreeDrives( var FreeDrives : TDrivesProperty)');
16936: Procedure GetMappedDrives( var MappedDrives : TDrivesProperty)');
16937: Function MapDrive(UNCPath:string; Drive : char; PasswordUsage : TPasswordUsage; Password : string;
UserUsage : TPasswordUsage; User : string; Comment : string) : boolean');
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 197