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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
23510: 'Variant', 'Interface', 'Dispatch', 'Guid', 'SQLTimeStamp', 'FMTBcdField',
23511: 'FixedWideChar', 'WideMemo', 'SQLTimeStamp', 'String');
23512: CL.AddTypeS('TFactoryProc', 'Procedure (Factory : TComObjectFactory)');
23513: CL.AddTypeS('TCallingConvention','(ccRegister, ccCdecl, ccPascal, ccStdCall, ccSafeCall)');
23514: SIRegister_TComClassManager(CL);
23515: SIRegister_IServerExceptionHandler(CL); SIRegister_TComObject(CL);
23516: //CL.AddTypeS('TComClass', 'class of TComObject');
23517: CL.AddTypeS('TClassInstancing', '(ciInternal,ciSingleInstance,ciMultiInstance )');
23518: CL.AddTypeS('TThreadingModel', '(tmSingle, tmApartment, tmFree, tmBoth, tmNeutral )');
23519: SIRegister_TComObjectFactory(CL); SIRegister_TTypedComObject(CL);
23520: //CL.AddTypeS('TTypedComClass', 'class of TTypedComObject');
23521: SIRegister_TTypedComObjectFactory(CL);
23522: CL.AddTypeS('TConnectEvent2','Procedure(const Sink : IUnknown; Connecting : Boolean)');
23523: CL.AddClassN(CL.FindClass('TOBJECT'),'TAutoObjectFactory');
23524: SIRegister_TAutoObject(CL); //TAutoObject2 ?? in OleAuto and ComObj
23525: //CL.AddTypeS('TAutoClass', 'class of TAutoObject');
23526: SIRegister_TAutoObjectFactory(CL); SIRegister_TAutoIntfObject(CL);
23527: //CL.AddClassN(CL.FindClass('TOBJECT'),'EOleError');
23528: CL.AddClassN(CL.FindClass('Exception'),'EOleError');
23529: SIRegister_EOleSysError(CL); SIRegister_EOleException(CL);
23530: CL.AddClassN(CL.FindClass('TOBJECT'),'EOleRegistrationError');
23531: //Procedure DispatchInvoke( const Dispatch : IDispatch; CallDesc : PCallDesc; DispIDs : PDispIDList;
Params : Pointer; Result : PVariant)');
23532: //Procedure DispatchInvokeError( Status : Integer; const ExcepInfo : TExcepInfo)');
23533: //Function HandleSafeCallException( ExceptObject : TObject; ExceptAddr : Pointer; const ErrorIID : TGUID;
const ProgID, HelpFileName : WideString) : HResult');
23534: Function CreateComObject( const ClassID : TGUID) : IUnknown');
23535: Function CreateRemoteComObject( const MachineName : WideString; const ClassID : TGUID) : IUnknown');
23536: //Function CreateOleObject(const ClassName : string): IDispatch');
23537: //Function GetActiveOleObject(const ClassName:string): IDispatch');
23538: Procedure OleError2( ErrorCode : HResult)');
23539: Procedure OleCheck2( Result : HResult)');
23540: Function StringToGUID2( const S : string) : TGUID');
23541: Function GUIDToString2( const ClassID : TGUID) : string');
23542: Function ProgIDToClassID2( const ProgID : string) : TGUID');
23543: Function ClassIDToProgID2( const ClassID : TGUID) : string');
23544: Procedure CreateRegKey(const Key,ValueName,Value:string;RootKey:DWord)');
23545: Procedure DeleteRegKey(const Key : string; RootKey : DWord)');
23546: Function GetRegStringValue( const Key, ValueName : string; RootKey : DWord) : string');
23547: //Function StringToLPOLESTR( const Source : string) : POleStr');
23548: Procedure RegisterComServer( const DLLName : string)');
23549: Procedure RegisterAsService( const ClassID, ServiceName : string)');
23550: Function CreateClassID2 : string');
23551: Procedure InterfaceConnect(const Source:IUnknown;const IID:TIID;const Sink:IUnknown;var
Connection:Longint)');
23552: Procedure InterfaceDisconnect( const Source : IUnknown; const IID : TIID; var Connection : Longint)');
23553: Function GetDispatchPropValue(Disp: IDispatch; DispID : Integer) : OleVariant;');
23554: Function GetDispatchPropValue1(Disp: IDispatch; Name : WideString) : OleVariant;');
23555: Procedure SetDispatchPropValue2(Disp: IDispatch; DispID : Integer; const Value : OleVariant);');
23556: Procedure SetDispatchPropValue3(Disp: IDispatch; Name : WideString; const Value : OleVariant);');
23557: Function ComClassManager : TComClassManager');
23558: // from ADODB OLE Utils
23559: CL.AddTypeS('TOleEnum', 'LongWord'); //DataTypeEnum = TOleEnum;
23560: CL.AddTypeS('DataTypeEnum', 'TOleEnum');
23561: Function CreateADOObject( const ClassID : TGUID) : IUnknown');
23562: Function ADOTypeToFieldType( const ADOType : DataTypeEnum; EnableBCD : Boolean) : TFieldType');
23563: Function FieldTypeToADOType(const FieldType: TFieldType):DataTypeEnum');
23564: Function StringToVarArray( const Value : string) : OleVariant');
23565: Function VarDataSize( const Value : OleVariant) : Integer');
23566: Function OleEnumToOrd( OleEnumArray : array of TOleEnum; Value : TOleEnum) : Integer');
23567: Function GetStates( State : Integer) : TObjectStates');
23568: Function ExecuteOptionsToOrd(ExecuteOptions:TExecuteOptions): Integer');
23569: Function OrdToExecuteOptions(Options: Integer) : TExecuteOptions');
23570: Function ExtractFieldName( const Fields : WideString; var Pos : Integer) : WideString');
23571: Function GetFilterStr( Field : TField; Value : Variant; Partial : Boolean) : WideString');
23572: Function FieldListCheckSum( DataSet : TDataset) : Integer');
23573: function GlobalAllocString(s: AnsiString): HGlobal;
23574: function ScanTime(const S: string; var Pos: Integer; var Time: TDateTime): Boolean;
23575: function ScanChar(const S: string; var Pos: Integer; Ch: Char): Boolean;
23576: function ScanNumber(const S: string; var Pos: Integer; var Number: Word): Boolean;
23577: function ScanString(const S: string; var Pos: Integer; const Symbol: string): Boolean;
23578: procedure LV_InsertFiles(strPath: string; ListView: TListView; ImageList: TImageList);
23579: Function GetPasteLinkInfo( var Service : string; var Topic : string; var Item : string) : Boolean');
23580: function IPToHostName(const IP: string): string;
23581: procedure GetZoneIcon(IconPath: string; var Icon: TIcon);
23582: function GetZoneAttributes(const URL: string): TZoneAttributes;
23583: //unit uPSI_PsAPI;
23584: procedure CGITester; //CGI will take name and email address from command line and place it into HTML
23585: procedure CreateBrowserOnForm(aform: TForm; aurl: string);
23586: procedure WebOnForm(aform: TForm; aurl: string);');
23587: procedure WebToForm(aform: TForm; aurl: string);');
23588: procedure SearchAndHighlightWebText(aform: TForm; aurl: string; aText: string);
23589: procedure SaveImagesOnWeb(aurl, apath: string);
23590: function GetProcessNameFromWnd(Wnd: HWND): string; //get EXE path from window handle
23591: function getallEvents(aform: TForm): TStringlist;
23592: procedure GetKLList(List: TStrings);');
23593: procedure GetKeyboardList(List: TStrings);');
23594: function SetSuspendState(Hibernate: Boolean;ForceCritical: Boolean;DisableWakeEvent: Boolean): boolean;
23595: call: SetSuspendState(True, False, False);
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 273