OLE32LibraryLoad
(Available in 01 TS COM - TS_COM_ServerInfo)
Source
METHOD OLE32LibraryLoad( dwCoInitMode AS DWORD, phResult AS LONG PTR ) AS LOGIC PASCAL ; ...
...CLASS TS_ServerInfo
LOCAL lCanCoInitializeEx AS LOGIC
LOCAL hOLE32Library AS PTR
LOCAL lRetVal AS LOGIC
TSTrace Enter
IF SELF:IsValidObject
// TS_ShowOLE32LibraryUseCount()
IF LOGIC( _CAST, SELF:_COMGlobalData:_ShowOLE32LibraryUseCount ; ...
... )
TSTrace Shw _( SELF:_SuperGlobalData:_OLE32LibraryUseCount ; ...
... )
END
DO CASE
CASE phResult==NULL_PTR
TSTrace Warning "phResult==NULL_PTR"
lRetVal:=FALSE
CASE IsBadWritePtr( phResult, _SIZEOF( LONG ) )
TSTrace Warning "IsBadWritePtr(phResult,_SizeOf(LONG))"
lRetVal:=FALSE
CASE TS_HFailed( LONG( phResult