CoInit

(Available in 01 TS COM - TS_COM_ServerInfo)

Source

ACCESS CoInit AS DWORD PASCAL CLASS TS_ServerInfo
LOCAL dwServerInfoCoInitVal AS DWORD
   TSTrace Enter
   IF SELF:IsValidObject
      IF !SELF:_COMGlobalData:_ServerInfoCoInitSet
//       TSTrace ShwEx _(SELF:_COMGlobalData:_ServerInfoCoInitVal)
         SELF:_COMGlobalData:_ServerInfoCoInitSet:= ; ...
        ... TRUE
      END
      dwServerInfoCoInitVal:=SELF:_COMGlobalData:_ServerInfoCoInitVal
   ELSE
      TSTrace Warning "!SELF:IsValidObject"
      dwServerInfoCoInitVal:=COINIT_DEFAULT
   END
   TSTrace Leave
RETURN dwServerInfoCoInitVal